Mercurial > hg > xemacs-beta
comparison lisp/isearch-mode.el @ 442:abe6d1db359e r21-2-36
Import from CVS: tag r21-2-36
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:35:02 +0200 |
| parents | 8de8e3f6228a |
| children | 576fb035e263 |
comparison
equal
deleted
inserted
replaced
| 441:72a7cfa4a488 | 442:abe6d1db359e |
|---|---|
| 1208 (if (zerop length) | 1208 (if (zerop length) |
| 1209 () | 1209 () |
| 1210 (set yank-pointer-name | 1210 (set yank-pointer-name |
| 1211 (setq yank-pointer | 1211 (setq yank-pointer |
| 1212 (mod (+ (or yank-pointer 0) | 1212 (mod (+ (or yank-pointer 0) |
| 1213 (if advance -1 1)) | 1213 ;; XEmacs change |
| 1214 (if advance -1 (if yank-pointer 1 0))) | |
| 1214 length))) | 1215 length))) |
| 1215 (setq isearch-string (nth yank-pointer ring) | 1216 (setq isearch-string (nth yank-pointer ring) |
| 1216 isearch-message (mapconcat 'isearch-text-char-description | 1217 isearch-message (mapconcat 'isearch-text-char-description |
| 1217 isearch-string ""))))) | 1218 isearch-string ""))))) |
| 1218 | 1219 |
| 1881 (defun isearch-highlight-all-cleanup () | 1882 (defun isearch-highlight-all-cleanup () |
| 1882 ;; Stop lazily highlighting and remove extra highlighting from | 1883 ;; Stop lazily highlighting and remove extra highlighting from |
| 1883 ;; buffer. | 1884 ;; buffer. |
| 1884 (mapc #'delete-extent isearch-highlight-extents) | 1885 (mapc #'delete-extent isearch-highlight-extents) |
| 1885 (setq isearch-highlight-extents nil) | 1886 (setq isearch-highlight-extents nil) |
| 1886 (setq isearch-highlight-all-start nil | 1887 (setq isearch-window-end nil |
| 1887 isearch-window-end nil | |
| 1888 isearch-highlight-last-string nil)) | 1888 isearch-highlight-last-string nil)) |
| 1889 | 1889 |
| 1890 (defun isearch-highlight-all-update () | 1890 (defun isearch-highlight-all-update () |
| 1891 ;; Update the highlighting if necessary. This needs to check if the | 1891 ;; Update the highlighting if necessary. This needs to check if the |
| 1892 ;; search string has changed, or if the window has changed position | 1892 ;; search string has changed, or if the window has changed position |