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

  compare strings with `equal-including-properties'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7a847d8069c21f46e370e9adfa5db9a61d72e9c..1ad284b5441995c819cccf728750e62980a81eab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/linum.el b/lisp/linum.el
index 655accdeb5aa7e944f436da3f82057dc29551fdd..2108431b474fb77921e1ef1e4ccb2e90c7d6536d 100644 (file)
--- 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