Mercurial > hg > xemacs-beta

diff lisp/utils/skeleton.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 1040fe1366ac
children
line wrap: on
line diff
--- a/lisp/utils/skeleton.el	Mon Aug 13 09:29:37 2007 +0200
+++ b/lisp/utils/skeleton.el	Mon Aug 13 09:30:11 2007 +0200
@@ -165,6 +165,7 @@
 			 (and skeleton-autowrap
 			      (or (eq last-command 'mouse-drag-region)
 				  (and (boundp 'transient-mark-mode)
+				       (boundp 'mark-active)
 				       transient-mark-mode mark-active))
 			      -1)))
 		     (if (stringp str)
@@ -211,6 +212,7 @@
 			   (and skeleton-autowrap
 				(or (eq last-command 'mouse-drag-region)
 				    (and (boundp 'transient-mark-mode)
+					 (boundp 'mark-active)
 					 transient-mark-mode mark-active))
 				-1)))
 		       (if (stringp str)
@@ -518,6 +520,7 @@
   (let ((mark (and skeleton-autowrap
 		   (or (eq last-command 'mouse-drag-region)
 		       (and (boundp 'transient-mark-mode)
+			    (boundp 'mark-active)
 			    transient-mark-mode mark-active))))
 	(skeleton-end-hook))
     (if (or arg