Mercurial > hg > xemacs-beta

diff lisp/prim/simple.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents cca96a509cfe
children 1370575f1259
line wrap: on
line diff
--- a/lisp/prim/simple.el	Mon Aug 13 09:26:04 2007 +0200
+++ b/lisp/prim/simple.el	Mon Aug 13 09:26:39 2007 +0200
@@ -1229,7 +1229,7 @@
 	;; It is cleaner to avoid activation, even though the command
 	;; loop would deactivate the mark because we inserted text.
 	(goto-char (prog1 (mark t)
-		     (set-marker (mark-marker) (point) (current-buffer))))))
+		     (set-marker (mark-marker t) (point) (current-buffer))))))
   nil)