🚀 go-pugleaf

In article <DJ8zso.L3z@kawasaki.flab.fujitsu.co.jp>,
	ytajima@flab.fujitsu.co.jp writes:

> C-s,C-r(incremental search) $B$N$H$-(B, C-\$B$7$FF|K\8lF~NO$,$G$-$^$;$s(B.
> [$B$"(B]I-search: $B$N$h$&$K$OI=<($,=P$k$N$G$9$,(B, $B$3$3$GJ8;z$rF~NO$7$h$&$H(B
> $B$9$k$HE\$i$l$^$9(B.

	$B0J2<$N(B patch $B$GD>$k$h$&$G$9(B.

$B$($J$_(B $B$D$0$H$b(B
Index: isearch-ext.el
===================================================================
RCS file: /vol/cvs/emacs/lisp/isearch-ext.el,v
retrieving revision 1.1.3.2
diff -u -r1.1.3.2 isearch-ext.el
--- isearch-ext.el	1995/09/11 09:01:46	1.1.3.2
+++ isearch-ext.el	1995/12/07 04:55:00
@@ -124,6 +124,7 @@
   (save-excursion
     (set-buffer (window-buffer (minibuffer-window)))
     (let* ((overriding-local-map nil)
+	   (overriding-terminal-local-map nil)
 	   (minibuffer-local-map (cons 'keymap minibuffer-local-map)))
       ;; Some program overwrites "\C-m"'s default binding.
       (define-key minibuffer-local-map "\C-m" 'exit-minibuffer)
@@ -174,6 +175,7 @@
 	  (let ((display-minibuffer-mode-in-minibuffer t)
 		(egg:*input-mode* t)
 		(egg:*mode-on* t)
+		(overriding-terminal-local-map nil)
 		(self-insert-after-hook 'isearch-exit-minibuffer-egg))
 	    (setq unread-command-events (listify-key-sequence first-str))
 	    (unwind-protect
@@ -212,6 +214,7 @@
 	      (canna:*japanese-mode* t)
 	      (canna:*japanese-mode-in-minibuffer* t)
 	      (canna:*fence-mode* nil)
+	      (overriding-terminal-local-map nil)
 	      (self-insert-after-hook 'isearch-exit-minibuffer-canna))
 	  (setq unread-command-events (listify-key-sequence first-str))
 	  (unwind-protect
@@ -240,7 +243,8 @@
     (exit-minibuffer)))
 
 (defun isearch-fep-read-quail (first-str)
-  (let ((quail-self-insert-after-hook 'isearch-exit-minibuffer-quail))
+  (let ((quail-self-insert-after-hook 'isearch-exit-minibuffer-quail)
+	(overriding-terminal-local-map nil))
     (setq unread-command-events (cons ?\C-\] (listify-key-sequence first-str)))
     (unwind-protect
 	(read-from-minibuffer