diff options
| author | Richard M. Stallman | 1994-01-16 23:40:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-16 23:40:50 +0000 |
| commit | 849cfd72e1cdf38c6b33d730809946f1c3e53a93 (patch) | |
| tree | 4dff635d3e018b974af54bc60ffb0605b32a57d8 | |
| parent | 9dd3131cef4c12d4df7b763b3a68b692afb0345b (diff) | |
| download | emacs-849cfd72e1cdf38c6b33d730809946f1c3e53a93.tar.gz emacs-849cfd72e1cdf38c6b33d730809946f1c3e53a93.zip | |
(isearch-mode): Set overriding-local-map locally.
Don't set isearch-old-local-map and don't call use-local-map.
(isearch-done): Set overriding-local-map to nil.
Don't call use-local-map.
(isearch-old-local-map): Variable deleted.
| -rw-r--r-- | lisp/isearch.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index b7534ba737b..7fd87e05e95 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | 4 | ||
| 5 | ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> | 5 | ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> |
| 6 | 6 | ||
| 7 | ;; |$Date: 1994/01/10 22:27:52 $|$Revision: 1.60 $ | 7 | ;; |$Date: 1994/01/15 16:24:47 $|$Revision: 1.61 $ |
| 8 | 8 | ||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| 10 | 10 | ||
| @@ -349,7 +349,6 @@ Default value, nil, means edit the string instead.") | |||
| 349 | (defvar isearch-opoint 0) | 349 | (defvar isearch-opoint 0) |
| 350 | ;;; The window configuration active at the beginning of the search. | 350 | ;;; The window configuration active at the beginning of the search. |
| 351 | (defvar isearch-window-configuration nil) | 351 | (defvar isearch-window-configuration nil) |
| 352 | (defvar isearch-old-local-map nil) | ||
| 353 | 352 | ||
| 354 | ;; Flag to indicate a yank occurred, so don't move the cursor. | 353 | ;; Flag to indicate a yank occurred, so don't move the cursor. |
| 355 | (defvar isearch-yank-flag nil) | 354 | (defvar isearch-yank-flag nil) |
| @@ -502,7 +501,6 @@ is treated as a regexp. See \\[isearch-forward] for more info." | |||
| 502 | isearch-small-window nil | 501 | isearch-small-window nil |
| 503 | 502 | ||
| 504 | isearch-opoint (point) | 503 | isearch-opoint (point) |
| 505 | isearch-old-local-map (current-local-map) | ||
| 506 | search-ring-yank-pointer nil | 504 | search-ring-yank-pointer nil |
| 507 | regexp-search-ring-yank-pointer nil) | 505 | regexp-search-ring-yank-pointer nil) |
| 508 | (setq isearch-window-configuration | 506 | (setq isearch-window-configuration |
| @@ -521,7 +519,8 @@ is treated as a regexp. See \\[isearch-forward] for more info." | |||
| 521 | 519 | ||
| 522 | (isearch-push-state) | 520 | (isearch-push-state) |
| 523 | 521 | ||
| 524 | (use-local-map isearch-mode-map) | 522 | (make-local-variable 'overriding-local-map) |
| 523 | (setq overriding-local-map isearch-mode-map) | ||
| 525 | (isearch-update) | 524 | (isearch-update) |
| 526 | (run-hooks 'isearch-mode-hook) | 525 | (run-hooks 'isearch-mode-hook) |
| 527 | 526 | ||
| @@ -581,7 +580,7 @@ is treated as a regexp. See \\[isearch-forward] for more info." | |||
| 581 | (defun isearch-done (&optional nopush) | 580 | (defun isearch-done (&optional nopush) |
| 582 | ;; Called by all commands that terminate isearch-mode. | 581 | ;; Called by all commands that terminate isearch-mode. |
| 583 | ;; If NOPUSH is non-nil, we don't push the string on the search ring. | 582 | ;; If NOPUSH is non-nil, we don't push the string on the search ring. |
| 584 | (use-local-map isearch-old-local-map) | 583 | (setq overriding-local-map nil) |
| 585 | ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs | 584 | ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs |
| 586 | (isearch-dehighlight t) | 585 | (isearch-dehighlight t) |
| 587 | (let ((found-start (window-start (selected-window))) | 586 | (let ((found-start (window-start (selected-window))) |