# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1120094001 0
# Node ID 66f83ad1a264cd2ac3395faa8c9284d2320fa8e6
# Parent  e7c533a3b1b98392a13320dc3712776dbc955c20
(cua-toggle-global-mark, cua-cut-region-to-global-mark,
cua--cut-rectangle-to-global-mark): Remove period from end of error messages.

diff -r e7c533a3b1b9 -r 66f83ad1a264 lisp/emulation/cua-gmrk.el
--- 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))