Mercurial > emacs

changeset 63870:66f83ad1a264

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-toggle-global-mark, cua-cut-region-to-global-mark, cua--cut-rectangle-to-global-mark): Remove period from end of error messages.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 30 Jun 2005 01:13:21 +0000
parents e7c533a3b1b9
children ffc4b2e19212
files lisp/emulation/cua-gmrk.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-gmrk.el	Thu Jun 30 01:12:23 2005 +0000
+++ b/lisp/emulation/cua-gmrk.el	Thu Jun 30 01:13:21 2005 +0000
@@ -96,7 +96,7 @@
 insert the deleted or copied text before the global marker, even when the
 global marker is in another buffer.
 If the global marker isn't set, set the global marker at point in the current
-buffer. Otherwise jump to the global marker position and cancel it.
+buffer.  Otherwise jump to the global marker position and cancel it.
 With prefix argument, don't jump to global mark when cancelling it."
   (interactive "P")
   (unless cua--global-mark-initialized
@@ -105,7 +105,7 @@
       (if (not buffer-read-only)
 	  (cua--activate-global-mark t)
 	(ding)
-	(message "Cannot set global mark in read-only buffer."))
+	(message "Cannot set global mark in read-only buffer"))
     (when (not stay)
       (pop-to-buffer (marker-buffer cua--global-mark-marker))
       (goto-char cua--global-mark-marker))
@@ -165,7 +165,7 @@
 	  (if (equal (marker-buffer cua--global-mark-marker) src-buf)
 	      (if (and (< start (marker-position cua--global-mark-marker))
 		       (< (marker-position cua--global-mark-marker) end))
-		  (message "Can't move region into itself.")
+		  (message "Can't move region into itself")
 		(let ((text (buffer-substring-no-properties start end))
 		      (p1 (copy-marker start))
 		      (p2 (copy-marker end)))
@@ -222,7 +222,7 @@
 		      (setq in-rect t olist nil)
 		    (setq olist (cdr olist))))
 		(if in-rect
-		    (message "Can't move rectangle into itself.")
+		    (message "Can't move rectangle into itself")
 		  (let ((text (cua--extract-rectangle)))
 		    (cua--delete-rectangle)
 		    (goto-char (marker-position cua--global-mark-marker))