emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog simple.el


From: Juanma Barranquero
Subject: [Emacs-diffs] emacs/lisp ChangeLog simple.el
Date: Mon, 26 Oct 2009 14:59:17 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/10/26 14:59:16

Modified files:
        lisp           : ChangeLog simple.el 

Log message:
        * simple.el (transpose-subr): Give clearer error when the mark is not 
set.
          (Bug#4807)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16513&r2=1.16514
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1020&r2=1.1021

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16513
retrieving revision 1.16514
diff -u -b -r1.16513 -r1.16514
--- ChangeLog   26 Oct 2009 09:29:12 -0000      1.16513
+++ ChangeLog   26 Oct 2009 14:59:12 -0000      1.16514
@@ -1,3 +1,8 @@
+2009-10-26  Juanma Barranquero  <address@hidden>
+
+       * simple.el (transpose-subr): Give clearer error when the mark
+       is not set.  (Bug#4807)
+
 2009-10-26  Michael Albinus  <address@hidden>
 
        * net/tramp.el (tramp-perl-file-truename): New defconst.  Perl

Index: simple.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1020
retrieving revision 1.1021
diff -u -b -r1.1020 -r1.1021
--- simple.el   23 Oct 2009 05:15:30 -0000      1.1020
+++ simple.el   26 Oct 2009 14:59:16 -0000      1.1021
@@ -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))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]