aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-01-16 23:40:50 +0000
committerRichard M. Stallman1994-01-16 23:40:50 +0000
commit849cfd72e1cdf38c6b33d730809946f1c3e53a93 (patch)
tree4dff635d3e018b974af54bc60ffb0605b32a57d8
parent9dd3131cef4c12d4df7b763b3a68b692afb0345b (diff)
downloademacs-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.el9
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)))