From 0ca77a9234ff1555b69dcba48bc9a383c404c3ef Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 18 Jan 2009 01:45:34 +0000 Subject: [PATCH] * linum.el (linum-update-window): Use `delq' instead of `delete'; compare strings with `equal-including-properties'. --- lisp/ChangeLog | 5 +++++ lisp/linum.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7a847d8069..1ad284b5441 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-01-18 Markus Triska + + * linum.el (linum-update-window): Use `delq' instead of `delete'; + compare strings with `equal-including-properties'. + 2009-01-17 Glenn Morris * progmodes/cc-langs.el (declare-function): Add compatibility stub. diff --git a/lisp/linum.el b/lisp/linum.el index 655accdeb5a..2108431b474 100644 --- a/lisp/linum.el +++ b/lisp/linum.el @@ -146,10 +146,11 @@ and you have to scroll or press \\[recenter-top-bottom] to update the numbers." (funcall linum-format line))) (visited (catch 'visited (dolist (o (overlays-in (point) (point))) - (when (string= (overlay-get o 'linum-str) str) + (when (equal-including-properties + (overlay-get o 'linum-str) str) (unless (memq o linum-overlays) (push o linum-overlays)) - (setq linum-available (delete o linum-available)) + (setq linum-available (delq o linum-available)) (throw 'visited t)))))) (setq width (max width (length str))) (unless visited -- 2.39.2