Mercurial > emacs

diff lisp/gnus/message.el @ 106715:428005d3198e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix last change to message-exchange-point-and-mark. * message.el (message-exchange-point-and-mark): Rework last change to avoid using optional arg of exchange-point-and-mark, for backward compatibility.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 02 Jan 2010 14:18:44 -0500
parents 5240a1bf44bc
children e09f67191b6c
line wrap: on
line diff
--- a/lisp/gnus/message.el	Sat Jan 02 14:14:13 2010 -0500
+++ b/lisp/gnus/message.el	Sat Jan 02 14:18:44 2010 -0500
@@ -7505,7 +7505,8 @@
 
 (defun message-exchange-point-and-mark ()
   "Exchange point and mark, but don't activate region if it was inactive."
-  (exchange-point-and-mark transient-mark-mode))
+  (goto-char (prog1 (mark t)
+	       (set-marker (mark-marker) (point)))))
 
 (defalias 'message-make-overlay 'make-overlay)
 (defalias 'message-delete-overlay 'delete-overlay)