Mercurial > emacs
comparison lisp/linum.el @ 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 | a9dc0e7c3f2b |
children | fe22bf79af7f |
comparison
equal
deleted
inserted
replaced
101273:497ab52cc072 | 101274:4bcf5c96d5ee |
---|---|
144 (let* ((str (if fmt | 144 (let* ((str (if fmt |
145 (propertize (format fmt line) 'face 'linum) | 145 (propertize (format fmt line) 'face 'linum) |
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 |
156 (let ((ov (if (null linum-available) | 157 (let ((ov (if (null linum-available) |
157 (make-overlay (point) (point)) | 158 (make-overlay (point) (point)) |