From 245be23c669af9fa2a241531a74522b5cccc884c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 22 Sep 2009 00:06:28 +0000 Subject: [PATCH] * linum.el (linum-delete-overlays, linum-update-window): Do not modify the right margin. (Bug#3971) --- lisp/ChangeLog | 5 +++++ lisp/linum.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56328bbad57..b0ecec11bbd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-09-22 Lennart Borgman + + * linum.el (linum-delete-overlays, linum-update-window): + Do not modify the right margin. (Bug#3971) + 2009-09-21 Chong Yidong * files.el (conf-mode-maybe, magic-fallback-mode-alist): Use diff --git a/lisp/linum.el b/lisp/linum.el index 9e0e54a49e1..81b48e99067 100644 --- a/lisp/linum.el +++ b/lisp/linum.el @@ -113,7 +113,7 @@ and you have to scroll or press \\[recenter-top-bottom] to update the numbers." (mapc #'delete-overlay linum-overlays) (setq linum-overlays nil) (dolist (w (get-buffer-window-list (current-buffer) nil t)) - (set-window-margins w 0))) + (set-window-margins w 0 (cdr (window-margins w))))) (defun linum-update-current () "Update line numbers for the current buffer." @@ -168,7 +168,7 @@ and you have to scroll or press \\[recenter-top-bottom] to update the numbers." (overlay-put ov 'linum-str str)))) (forward-line) (setq line (1+ line))) - (set-window-margins win width))) + (set-window-margins win width (cdr (window-margins win))))) (defun linum-after-change (beg end len) ;; update overlays on deletions, and after newlines are inserted -- 2.39.5