[Emacs-diffs] emacs/lisp ChangeLog linum.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/01/18 01:45:38

Modified files:
        lisp           : ChangeLog linum.el 

Log message:
        * linum.el (linum-update-window): Use `delq' instead of `delete';
          compare strings with `equal-including-properties'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15126&r2=1.15127
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/linum.el?cvsroot=emacs&r1=1.10&r2=1.11

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15126
retrieving revision 1.15127
diff -u -b -r1.15126 -r1.15127
--- ChangeLog   17 Jan 2009 20:02:41 -0000      1.15126
+++ ChangeLog   18 Jan 2009 01:45:34 -0000      1.15127
@@ -1,3 +1,8 @@
+2009-01-18  Markus Triska  <address@hidden>
+
+       * linum.el (linum-update-window): Use `delq' instead of `delete';
+       compare strings with `equal-including-properties'.
+
 2009-01-17  Glenn Morris  <address@hidden>
 
        * progmodes/cc-langs.el (declare-function): Add compatibility stub.

Index: linum.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/linum.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- linum.el    5 Jan 2009 03:19:29 -0000       1.10
+++ linum.el    18 Jan 2009 01:45:38 -0000      1.11
@@ -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