Update

emacs.el

@@ -3100,6 +3100,34 @@ BEGIN {
 }
 ")
 
+'(progn
+   (setq my-ov (make-overlay (pos-bol) (pos-eol)))
+   (let ((ov my-ov)
+         (s (propertize " "
+                        'display
+                        '((margin right-margin) "*"))))
+     (overlay-put ov 'after-string s)
+     ;; (overlay-put ov 'after-string
+     ;;              (concat (propertize " " 'display
+     ;;                                  '(space :align-to (+ left-fringe 1)))
+     ;;                      (propertize "*" 'display
+     ;;                                  '(raise -1))
+     ;;                      ))
+     ;; s
+     ;; (setq left-margin-width 1)
+     ;; (setq right-margin-width 1)
+     ;; (set-window-buffer (get-buffer-window) (current-buffer))
+     ;; (window-margins (get-buffer-window))
+     (let ((win (get-buffer-window)))
+       (set-window-margins (get-buffer-window)
+                           (car (window-margins win))
+                           1))
+    )
+   (progn
+     (overlay-put my-ov 'after-string nil)
+     (overlay-put my-ov 'before-string nil)
+     )
+   )
 
 
 (message "Emacs started at %s"