Commits

Anonymous committed a939946

yomi fix for egg-wnn

  • Participants
  • Parent commits 2f0df9b

Comments (0)

Files changed (4)

+1998-06-20	Kazuyuki IENAGA <ienaga@jsys.co.jp>
+
+	* egg-wnn.el: If one want to add some
+	word into his dictionary, one can input "yomi" neither in Japanese 
+	hiragana nor English on the mini buffer prompted.
+	From kondo@dse.ibaraki.ac.jp (Hisashi Kondo).
+
+1998-06-29  SL Baur  <steve@altair.xemacs.org>
+
+	* package-info.in: Update provides.
+
 1998-01-24  SL Baur  <steve@altair.xemacs.org>
 
 	* Makefile (VERSION): Update to package standard 1.0.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.04
+VERSION = 1.05
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = egg-its
     (run-hooks 'its:select-mode-hook)))
 
 (defun read-current-its-string (prompt &optional initial-input henkan)
+  (let ((egg:fence-buffer (window-buffer (minibuffer-window)))
+        (old-its-map its:*current-map*)
+        (minibuffer-exit-hook
+         (append minibuffer-exit-hook
+                 '((lambda () (use-local-map minibuffer-local-map))))))
   (save-excursion
-    (let ((old-its-map its:*current-map*)
-	  (minibuff (window-buffer (minibuffer-window))))
-      (set-buffer minibuff)
-      (setq egg:*input-mode* t
-	    egg:*mode-on*    t
-	    its:*current-map* old-its-map)
-      (mode-line-egg-mode-update
-       (nth 1 (its:get-mode-indicator its:*current-map*)))
-      (read-from-minibuffer prompt initial-input
-			    (if henkan nil
-			      egg:*minibuffer-local-hiragana-map*)))))
+    (set-buffer egg:fence-buffer)
+    (setq egg:*input-mode* t
+          egg:*mode-on*    t
+          its:*current-map* old-its-map)
+    (mode-line-egg-mode-update
+     (nth 1 (its:get-mode-indicator its:*current-map*)))
+    (read-from-minibuffer prompt initial-input
+                          (if henkan nil
+                            egg:*minibuffer-local-hiragana-map*)))))
 
 ;;;----------------------------------------------------------------------
 ;;;
    filename FILENAME
    md5sum MD5SUM
    size SIZE
-   provides ()
+   provides (egg-cnpinyin egg-cnzhuyin egg-cwnn-leim egg-jisx0201 egg-jsymbol egg-kwnn-leim egg-leim egg-sj3-client egg-sj3-leim egg-sj3 egg-wnn egg)
    requires (REQUIRES)
    type regular
 ))