Mercurial > hg > xemacs-beta

diff lisp/utils/skeleton.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 859a2309aef8
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/utils/skeleton.el	Mon Aug 13 08:55:32 2007 +0200
+++ b/lisp/utils/skeleton.el	Mon Aug 13 08:56:04 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