From: a50350@sakura.kudpc.kyoto-u.ac.jp (mugitani)
Subject: SUMARRY:how to turn on egg-mode in minibuffer
Organization: Data Processing Center, Kyoto University, Kyoto, JAPAN
Distribution: fj
Date: Fri, 28 Aug 1992 06:56:25 GMT


$@sNC+!w5~Bg?MJ88&$G$9!#(J

$@@hF|(Jminibuffer$@$G$N(Jegg-mode$@$N(Jon off$@$N;EJ}$K$D$$$F<ALdCW$7$^$7$?$H$3$m!"(J

$@@nK\!wBg:eBg3X$5$s!#(J
$@A0ED(J@$@ElBg(J.$@M}(J.$@>pJs$5$s!#(J
Shingo Nishioka@ei.sanken.osaka-u.ac.jp$@$5$s!#(J

$@$+$i(Jnews$@$*$h$S(Jmail$@$G2sEz$r$$$?$@$-$^$7$?!#0l=54V$[$I2F5Y$_$GN1(J$@<i$r$7$F(J
$@$$$^$7$?$N$G!"$*Ni$,$*$=$/$J$j$^$7$?!#$"$i$?$a$F$*Ni?=$7>e$2$^$9!#(J

$@7k6I!"(Jmini buffer$@$G$N(Jegg$@$N(Jon off$@$N;EJ}$H$7$F$O!"(J

$@!d@nK\!wBg:eBg3X$5$s!#(J
$@!d(J  (let ((default (default-value egg:$@!d(J*mode-on$@!d(J*)))
$@!d(J    (unwind-protect
$@!d(J	(progn
$@!d(J	  (setq-default egg:$@!d(J*mode-on$@!d(J* t)
$@!d(J	  (read-from-minibuffer "> "))
$@!d(J      (setq-default egg:$@!d(J*mode-on$@!d(J* default)))

$@!dA0ED(J@$@ElBg(J.$@M}(J.$@>pJs$5$s!#(J
$@!d(Jdirty hack $@$K(J$@F~$k$+$H;W$$$^$9$,!"(J
$@!d(J
$@!d(J	(setq unread-command-char ?\C-\\)
$@!d(J	(read-from-minibuffer "> ")
$@!d(J
$@!d$J$s(J$@$F$N$G$O$@$a$G$9$+(J?

$@!d(JShingo Nishioka@ei.sanken.osaka-u.ac.jp$@$5$s!#(J
$@!d(Jset-buffer $@$7$F$+$i(J toggle-egg-mode $@$r;H$&$H$&$^$/9T$-$^$9(J.  dserver$@$K(J
$@!dIU$$$F$$$k(Jdiclookup.el$@$G$O<!$N$h$&$K$7$F$$$^$9(J.
$@!d(J
$@!d(J(defvar od:*fep-type* 'egg)	;egg, iroha, t-code or no-fep
$@!d(J
$@!d(J(defun od:read-string-with-fep (prompt initial)
$@!d(J  (set-buffer (format " *Minibuf-%d*" (minibuffer-depth)))
$@!d(J  (cond ((or (not od:*input-by-kanji*)
$@!d(J	     (eql od:*fep-type* 'no-fep))
$@!d(J	 (format "%s" (read-minibuffer prompt (or initial ""))))
$@!d(J	((eql od:*fep-type* 'egg)
$@!d(J	 (toggle-egg-mode)
$@!d(J	 (format "%s" (read-minibuffer prompt (or initial ""))))
$@!d(J	((eql od:*fep-type* 'iroha)
$@!d(J	 (if (not iroha:*japanese-mode*)(iroha-toggle-japanese-mode))
$@!d(J	 (format "%s" (read-minibuffer prompt (or initial ""))))
$@!d(J	((eql od:*fep-type* 't-code)
$@!d(J	 (setq tcode-on-in-minibuffer nil)
$@!d(J	 (setq unread-command-char od:*tcode-toggle-char*)
$@!d(J	 (format "%s" (read-minibuffer prompt (or initial ""))))
$@!d(J	(t (error "Unknown fep-type %s" od:*fep-type*))))

$@$H$$$C$?J}K!$,$"$k$h$&$G$9!#(J

$@$^$?!"(J^s^k$@$G%5!<%A$9$k;~$K<+F0E*$K(Jegg$@$r(Jon$@$9$k$K$O!"(J

$@!d(JShingo Nishioka@ei.sanken.osaka-u.ac.jp$@$5$s!#(J
$@!d(J
$@!d$3$l$K$D$$$F$O(J, $@<!$N$h$&$J%3!<%I(J(read-string-with-egg)$@$G2DG=$G$9(J. 
$@!d(J($@$3$l$O(J, toggle-egg-mode $@$G$O$J$/(J, unread-command-char$@$r;H$C$?J}K!$G$9(J.)
$@!d(J
$@!d!d(J*** /usr/local/emacs/lisp/isearch.el	Sat Jul 14 08:54:09 1990
$@!d(J--- isearch.el	Wed Apr  1 10:20:09 1992
$@!d!d(J***************
$@!d!d(J*** 54,59 ****
$@!d(J--- 54,62 ----
$@!d(J  ;This is the style where a one-line window is created to show the line
$@!d(J  ;that the search has reached.")
$@!d(J  
$@!d(J+ (defconst search-exit-char ?\C-l
$@!d(J+   "Character to exit incremental search.")
$@!d(J+ 
$@!d(J  ;; This function does all the work of incremental search.
$@!d(J  ;; The functions attached to ^R and ^S are trivial,
$@!d(J  ;; merely calling this one, but they are always loaded by default
$@!d!d(J***************
$@!d!d(J*** 65,70 ****
$@!d(J--- 68,82 ----
$@!d(J  (defvar search-string-char-prompt "Enter string... ")
$@!d(J  (defvar current-isearch-message "")
$@!d(J  ;;; end of patch
$@!d(J+ ;;; patch by S.Nishioka 90.02.21
$@!d(J+ (defconst search-string-char-egg ?\C-j)
$@!d(J+ 
$@!d(J+ (defun read-string-with-egg (prompt)
$@!d(J+   (set-buffer (format " *Minibuf-%d*" (minibuffer-depth)))
$@!d(J+   (setq tcode-on-in-minibuffer nil)
$@!d(J+   (setq unread-command-char ?\240)
$@!d(J+   (read-string prompt))
$@!d(J+ ;;; end of patch
$@!d(J  
$@!d(J  (defun isearch (forward &optional regexp)
$@!d(J    (let ((search-string "")
$@!d!d(J***************
$@!d!d(J*** 202,207 ****
$@!d(J--- 214,228 ----
$@!d(J  			 ((eq char search-string-char)
$@!d(J  			  (let ((str (save-excursion
$@!d(J  				       (read-string
$@!d(J+ 					(concat search-string-char-prompt
$@!d(J+ 						current-isearch-message)))))
$@!d(J+ 			    (setq search-string (concat search-string str)
$@!d(J+ 				  search-message
$@!d(J+ 				    (concat search-message str))))
$@!d(J+  			 ;;; patch by S.Nishioka 90.02.21
$@!d(J+ 			 ((eq char search-string-char-egg)
$@!d(J+ 			  (let ((str (save-excursion
$@!d(J+ 				       (read-string-with-egg
$@!d(J  					(concat search-string-char-prompt
$@!d(J  						current-isearch-message)))))
$@!d(J  			    (setq search-string (concat search-string str)

$@$H$N$3$H$G$7$?!#(J

--
$@5~ETBg3X(J $@?MJ82J3X8&(J$@5f=j(J 
$@sNC+K.IW(J MUGITANI Kunio