emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-remark 79ad1baf7e 20/75: refactor(line): no need fo


From: ELPA Syncer
Subject: [elpa] externals/org-remark 79ad1baf7e 20/75: refactor(line): no need for text-scale-mode-hook
Date: Fri, 6 Oct 2023 12:59:17 -0400 (EDT)

branch: externals/org-remark
commit 79ad1baf7e112fcaea32f73be1ac68fb0e875cd1
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    refactor(line): no need for text-scale-mode-hook
---
 org-remark-line.el | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/org-remark-line.el b/org-remark-line.el
index 7692829c80..774af8ea95 100644
--- a/org-remark-line.el
+++ b/org-remark-line.el
@@ -61,14 +61,10 @@
                   #'org-remark-line-find 80 :local)
         (add-hook 'window-size-change-functions
                   #'org-remark-line-set-window-margins nil :local)
-        ;; (add-hook 'text-scale-mode-hook
-        ;;           #'org-remark-line-set-buffer-windows nil :local)
         (org-remark-line-set-buffer-windows))
     (remove-hook 'org-remark-find-dwim-functions #'org-remark-line-find :local)
     (remove-hook 'window-size-change-functions
-                 #'org-remark-line-set-window-margins :local)
-    (remove-hook 'text-scale-mode-hook
-                  #'org-remark-line-set-buffer-windows :local)))
+                 #'org-remark-line-set-window-margins :local)))
 
 (defun org-remark-line-set-buffer-windows ()
   "
@@ -184,11 +180,10 @@ end of overlay being identical."
   ;; always follow the point, keeping the original place unless you
   ;; directly change the notes. That's not really an intutive behaviour,
   ;; though in some cases, it imay be useful.
-  (org-with-wide-buffer
-   (let* ((ov-start (overlay-start ov))
-          (ov-line-bol (org-remark-line-pos-bol ov-start)))
-     (unless (= ov-start ov-line-bol)
-       (move-overlay ov ov-line-bol ov-line-bol)))))
+  (let* ((ov-start (overlay-start ov))
+         (ov-line-bol (org-remark-line-pos-bol ov-start)))
+    (unless (= ov-start ov-line-bol)
+      (move-overlay ov ov-line-bol ov-line-bol))))
 
 (cl-defmethod org-remark-icon-overlay-put (ov icon-string (org-remark-type 
(eql 'line)))
   ;; If the icon-string has a display properties, assume it is an icon image



reply via email to

[Prev in Thread] Current Thread [Next in Thread]