Commits

Anonymous committed ba97546

This is really a CVS test. Please ignore...

Comments (0)

Files changed (1)

 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;; This version is heavily modified for XEmacs, and the current maintainer
-;; is Jareth Hein <jareth@xemacs.org>
+;; is Jareth Hein <jareth@xemacs.org> or <jareth@camelot.co.jp>.
 
 ;;;==================================================================
 ;;;
 
 ;;;;  $B=$@5%a%b(B
 
+;;; A couple of changes need to be made to XEmacs glyph/extent display functions
+;;; before egg will really be able to use glyphs and extents properly.  Most
+;;; notibly, cursor placement should vary depending on the open/closedness of
+;;; the extent...
+
 ;;; 97.10.29 modified by J.Hein <jareth@camelot-soft.com>
 ;;; fix to get rid of problem with C-h/backspace fuckage when in fence mode. Note
 ;;; that the entire egg-read-event thing is a hack and really needs to be re-implemented.
 ;;;; $B3F<oJQ?t$r(B default-value $B$KLa$9$h$&$K$7$?!%$3$l$K$h$C$F(B 
 ;;;; minibufffer $B$KF~$kA0$K3F<o@_Dj$,2DG=$H$J$k!%(B
 
-;;; 92.7.14  modified for Mule Ver.0.9.5 by T.Ito <toshi@his.cpl.melco.co.jp>
-;;;	Attribute bold can be used.
-;;;	Unnecessary '*' in comments of variables deleted.
-;;; 92.7.8   modified for Mule Ver.0.9.5 by Y.Kawabe <kawabe@sra.co.jp>
-;;;	special-symbol-input keeps the position selected last.
-;;; 92.7.8   modified for Mule Ver.0.9.5 by T.Shingu <shingu@cpr.canon.co.jp>
-;;;	busyu-input and kakusuu-input are added in *symbol-input-menu*.
-;;; 92.7.7   modified for Mule Ver.0.9.5 by K.Handa <handa@etl.go.jp>
-;;;	In egg:quit-mode, overwrite-mode is supported correctly.
-;;;	egg:*overwrite-mode-deleted-chars* is not used now.
-;;; 92.6.26  modified for Mule Ver.0.9.5 by K.Handa <handa@etl.go.jp>
-;;;	Funtion dump-its-mode-map gets obsolete.
-;;; 92.6.26  modified for Mule Ver.0.9.5 by M.Shikida <shikida@cs.titech.ac.jp>
-;;;	Backquote ` is registered in *hankaku-alist* and *zenkaku-alist*.
-;;; 92.6.17  modified for Mule Ver.0.9.5 by T.Shingu <shingu@cpr.canon.co.jp>
-;;;	Bug in make-jis-second-level-code-alist fixed.
-;;; 92.6.14  modified for Mule Ver.0.9.5 by T.Enami <enami@sys.ptg.sony.co.jp>
-;;;	menu:select-from-menu is replaced with new version.
-;;; 92.5.18  modified for Mule Ver.0.9.4 by T.Shingu <shingu@cpr.canon.co.jp>
-;;;	lisp/wnn-egg.el is devided into two parts: this file and wnn*-egg.el.
-
-;;;;
-;;;; Mule Ver.0.9.3 $B0JA0(B
-;;;;
-
-;;;; April-15-92 for Mule Ver.0.9.3
-;;;;	by T.Enami <enami@sys.ptg.sony.co.jp> and K.Handa <handa@etl.go.jp>
-;;;;	notify-internal calls 'message' with correct argument.
-
-;;;; April-11-92 for Mule Ver.0.9.3
-;;;;	by T.Enami <enami@sys.ptg.sony.co.jp> and K.Handa <handa@etl.go.jp>
-;;;;	minibuffer $B$+$iH4$1$k;~(B egg:select-window-hook $B$G(B egg:*input-mode* $B$r(B
-;;;;	t $B$K$9$k!#(Bhook $B$N7A$rBgI}=$@5!#(B
-
-;;;; April-3-92 for Mule Ver.0.9.2 by T.Enami <enami@sys.ptg.sony.co.jp>
-;;;; minibuffer $B$+$iH4$1$k;~(B egg:select-window-hook $B$,(B new-buffer $B$N(B
-;;;; egg:*mode-on* $B$J$I$r(B nil $B$K$7$F$$$k$N$r=$@5!#(B
-
-;;;; Mar-22-92 by K.Handa
-;;;; etags $B$,:n$k(B TAGS $B$KITI,MW$J$b$N$rF~$l$J$$$h$&$K$9$k$?$a4X?tL>JQ99(B
-;;;; define-its-mode -> its-define-mode, defrule -> its-defrule
-
-;;;; Mar-16-92 by K.Handa
-;;;; global-map $B$X$N(B define-key $B$r(B mule-keymap $B$KJQ99!#(B
-
-;;;; Mar-13-92 by K.Handa
-;;;; Language specific part $B$r(B japanese.el,... $B$K0\$7$?!#(B
-
-;;;; Feb-*-92 by K. Handa
-;;;; nemacs 4 $B$G$O(B minibuffer-window-selected $B$,GQ;_$K$J$j!$4XO"$9$k%3!<%I$r:o=|$7$?!%(B
-
-;;;; Jan-13-92 by S. Tomura
-;;;; mc-emacs or nemacs 4 $BBP1~:n6H3+;O!%(B
-
-;;;; Aug-9-91 by S. Tomura
-;;;; ?\^ $B$r(B ?^ $B$K=$@5!%(B
-
-;;;;  menu $B$r(B key map $B$r8+$k$h$&$K$9$k!%(B
-
-;;;;  Jul-6-91 by S. Tomura
-;;;;  setsysdict $B$N(B error $B%a%C%;!<%8$rJQ99!%(B
-
-;;;;  Jun-11-91 by S. Tomura
-;;;;  its:*defrule-verbose* $B$rDI2C!%(B
-;;;;
-
-;;;;  Mar-25-91 by S. Tomura
-;;;;  reset-its-mode $B$rGQ;_(B
-
-;;;;  Mar-23-91 by S. Tomura
-;;;;  read-hiragana-string $B$r=$@5!$(B read-kanji-string $B$rDI2C!$(B
-;;;;  isearch:read-kanji-string $B$r@_Dj!%(B
-
-;;;;  Mar-22-91 by S. Tomura
-;;;;  defrule-conditional, defrule-select-mode-temporally $B$rDI2C!#(B
-;;;;  for-each $B$N4J0WHG$H$7$F(B dolist $B$rDI2C!#(B
-;;;;  enable-double-n-syntax $B$r3hMQ!%$[$+$K(B use-kuten-for-comma, use-touten-for-period $B$rDI2C(B
-
-;;;;  Mar-5-91 by S. Tomura
-;;;;  roma-kana-word, henkan-word, roma-kanji-word $B$rDI2C$7$?!%(B
-
-;;;;  Jan-14-91 by S. Tomura
-;;;;  $BF~NOJ8;zJQ497O(B ITS(Input character Translation System) $B$r2~B$$9$k!%(B
-;;;;  $BJQ49$O:G:8:GD9JQ49$r9T$J$$!$JQ49$N$J$$$b$N$O$b$H$N$^$^$H$J$k!%(B
-;;;;  $B2~B$$NF05!$ON)LZ!w7D1~$5$s$N%O%s%0%kJ8;z$NF~NOMW5a$G$"$k!%(B
-;;;;  its:* $B$rDI2C$7$?!%$^$?=>Mh(B fence-self-insert-command $B$H(B roma-kana-region 
-;;;;  $BFs2U=j$K$o$+$l$F$$$?%3!<%I$r(B its:translate-region $B$K$h$C$F0lK\2=$7$?!%(B
-
-;;;;  July-30-90 by S. Tomura
-;;;;  henkan-region $B$r(Boverwrite-mode $B$KBP1~$5$;$k!%JQ?t(B 
-;;;;  egg:*henkan-fence-mode*, egg:*overwrite-mode-deleted-chars*
-;;;;  $B$rDI2C$7!$(Bhenkan-fence-region, henkan-region-internal, 
-;;;;  quit-egg-mode $B$rJQ99$9$k!%(B
-
-;;;;  Mar-4-90 by K.Handa
-;;;;  New variable alphabet-mode-indicator, transparent-mode-indicator,
-;;;;  and henkan-mode-indicator.
-
-;;;;  Feb-27-90 by enami@ptgd.sony.co.jp
-;;;;  menu:select-from-menu $B$G#22U=j$"$k(B ((and (<= ?0 ch) (<= ch ?9)...
-;;;;  $B$N0lJ}$r(B ((and (<= ?0 ch) (<= ch ?9)... $B$K=$@5(B
-
-;;;;  Feb-07-89
-;;;;  bunsetu-length-henko $B$NCf$N(B egg:*attribute-off $B$N0LCV$r(B KKCP $B$r8F$VA0$K(B
-;;;;  $BJQ99$9$k!#(B wnn-client $B$G$O(B KKCP $B$r8F$V$HJ8@a>pJs$,JQ2=$9$k!#(B
-
-;;;;  Feb-01-89
-;;;;  henkan-goto-kouho $B$N(B egg:set-bunsetu-attribute $B$N0z?t(B
-;;;;  $B$N=gHV$,4V0c$C$F$$$?$N$r=$@5$7$?!#!J(Btoshi@isvax.isl.melco.co.jp
-;;;;  (Toshiyuki Ito)$B$N;XE&$K$h$k!#!K(B
-
-;;;;  Dec-25-89
-;;;;  meta-flag t $B$N>l9g$NBP1~$r:F=$@5$9$k!#(B
-;;;;  overwrite-mode $B$G$N(B undo $B$r2~A1$9$k!#(B
-
-;;;;  Dec-21-89
-;;;;  bug fixed by enami@ptdg.sony.co.jp
-;;;;     (fboundp 'minibuffer-window-selected )
-;;;;  -->(boundp  'minibuffer-window-selected )
-;;;;  self-insert-after-hook $B$r(B buffer local $B$K$7$FDj5A$r(B kanji.el $B$X0\F0!#(B
-
-;;;;  Dec-15-89
-;;;;  kill-all-local-variables $B$NDj5A$r(B kanji.el $B$X0\F0$9$k!#(B
-
-;;;;  Dec-14-89
-;;;;  meta-flag t $B$N>l9g$N=hM}$r=$@5$9$k(B
-;;;;  overwrite-mode $B$KBP1~$9$k!#(B
-
-;;;;  Dec-12-89
-;;;;  egg:*henkan-open*, egg:*henkan-close* $B$rDI2C!#(B
-;;;;  egg:*henkan-attribute* $B$rDI2C(B
-;;;;  set-egg-fence-mode-format, set-egg-henkan-mode-format $B$rDI2C(B
-
-;;;;  Dec-12-89
-;;;;  *bunpo-code* $B$K(B 1000: "$B$=$NB>(B" $B$rDI2C(B
-
-;;;;  Dec-11-89
-;;;;  egg:*fence-attribute* $B$r?7@_(B
-;;;;  egg:*bunsetu-attribute* $B$r?7@_(B
-
-;;;;  Dec-11-89
-;;;;  attribute-*-region $B$rMxMQ$9$k$h$&$KJQ99$9$k!#(B
-;;;;  menu:make-selection-list $B$O(B width $B$,>.$5$$;~$K(Bloop $B$9$k!#$3$l$r=$@5$7$?!#(B
-
-;;;;  Dec-10-89
-;;;;  set-marker-type $B$rMxMQ$9$kJ}<0$KJQ99!#(B
-
-;;;;  Dec-07-89
-;;;;  egg:search-path $B$rDI2C!#(B
-;;;;  egg-default-startup-file $B$rDI2C$9$k!#(B
-
-;;;;  Nov-22-89
-;;;;  egg-startup-file $B$rDI2C$9$k!#(B
-;;;;  eggrc-search-path $B$r(B egg-startup-file-search-path $B$KL>A0JQ99!#(B
-
-;;;;  Nov-21-89
-;;;;  Nemacs 3.2 $B$KBP1~$9$k!#(Bkanji-load* $B$rGQ;_$9$k!#(B
-;;;;  wnnfns.c $B$KBP1~$7$?=$@5$r2C$($k!#(B
-;;;;  *Notification* buffer $B$r8+$($J$/$9$k!#(B
-
-;;;;  Oct-2-89
-;;;;  *zenkaku-alist* $B$N(B $BJ8;zDj?t$N=q$-J}$,4V0c$C$F$$$?!#(B
-
-;;;;  Sep-19-89
-;;;;  toggle-egg-mode $B$N=$@5!J(Bkanji-flag$B!K(B
-;;;;  egg-self-insert-command $B$N=$@5(B $B!J(Bkanji-flag$B!K(B
-
-;;;;  Sep-18-89
-;;;;  self-insert-after-hook $B$NDI2C(B
-
-;;;;  Sep-15-89
-;;;;  EGG:open-wnn bug fix
-;;;;  provide wnn-egg feature
-
-;;;;  Sep-13-89
-;;;;  henkan-kakutei-before-point $B$r=$@5$7$?!#(B
-;;;;  enter-fence-mode $B$NDI2C!#(B
-;;;;  egg-exit-hook $B$NDI2C!#(B
-;;;;  henkan-region-internal $B$NDI2C!#(Bhenkan-region$B$O(B point $B$r(Bmark $B$9$k!#(B
-;;;;  eggrc-search-path $B$NDI2C!#(B
-
-;;;;  Aug-30-89
-;;;;  kanji-kanji-1st $B$rD{@5$7$?!#(B
-
-;;;;  May-30-89
-;;;;  EGG:open-wnn $B$O(B get-wnn-host-name $B$,(B nil $B$N>l9g!"(B(system-name) $B$r;HMQ$9$k!#(B
-
-;;;;  May-9-89
-;;;;  KKCP:make-directory added.
-;;;;  KKCP:file-access bug fixed.
-;;;;  set-default-usr-dic-directory modified.
-
-;;;;  Mar-16-89
-;;;;  minibuffer-window-selected $B$r;H$C$F(B minibuffer $B$N(B egg-mode$BI=<(5!G=DI2C(B
-
-;;;;  Mar-13-89
-;;;;   mode-line-format changed. 
-
-;;;;  Feb-27-89
-;;;;  henkan-saishou-bunsetu added
-;;;;  henkan-saichou-bunsetu added
-;;;;  M-<    henkan-saishou-bunsetu
-;;;;  M->    henkan-saichou-bunsetu
-
-;;;;  Feb-14-89
-;;;;   C-h in henkan mode: help-command added
-
-;;;;  Feb-7-89
-;;;;   egg-insert-after-hook is added.
-
-;;;;   M-h   fence-hiragana
-;;;;   M-k   fence-katakana
-;;;;   M->   fence-zenkaku
-;;;;   M-<   fence-hankaku
-
-;;;;  Dec-19-88 henkan-hiragana, henkan-katakara$B$rDI2C!'(B
-;;;;    M-h     henkan-hiragana
-;;;;    M-k     henkan-katakana
-
-;;;;  Ver. 2.00 kana2kanji.c $B$r;H$o$:(B wnn-client.el $B$r;HMQ$9$k$h$&$KJQ99!#(B
-;;;;            $B4XO"$7$F0lIt4X?t$rJQ99(B
-
-;;;;  Dec-2-88 special-symbol-input $B$rDI2C!((B
-;;;;    C-^   special-symbol-input
-
-;;;;  Nov-18-88 henkan-mode-map $B0lItJQ99!((B
-;;;;    M-i  henkan-inspect-bunsetu
-;;;;    M-s  henkan-select-kouho
-;;;;    C-g  henkan-quit
-
-;;;;  Nov-18-88 jserver-henkan-kakutei $B$N;EMMJQ99$KH<$$!"(Bkakutei $B$N%3!<(B
-;;;;  $B%I$rJQ99$7$?!#(B
-
-;;;;  Nov-17-88 kakutei-before-point $B$G(B point $B0J9_$N4V0c$C$?ItJ,$NJQ49(B
-;;;;  $B$,IQEY>pJs$KEPO?$5$l$J$$$h$&$K=$@5$7$?!#$3$l$K$O(BKKCC:henkan-end 
-;;;;  $B$N0lIt;EMM$HBP1~$9$k(Bkana2kanji.c$B$bJQ99$7$?!#(B
-
-;;;;  Nov-17-88 henkan-inspect-bunsetu $B$rDI2C$7$?!#(B
-
-;;;;  Nov-17-88 $B?7$7$$(B kana2kanji.c $B$KJQ99$9$k!#(B
-
-;;;;  Sep-28-88 defrule$B$,CM$H$7$F(Bnil$B$rJV$9$h$&$KJQ99$7$?!#(B
-
-;;;;  Aug-25-88 $BJQ493X=,$r@5$7$/9T$J$&$h$&$KJQ99$7$?!#(B
-;;;;  KKCP:henkan-kakutei$B$O(BKKCP:jikouho-list$B$r8F$s$@J8@a$KBP$7$F$N$_E,(B
-;;;;  $BMQ$G$-!"$=$l0J30$N>l9g$N7k2L$OJ]>Z$5$l$J$$!#$3$N>r7o$rK~$?$9$h$&(B
-;;;;  $B$K(BKKCP:jikouho-list$B$r8F$s$G$$$J$$J8@a$KBP$7$F$O(B
-;;;;  KKCP:henkan-kakutei$B$r8F$P$J$$$h$&$K$7$?!#(B
-
-;;;;  Aug-25-88 egg:do-auto-fill $B$r=$@5$7!"J#?t9T$K$o$?$k(Bauto-fill$B$r@5(B
-;;;;  $B$7$/9T$J$&$h$&$K=$@5$7$?!#(B
-
-;;;;  Aug-25-88 menu command$B$K(B\C-l: redraw $B$rDI2C$7$?!#(B
-
-;;;;  Aug-25-88 toroku-region$B$GEPO?$9$kJ8;zNs$+$i(Bno graphic character$B$r(B
-;;;;  $B<+F0E*$K=|$/$3$H$K$7$?!#(B
-
-;; XEmacs addition: (and remove disable-undo variable)
-;; For Emacs V18/Nemacs compatibility
-;(and (not (fboundp 'buffer-disable-undo))
-;     (fboundp 'buffer-flush-undo)
-;     (defalias 'buffer-disable-undo 'buffer-flush-undo))
 
 ;; 97.2.4 Created by J.Hein to simulate Mule-2.3
 (defun egg-read-event ()