Mercurial > emacs
changeset 106715:428005d3198e
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 | 396a004a924b |
| children | 4039413a8b1d |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Jan 02 14:14:13 2010 -0500 +++ b/lisp/gnus/ChangeLog Sat Jan 02 14:18:44 2010 -0500 @@ -1,3 +1,9 @@ +2010-01-02 Chong Yidong <cyd@stupidchicken.com> + + * 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 <cyd@stupidchicken.com> * message.el (message-exchange-point-and-mark): Call
--- 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)