Mercurial > emacs
changeset 105771:92f6698524cd
* simple.el (transpose-subr): Give clearer error when the mark is not set.
(Bug#4807)
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 26 Oct 2009 14:59:12 +0000 |
| parents | 435ad0d7953a |
| children | fd7169a87c28 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Oct 26 10:39:41 2009 +0000 +++ b/lisp/ChangeLog Mon Oct 26 14:59:12 2009 +0000 @@ -1,3 +1,8 @@ +2009-10-26 Juanma Barranquero <lekktu@gmail.com> + + * simple.el (transpose-subr): Give clearer error when the mark + is not set. (Bug#4807) + 2009-10-26 Michael Albinus <michael.albinus@gmx.de> * net/tramp.el (tramp-perl-file-truename): New defconst. Perl
--- a/lisp/simple.el Mon Oct 26 10:39:41 2009 +0000 +++ b/lisp/simple.el Mon Oct 26 14:59:12 2009 +0000 @@ -4852,7 +4852,7 @@ ((= arg 0) (save-excursion (setq pos1 (funcall aux 1)) - (goto-char (mark)) + (goto-char (or (mark) (error "No mark set in this buffer"))) (setq pos2 (funcall aux 1)) (transpose-subr-1 pos1 pos2)) (exchange-point-and-mark))