Mercurial > hg > xemacs-beta

diff lisp/register.el @ 300:3cc9f0ebfbd1 r21-0b48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b48
author cvs
date Mon, 13 Aug 2007 10:40:26 +0200
parents 558f606b08ae
children
line wrap: on
line diff
--- a/lisp/register.el	Mon Aug 13 10:39:46 2007 +0200
+++ b/lisp/register.el	Mon Aug 13 10:40:26 2007 +0200
@@ -240,7 +240,8 @@
       (princ (marker-position val) (current-buffer)))
      (t
       (error "Register does not contain text"))))
-  (if (not arg) (exchange-point-and-mark)))
+  ;; XEmacs: don't activate the region.  It's annoying.
+  (if (not arg) (exchange-point-and-mark t)))
 
 (defun copy-to-register (register start end &optional delete-flag)
   "Copy region into register REGISTER.  With prefix arg, delete as well.