andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* simple.el (transpose-subr): Give clearer error when the mark is not set.

Browse source 
(Bug#4807)
This commit is contained in:
Juanma Barranquero 2009-10-26 14:59:12 +00:00
parent 242bc74cea
commit 41849bf9cd
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

2
lisp/simple.el
View file

@ -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))