Mercurial > hg > xemacs-beta

comparison lisp/egg/egg.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 0d2f883870bc
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
401 (defalias 'buffer-disable-undo 'buffer-flush-undo)) 401 (defalias 'buffer-disable-undo 'buffer-flush-undo))
402 402
403 ;; 97.2.4 Created by J.Hein to simulate Mule-2.3 403 ;; 97.2.4 Created by J.Hein to simulate Mule-2.3
404 (defun read-event () 404 (defun read-event ()
405 "Cheap 'n cheesy event filter to facilitate translation from Mule-2.3" 405 "Cheap 'n cheesy event filter to facilitate translation from Mule-2.3"
406 (setq event (make-event)) 406 (let ((event (make-event)))
407 (while (progn 407 (while (progn
408 (next-event event) 408 (next-event event)
409 (not (key-press-event-p event))) 409 (not (key-press-event-p event)))
410 (dispatch-event event)) 410 (dispatch-event event))
411 (event-key event)) 411 (event-key event)))
412 412
413 (eval-when-compile (require 'egg-jsymbol)) 413 (eval-when-compile (require 'egg-jsymbol))
414 414
415 ;;;---------------------------------------------------------------------- 415 ;;;----------------------------------------------------------------------
416 ;;; 416 ;;;
878 ;;; 878 ;;;
879 ;;; $B0l3g7?JQ495!G=(B 879 ;;; $B0l3g7?JQ495!G=(B
880 ;;; 880 ;;;
881 ;;;---------------------------------------------------------------------- 881 ;;;----------------------------------------------------------------------
882 882
883 (defvar ascii-char "[\40-\176]")
884
885 (defvar ascii-space "[ \t]")
886 (defvar ascii-symbols "[\40-\57\72-\100\133-\140\173-\176]")
887 (defvar ascii-numeric "[\60-\71]")
888 (defvar ascii-English-Upper "[\101-\132]")
889 (defvar ascii-English-Lower "[\141-\172]")
890
891 (defvar ascii-alphanumeric "[\60-\71\101-\132\141-\172]")
892
893 (defvar kanji-char "\\cj")
894 (defvar kanji-space "$B!!(B")
895 (defvar kanji-symbols "\\cS")
896 (defvar kanji-numeric "[$B#0(B-$B#9(B]")
897 (defvar kanji-English-Upper "[$B#A(B-$B#Z(B]")
898 (defvar kanji-English-Lower "[$B#a(B-$B#z(B]")
899 ;;; Bug fixed by Yoshida@CSK on 88-AUG-24
900 (defvar kanji-hiragana "\\cH")
901 (defvar kanji-katakana "\\cK")
902 ;;;
903 (defvar kanji-Greek-Upper "[$B&!(B-$B&8(B]")
904 (defvar kanji-Greek-Lower "[$B&A(B-$B&X(B]")
905 (defvar kanji-Russian-Upper "[$B'!(B-$B'A(B]")
906 (defvar kanji-Russian-Lower "[$B'Q(B-$B'q(B]")
907 (defvar kanji-Kanji-1st-Level "[$B0!(B-$BOS(B]")
908 (defvar kanji-Kanji-2nd-Level "[$BP!(B-$Bt$(B]")
909
910 (defvar kanji-kanji-char "\\(\\cH\\|\\cK\\|\\cC\\)")
911
912 (defvar aletter (concat "\\(" ascii-char "\\|" kanji-char "\\)"))
913 883
914 ;;; 884 ;;;
915 ;;; $B$R$i$,$JJQ49(B 885 ;;; $B$R$i$,$JJQ49(B
916 ;;; 886 ;;;
917 887
1678 (and (characterp ch) (<= ch 127) 1648 (and (characterp ch) (<= ch 127)
1679 (eq (lookup-key fence-mode-map (char-to-string ch)) 'fence-backward-delete-char))) 1649 (eq (lookup-key fence-mode-map (char-to-string ch)) 'fence-backward-delete-char)))
1680 1650
1681 (defun fence-self-insert-command () 1651 (defun fence-self-insert-command ()
1682 (interactive) 1652 (interactive)
1683 (setq ch (event-to-character last-command-event)) 1653 (let ((ch (event-to-character last-command-event)))
1684 (cond((or (not egg:*input-mode*) 1654 (cond((or (not egg:*input-mode*)
1685 (null (get-next-map its:*current-map* ch))) 1655 (null (get-next-map its:*current-map* ch)))
1686 (insert ch)) 1656 (insert ch))
1687 (t 1657 (t
1688 (insert ch) 1658 (insert ch)
1689 (its:translate-region (1- (point)) (point) t)))) 1659 (its:translate-region (1- (point)) (point) t)))))
1690 1660
1691 ;;; 1661 ;;;
1692 ;;; its: completing-read system 1662 ;;; its: completing-read system
1693 ;;; 1663 ;;;
1694 1664
2191 (defun egg:select-window-hook (old new) 2161 (defun egg:select-window-hook (old new)
2192 (if (and (eq old (minibuffer-window)) 2162 (if (and (eq old (minibuffer-window))
2193 (not (eq new (minibuffer-window)))) 2163 (not (eq new (minibuffer-window))))
2194 (save-excursion 2164 (save-excursion
2195 (set-buffer (window-buffer (minibuffer-window))) 2165 (set-buffer (window-buffer (minibuffer-window)))
2196 (setq minibuffer-preprompt nil 2166 (set-minibuffer-preprompt nil)
2197 egg:*mode-on* (default-value 'egg:*mode-on*) 2167 (setq egg:*mode-on* (default-value 'egg:*mode-on*)
2198 egg:*input-mode* (default-value 'egg:*input-mode*) 2168 egg:*input-mode* (default-value 'egg:*input-mode*)
2199 egg:*in-fence-mode* (default-value 'egg:*in-fence-mode*)))) 2169 egg:*in-fence-mode* (default-value 'egg:*in-fence-mode*))))
2200 (if (eq new (minibuffer-window)) 2170 (if (eq new (minibuffer-window))
2201 (setq minibuffer-window-selected t) 2171 (setq minibuffer-window-selected t)
2202 (setq minibuffer-window-selected nil))) 2172 (setq minibuffer-window-selected nil)))
2203 2173
2204 (setq select-window-hook 'egg:select-window-hook) 2174 (defun egg:minibuffer-entry-hook ()
2175 (setq minibuffer-window-selected t))
2176
2177 (defun egg:minibuffer-exit-hook ()
2178 "Call upon exit from minibufffer"
2179 (set-minibuffer-preprompt nil)
2180 (setq minibuffer-window-selected nil)
2181 (save-excursion
2182 (set-buffer (window-buffer (minibuffer-window)))
2183 (setq egg:*mode-on* (default-value 'egg:*mode-on*)
2184 egg:*input-mode* (default-value 'egg:*input-mode*)
2185 egg:*in-fence-mode* (default-value 'egg:*in-fence-mode*))))
2186
2187 (if (boundp 'select-window-hook)
2188 (add-hook 'select-window-hook 'egg:select-window-hook)
2189 (add-hook 'minibuffer-exit-hook 'egg:minibuffer-exit-hook)
2190 (add-hook 'minibuffer-entry-hook 'egg:minibuffer-entry-hook))
2205 2191
2206 ;;; 2192 ;;;
2207 ;;; 2193 ;;;
2208 ;;; 2194 ;;;
2209 2195
2255 (if its:*previous-map* ?\< ?\[)) 2241 (if its:*previous-map* ?\< ?\[))
2256 (setcar (nthcdr 1 egg:minibuffer-preprompt) 2242 (setcar (nthcdr 1 egg:minibuffer-preprompt)
2257 str) 2243 str)
2258 (aset (nth 2 egg:minibuffer-preprompt) 0 2244 (aset (nth 2 egg:minibuffer-preprompt) 0
2259 (if its:*previous-map* ?\> ?\])) 2245 (if its:*previous-map* ?\> ?\]))
2260 (setq minibuffer-preprompt 2246 (set-minibuffer-preprompt (concat
2261 egg:minibuffer-preprompt)) 2247 (car egg:minibuffer-preprompt)
2248 (car (nthcdr 1 egg:minibuffer-preprompt))
2249 (car (nthcdr 2 egg:minibuffer-preprompt)))))
2262 (setq display-minibuffer-mode t 2250 (setq display-minibuffer-mode t
2263 mode-line-egg-mode-in-minibuffer str)) 2251 mode-line-egg-mode-in-minibuffer str))
2264 (setq display-minibuffer-mode nil 2252 (setq display-minibuffer-mode nil
2265 mode-line-egg-mode str)) 2253 mode-line-egg-mode str))
2266 (redraw-modeline t)) 2254 (redraw-modeline t))