Mercurial > hg > xemacs-beta

diff lisp/prim/cmdloop.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 5a88923fcbfe
children 929b76928fce
line wrap: on
line diff
--- a/lisp/prim/cmdloop.el	Mon Aug 13 09:45:48 2007 +0200
+++ b/lisp/prim/cmdloop.el	Mon Aug 13 09:46:53 2007 +0200
@@ -97,6 +97,12 @@
 (defvar last-error nil
   "#### Document me.")
 
+;; #### Provisionally turned on for XEmacs 20.3beta.
+(defcustom errors-deactivate-region nil
+  "*Non-nil means that errors will cause the region to be deactivated."
+  :type 'boolean
+  :group 'editing-basics)
+
 (defun command-error (error-object)
   (let ((inhibit-quit t)
 	(debug-on-error nil)
@@ -105,7 +111,8 @@
     (setq standard-output t)
     (setq standard-input t)
     (setq executing-kbd-macro nil)
-;    (zmacs-deactivate-region)
+    (and errors-deactivate-region
+	 (zmacs-deactivate-region))
     (discard-input)
 
     (setq last-error error-object)