Mercurial > hg > xemacs-beta

diff lisp/egg/egg.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 1856695b1fa9
children bfd6434d15b3
line wrap: on
line diff
--- a/lisp/egg/egg.el	Mon Aug 13 09:37:21 2007 +0200
+++ b/lisp/egg/egg.el	Mon Aug 13 09:38:25 2007 +0200
@@ -2552,10 +2552,12 @@
   (if egg:*fence-face*
       (progn
 	(if (extentp egg:*fence-extent*)
-	    nil
-	  (setq egg:*fence-extent* (make-extent 1 1 nil t))
-	  (if egg:*fence-face* (set-extent-property egg:*fence-extent* 'face egg:*fence-face*)))
-	(set-extent-endpoints egg:*fence-extent* egg:*region-start* egg:*region-end* ) )))
+	    (set-extent-endpoints egg:*fence-extent* egg:*region-start* egg:*region-end*)
+	  (setq egg:*fence-extent* (make-extent egg:*region-start* egg:*region-end*))
+	  (set-extent-property egg:*fence-extent* 'start-open nil)
+	  (set-extent-property egg:*fence-extent* 'end-open nil)
+	  (set-extent-property egg:*fence-extent* 'detachable nil))
+	(set-extent-face egg:*fence-extent* egg:*fence-face*))))
 
 (defun egg:fence-face-off ()
   (and egg:*fence-face*