From 39b1be1c5028d4bec89c5591f88e0035dd20d61e Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Tue, 25 Feb 2025 15:14:10 +0900
Subject: [PATCH] Update

---
 emacs.el | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/emacs.el b/emacs.el
index 343bf16..ff2c02a 100644
--- a/emacs.el
+++ b/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"