diff options
| -rw-r--r-- | lisp/isearch.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index dd9ed079010..7ab39a5dac0 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | ;; LCD Archive Entry: | 4 | ;; LCD Archive Entry: |
| 5 | ;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu | 5 | ;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu |
| 6 | ;; |A minor mode replacement for isearch.el. | 6 | ;; |A minor mode replacement for isearch.el. |
| 7 | ;; |$Date: 1993/03/06 06:15:05 $|$Revision: 1.20 $|~/modes/isearch-mode.el | 7 | ;; |$Date: 1993/03/07 04:22:00 $|$Revision: 1.21 $|~/modes/isearch-mode.el |
| 8 | 8 | ||
| 9 | ;; This file is not yet part of GNU Emacs, but it is based almost | 9 | ;; This file is not yet part of GNU Emacs, but it is based almost |
| 10 | ;; entirely on isearch.el which is part of GNU Emacs. | 10 | ;; entirely on isearch.el which is part of GNU Emacs. |
| @@ -88,8 +88,11 @@ | |||
| 88 | ;;;==================================================================== | 88 | ;;;==================================================================== |
| 89 | ;;; Change History | 89 | ;;; Change History |
| 90 | 90 | ||
| 91 | ;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.20 1993/03/06 06:15:05 rms Exp rms $ | 91 | ;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.21 1993/03/07 04:22:00 rms Exp rms $ |
| 92 | ;;; $Log: isearch-mode.el,v $ | 92 | ;;; $Log: isearch-mode.el,v $ |
| 93 | ; Revision 1.21 1993/03/07 04:22:00 rms | ||
| 94 | ; (isearch-unread): Find last list element by hand. | ||
| 95 | ; | ||
| 93 | ; Revision 1.20 1993/03/06 06:15:05 rms | 96 | ; Revision 1.20 1993/03/06 06:15:05 rms |
| 94 | ; (isearch-unread): Handle multiple args. | 97 | ; (isearch-unread): Handle multiple args. |
| 95 | ; For Emacs 19, use listify-key-sequence. | 98 | ; For Emacs 19, use listify-key-sequence. |
| @@ -558,8 +561,10 @@ is treated as a regexp. See \\[isearch-forward] for more info." | |||
| 558 | isearch-old-local-map (current-local-map) | 561 | isearch-old-local-map (current-local-map) |
| 559 | search-ring-yank-pointer nil | 562 | search-ring-yank-pointer nil |
| 560 | regexp-search-ring-yank-pointer nil) | 563 | regexp-search-ring-yank-pointer nil) |
| 561 | (if isearch-pre-command-hook-exists | 564 | ;; This was for Lucid Emacs. But now that we have pre-command-hook, |
| 562 | (add-hook 'pre-command-hook 'isearch-pre-command-hook)) | 565 | ;; it causes trouble. |
| 566 | ;; (if isearch-pre-command-hook-exists | ||
| 567 | ;; (add-hook 'pre-command-hook 'isearch-pre-command-hook)) | ||
| 563 | (setq isearch-mode " Isearch") ;; forward? regexp? | 568 | (setq isearch-mode " Isearch") ;; forward? regexp? |
| 564 | (set-buffer-modified-p (buffer-modified-p)) ; update modeline | 569 | (set-buffer-modified-p (buffer-modified-p)) ; update modeline |
| 565 | 570 | ||