Mercurial > emacs

changeset 22920:f80a1ca0112f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-minibuffer-local-map): Bind the key C-g to exit. (isearch-minibuffer-self-insert): Use key-binding. Always call exit-minibuffer. (isearch-process-search-multibyte-characters): Use unread-command-events instead of unread-input-method-events. Always call isearch-update.
author Kenichi Handa <handa@m17n.org>
date Thu, 06 Aug 1998 05:38:11 +0000
parents 95d147bbdce0
children 48b85e4a4dd3
files lisp/international/isearch-x.el
diffstat 1 files changed, 9 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/isearch-x.el	Thu Aug 06 05:38:11 1998 +0000
+++ b/lisp/international/isearch-x.el	Thu Aug 06 05:38:11 1998 +0000
@@ -63,6 +63,7 @@
 	(setq l (cdr l))))
     (define-key map "\C-m" 'exit-minibuffer)
     (define-key map [return] 'exit-minibuffer)
+    (define-key map "\C-g" 'exit-minibuffer)
     map)
   "Keymap of minibuffer to input multibyte characters while isearching.")
 
@@ -77,8 +78,9 @@
     (catch 'isearch-tag
       (while events
 	(let* ((event (car events))
-	       (cmd (lookup-key isearch-mode-map (vector event))))
-	  (cond ((eq cmd 'isearch-printing-char)
+	       (cmd (key-binding (vector event))))
+	  (cond ((or (eq cmd 'isearch-printing-char)
+		     (eq cmd 'isearch-minibuffer-self-insert))
 		 (insert event)
 		 (setq events (cdr events)))
 		((eq cmd 'exit-minibuffer)
@@ -87,8 +89,7 @@
 		(t
 		 (throw 'isearch-tag nil))))))
     (setq unread-post-input-method-events events)
-    (or unread-post-input-method-events
-	(exit-minibuffer))))
+    (exit-minibuffer)))
 
 ;;;###autoload
 (defun isearch-process-search-multibyte-characters (last-char)
@@ -98,15 +99,15 @@
 	    (input-method-verbose-flag nil)
 	    (minibuffer-local-map isearch-minibuffer-local-map)
 	    str)
-	(setq unread-input-method-events
-	      (cons last-char unread-input-method-events))
+	(setq unread-command-events
+	      (cons last-char unread-command-events))
 	(setq str (read-multilingual-string
 		   (concat (isearch-message-prefix) isearch-message)
 		   nil
 		   current-input-method))
 	(if (and str (> (length str) 0))
-	    (isearch-process-search-string str str)
-	  (isearch-update)))
+	    (isearch-process-search-string str str))
+	(isearch-update))
     (isearch-process-search-char last-char)))
 
 ;;; isearch-x.el ends here