Mercurial > hg > xemacs-beta

comparison lisp/egg/egg-wnn.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 585fb297b004
children 1f0dabaa0855
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
874 ;; Make an extent if henkan extent does not exist. 874 ;; Make an extent if henkan extent does not exist.
875 ;; Move henkan extent to henkan region. 875 ;; Move henkan extent to henkan region.
876 (if egg:*henkan-face* 876 (if egg:*henkan-face*
877 (progn 877 (progn
878 (if (extentp egg:*henkan-extent*) 878 (if (extentp egg:*henkan-extent*)
879 nil 879 (set-extent-endpoints egg:*henkan-extent* egg:*region-start* egg:*region-end*)
880 ;; ###jhod this was a 'point-type' overlay 880 (setq egg:*henkan-extent* (make-extent egg:*region-start* egg:*region-end*))
881 (setq egg:*henkan-extent* (make-extent 1 1)) 881 (set-extent-property egg:*henkan-extent* 'start-open nil)
882 (set-extent-property egg:*henkan-extent* 'face egg:*henkan-face*)) 882 (set-extent-property egg:*henkan-extent* 'end-open nil)
883 (set-extent-endpoints egg:*henkan-extent* egg:*region-start* egg:*region-end*)))) 883 (set-extent-property egg:*henkan-extent* 'detachable nil))
884 (set-extent-face egg:*henkan-extent* egg:*henkan-face*))))
884 885
885 (defun egg:henkan-face-off () 886 (defun egg:henkan-face-off ()
886 ;; detach henkan extent from the current buffer. 887 ;; detach henkan extent from the current buffer.
887 (and egg:*henkan-face* 888 (and egg:*henkan-face*
888 (extentp egg:*henkan-extent*) 889 (extentp egg:*henkan-extent*)
889 (delete-extent egg:*henkan-extent*) )) 890 (detach-extent egg:*henkan-extent*) ))
890 891
891 892
892 (defun henkan-region (start end) 893 (defun henkan-region (start end)
893 "Convert a text in the region between START and END from kana to kanji." 894 "Convert a text in the region between START and END from kana to kanji."
894 (interactive "r") 895 (interactive "r")