From 61f49e0bb661c3adbcc088bfc23a2e759561099f Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jan 2010 14:18:44 -0500 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/message.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index dcbcb81a371..c127239b164 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2010-01-02 Chong Yidong + + * message.el (message-exchange-point-and-mark): Rework last change to + avoid using optional arg of exchange-point-and-mark, for backward + compatibility. + 2010-01-01 Chong Yidong * message.el (message-exchange-point-and-mark): Call diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 655aa4c3e6b..18feee83032 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -7505,7 +7505,8 @@ which specify the range to operate on." (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) -- 2.39.2