aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2009-01-18 01:45:34 +0000
committerJuanma Barranquero2009-01-18 01:45:34 +0000
commit0ca77a9234ff1555b69dcba48bc9a383c404c3ef (patch)
tree5ae2b82b59b4de011d7a15ce48820ae8e98022e8
parent377952e006da45c3ba6ef21b8adae22a4e91ae7f (diff)
downloademacs-0ca77a9234ff1555b69dcba48bc9a383c404c3ef.tar.gz
emacs-0ca77a9234ff1555b69dcba48bc9a383c404c3ef.zip
* linum.el (linum-update-window): Use `delq' instead of `delete';
compare strings with `equal-including-properties'.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/linum.el5
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 @@
12009-01-18 Markus Triska <markus.triska@gmx.at>
2
3 * linum.el (linum-update-window): Use `delq' instead of `delete';
4 compare strings with `equal-including-properties'.
5
12009-01-17 Glenn Morris <rgm@gnu.org> 62009-01-17 Glenn Morris <rgm@gnu.org>
2 7
3 * progmodes/cc-langs.el (declare-function): Add compatibility stub. 8 * 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."
146 (funcall linum-format line))) 146 (funcall linum-format line)))
147 (visited (catch 'visited 147 (visited (catch 'visited
148 (dolist (o (overlays-in (point) (point))) 148 (dolist (o (overlays-in (point) (point)))
149 (when (string= (overlay-get o 'linum-str) str) 149 (when (equal-including-properties
150 (overlay-get o 'linum-str) str)
150 (unless (memq o linum-overlays) 151 (unless (memq o linum-overlays)
151 (push o linum-overlays)) 152 (push o linum-overlays))
152 (setq linum-available (delete o linum-available)) 153 (setq linum-available (delq o linum-available))
153 (throw 'visited t)))))) 154 (throw 'visited t))))))
154 (setq width (max width (length str))) 155 (setq width (max width (length str)))
155 (unless visited 156 (unless visited