Mercurial > hg > xemacs-beta

comparison lisp/egg/egg.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e121b013d1f0
children e45d5e7c476e
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
2845 (let ((minibuff (window-buffer (minibuffer-window)))) 2845 (let ((minibuff (window-buffer (minibuffer-window))))
2846 (set-buffer minibuff) 2846 (set-buffer minibuff)
2847 (setq egg:*input-mode* t 2847 (setq egg:*input-mode* t
2848 egg:*mode-on* t 2848 egg:*mode-on* t
2849 its:*current-map* (its:get-mode-map "roma-kana")) 2849 its:*current-map* (its:get-mode-map "roma-kana"))
2850 (mode-line-egg-mode-update (its:get-mode-indicator its:*current-map*)))) 2850 (mode-line-egg-mode-update (its:get-mode-indicator "roma-kana"))))
2851 (read-from-minibuffer prompt initial-input 2851 (read-from-minibuffer prompt initial-input
2852 egg:*minibuffer-local-hiragana-map*)) 2852 egg:*minibuffer-local-hiragana-map*))
2853 2853
2854 (defun read-kanji-string (prompt &optional initial-input) 2854 (defun read-kanji-string (prompt &optional initial-input)
2855 (save-excursion 2855 (save-excursion