Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!mex1!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kuis!kudpc!sakura.kudpc.kyoto-u.ac.jp!a50350
From: a50350@sakura.kudpc.kyoto-u.ac.jp (mugitani)
Subject: SUMARRY:how to turn on egg-mode in minibuffer
Message-ID: <A50350.92Aug28155625@sakura.sakura.kudpc.kyoto-u.ac.jp>
Sender: news@kudpc.kyoto-u.ac.jp
Nntp-Posting-Host: sakura.kudpc.kyoto-u.ac.jp
Organization: Data Processing Center, Kyoto University, Kyoto, JAPAN
Distribution: fj
Date: Fri, 28 Aug 1992 06:56:25 GMT
Lines: 119
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3118
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3118&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$BsNC+!w5~Bg?MJ88&$G$9!#(B

$B@hF|(Bminibuffer$B$G$N(Begg-mode$B$N(Bon off$B$N;EJ}$K$D$$$F<ALdCW$7$^$7$?$H$3$m!"(B

$B@nK\!wBg:eBg3X$5$s!#(B
$BA0ED(B@$BElBg(B.$BM}(B.$B>pJs$5$s!#(B
Shingo Nishioka@ei.sanken.osaka-u.ac.jp$B$5$s!#(B

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

$B7k6I!"(Bmini buffer$B$G$N(Begg$B$N(Bon off$B$N;EJ}$H$7$F$O!"(B

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

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

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

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

$B$^$?!"(B^s^k$B$G%5!<%A$9$k;~$K<+F0E*$K(Begg$B$r(Bon$B$9$k$K$O!"(B

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

$B$H$N$3$H$G$7$?!#(B

--
$B5~ETBg3X(B $B?MJ82J3X8&5f=j(B 
$BsNC+K.IW(B MUGITANI Kunio  

