# HG changeset patch # User Richard M. Stallman # Date 758763650 0 # Node ID e7dd5c1d36dc6fb57265cf7e40f8f45b75e1d961 # Parent 16074afb03dfa302133fdab5ca4e62eb338155c0 (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. diff -r 16074afb03df -r e7dd5c1d36dc lisp/isearch.el --- a/lisp/isearch.el Sun Jan 16 23:40:22 1994 +0000 +++ b/lisp/isearch.el Sun Jan 16 23:40:50 1994 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte -;; |$Date: 1994/01/10 22:27:52 $|$Revision: 1.60 $ +;; |$Date: 1994/01/15 16:24:47 $|$Revision: 1.61 $ ;; This file is part of GNU Emacs. @@ -349,7 +349,6 @@ (defvar isearch-opoint 0) ;;; The window configuration active at the beginning of the search. (defvar isearch-window-configuration nil) -(defvar isearch-old-local-map nil) ;; Flag to indicate a yank occurred, so don't move the cursor. (defvar isearch-yank-flag nil) @@ -502,7 +501,6 @@ isearch-small-window nil isearch-opoint (point) - isearch-old-local-map (current-local-map) search-ring-yank-pointer nil regexp-search-ring-yank-pointer nil) (setq isearch-window-configuration @@ -521,7 +519,8 @@ (isearch-push-state) - (use-local-map isearch-mode-map) + (make-local-variable 'overriding-local-map) + (setq overriding-local-map isearch-mode-map) (isearch-update) (run-hooks 'isearch-mode-hook) @@ -581,7 +580,7 @@ (defun isearch-done (&optional nopush) ;; Called by all commands that terminate isearch-mode. ;; If NOPUSH is non-nil, we don't push the string on the search ring. - (use-local-map isearch-old-local-map) + (setq overriding-local-map nil) ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs (isearch-dehighlight t) (let ((found-start (window-start (selected-window)))