# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1256569152 0
# Node ID 92f6698524cd8288f6509a69c580ca5aa4ec2b39
# Parent  435ad0d7953a8576e6aa5623b3a73f01a84dbb42
* simple.el (transpose-subr): Give clearer error when the mark is not set.
  (Bug#4807)

diff -r 435ad0d7953a -r 92f6698524cd lisp/ChangeLog
--- 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
diff -r 435ad0d7953a -r 92f6698524cd lisp/simple.el
--- 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))