comparison lisp/isearch.el @ 12265:1d2296cfa1e3

(isearch-mode): Use overriding-terminal-local-map, not overriding-local-map. (isearch-done): Likewise.

12264:93010bff5b56

  (setq	isearch-mode " Isearch")  ;; forward? regexp?
  (force-mode-line-update)

  (isearch-push-state)

  (make-local-variable 'overriding-local-map)
  (setq overriding-local-map isearch-mode-map)
  (isearch-update)
  (run-hooks 'isearch-mode-hook)

  (setq mouse-leave-buffer-hook '(isearch-done))

(defun isearch-done (&optional nopush edit)
  (setq mouse-leave-buffer-hook nil)
  ;; Called by all commands that terminate isearch-mode.
  ;; If NOPUSH is non-nil, we don't push the string on the search ring.
  (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)))
	(found-point (point)))
    (if isearch-window-configuration

12265:1d2296cfa1e3

  (setq	isearch-mode " Isearch")  ;; forward? regexp?
  (force-mode-line-update)

  (isearch-push-state)

  (setq overriding-terminal-local-map isearch-mode-map)
  (isearch-update)
  (run-hooks 'isearch-mode-hook)

  (setq mouse-leave-buffer-hook '(isearch-done))

(defun isearch-done (&optional nopush edit)
  (setq mouse-leave-buffer-hook nil)
  ;; Called by all commands that terminate isearch-mode.
  ;; If NOPUSH is non-nil, we don't push the string on the search ring.
  (setq overriding-terminal-local-map nil)
  ;; (setq pre-command-hook isearch-old-pre-command-hook) ; for lemacs
  (isearch-dehighlight t)
  (let ((found-start (window-start (selected-window)))
	(found-point (point)))
    (if isearch-window-configuration