mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

* linum.el (linum-update-window): Use delq' instead of delete';

Browse Source 
compare strings with `equal-including-properties'.
This commit is contained in:
Juanma Barranquero 2009-01-18 01:45:34 +00:00
parent 377952e006
commit 0ca77a9234
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-01-18 Markus Triska <markus.triska@gmx.at>
* linum.el (linum-update-window): Use `delq' instead of `delete';
compare strings with `equal-including-properties'.
2009-01-17 Glenn Morris <rgm@gnu.org>
* progmodes/cc-langs.el (declare-function): Add compatibility stub.

5
lisp/linum.el
View File

@ -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