From 41849bf9cd66bacb9e4d81b3ad01bfbcf6e34392 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 26 Oct 2009 14:59:12 +0000 Subject: [PATCH] * simple.el (transpose-subr): Give clearer error when the mark is not set. (Bug#4807) --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1442396b746..1ba5a0275ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-10-26 Juanma Barranquero + + * simple.el (transpose-subr): Give clearer error when the mark + is not set. (Bug#4807) + 2009-10-26 Michael Albinus * net/tramp.el (tramp-perl-file-truename): New defconst. Perl diff --git a/lisp/simple.el b/lisp/simple.el index 14dc128a790..117a93bcc0f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4852,7 +4852,7 @@ With argument 0, interchanges line point is in with line mark is in." ((= 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)) -- 2.11.4.GIT