diff options
| author | Juanma Barranquero | 2009-01-18 01:45:34 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2009-01-18 01:45:34 +0000 |
| commit | 0ca77a9234ff1555b69dcba48bc9a383c404c3ef (patch) | |
| tree | 5ae2b82b59b4de011d7a15ce48820ae8e98022e8 | |
| parent | 377952e006da45c3ba6ef21b8adae22a4e91ae7f (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2009-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 | |||
| 1 | 2009-01-17 Glenn Morris <rgm@gnu.org> | 6 | 2009-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 |