Mercurial > emacs

diff lisp/simple.el @ 105771:92f6698524cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 6b8dce5c4461
children 0ad1fc06bfc8
line wrap: on
line diff
--- 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))