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)) |