Mercurial > emacs
changeset 101274:4bcf5c96d5ee
* linum.el (linum-update-window): Use `delq' instead of `delete';
compare strings with `equal-including-properties'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 18 Jan 2009 01:45:34 +0000 |
| parents | 497ab52cc072 |
| children | 5bc8609f80b5 |
| files | lisp/ChangeLog lisp/linum.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jan 17 22:27:54 2009 +0000 +++ b/lisp/ChangeLog Sun Jan 18 01:45:34 2009 +0000 @@ -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.
--- a/lisp/linum.el Sat Jan 17 22:27:54 2009 +0000 +++ b/lisp/linum.el Sun Jan 18 01:45:34 2009 +0000 @@ -146,10 +146,11 @@ (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