Commits

Anonymous committed 3f2fbc7

Changes by Yokota Hiroshi

  • Participants
  • Parent commits 0d03040

Comments (0)

Files changed (3)

+1999-01-04  YOKOTA Hiroshi <y5t0964@students.chiba-u.ac.jp>
+
+	* egg.el: defvar (not defconst) some user parameters
+	`egg:*fence-open*', `egg:*fence-close*', `egg:*fence-face*'
+
+1999-01-04  YOKOTA Hiroshi <y5t0964@students.chiba-u.ac.jp>
+
+	* egg-wnn.el (egg:bunsetu-face-off): Use detach-extent (not
+	delete-extent) for reusable extents.
+
 1998-08-11  Kazuyuki IENAGA <ienaga@jsys.co.jp>
 
 	* eggrc-wnn: Change some parameters for wnn-server-set-param.
 (defun egg:bunsetu-face-off ()
   (and egg:*dai-bunsetu-face*
        (extentp egg:*dai-bunsetu-extent*)
-       (delete-extent egg:*dai-bunsetu-extent*))
+       (detach-extent egg:*dai-bunsetu-extent*))
   (and egg:*sho-bunsetu-face*
        (extentp egg:*sho-bunsetu-extent*)
-       (delete-extent egg:*sho-bunsetu-extent*))
+       (detach-extent egg:*sho-bunsetu-extent*))
   )
 
 (defun henkan-goto-bunsetu (number)
 ;;;
 ;;;----------------------------------------------------------------------
 
-(defconst egg:*fence-open*   "|" "*$B%U%'%s%9$N;OE@$r<($9J8;zNs(B")
-(defconst egg:*fence-close*  "|" "*$B%U%'%s%9$N=*E@$r<($9J8;zNs(B")
-(defconst egg:*fence-face* nil  "*$B%U%'%s%9I=<($KMQ$$$k(B face $B$^$?$O(B nil")
+(defvar egg:*fence-open*   "|" "*$B%U%'%s%9$N;OE@$r<($9J8;zNs(B")
+(defvar egg:*fence-close*  "|" "*$B%U%'%s%9$N=*E@$r<($9J8;zNs(B")
+(defvar egg:*fence-face* nil  "*$B%U%'%s%9I=<($KMQ$$$k(B face $B$^$?$O(B nil")
 (make-variable-buffer-local
  (defvar egg:*fence-extent* nil "$B%U%'%s%9I=<(MQ(B extent"))