Commit c23eed1b authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(cua-toggle-global-mark, cua-cut-region-to-global-mark,

cua--cut-rectangle-to-global-mark): Remove period from end of error messages.
parent c77d7c92
...@@ -105,7 +105,7 @@ With prefix argument, don't jump to global mark when cancelling it." ...@@ -105,7 +105,7 @@ With prefix argument, don't jump to global mark when cancelling it."
(if (not buffer-read-only) (if (not buffer-read-only)
(cua--activate-global-mark t) (cua--activate-global-mark t)
(ding) (ding)
(message "Cannot set global mark in read-only buffer.")) (message "Cannot set global mark in read-only buffer"))
(when (not stay) (when (not stay)
(pop-to-buffer (marker-buffer cua--global-mark-marker)) (pop-to-buffer (marker-buffer cua--global-mark-marker))
(goto-char cua--global-mark-marker)) (goto-char cua--global-mark-marker))
...@@ -165,7 +165,7 @@ With prefix argument, don't jump to global mark when cancelling it." ...@@ -165,7 +165,7 @@ With prefix argument, don't jump to global mark when cancelling it."
(if (equal (marker-buffer cua--global-mark-marker) src-buf) (if (equal (marker-buffer cua--global-mark-marker) src-buf)
(if (and (< start (marker-position cua--global-mark-marker)) (if (and (< start (marker-position cua--global-mark-marker))
(< (marker-position cua--global-mark-marker) end)) (< (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)) (let ((text (buffer-substring-no-properties start end))
(p1 (copy-marker start)) (p1 (copy-marker start))
(p2 (copy-marker end))) (p2 (copy-marker end)))
...@@ -222,7 +222,7 @@ With prefix argument, don't jump to global mark when cancelling it." ...@@ -222,7 +222,7 @@ With prefix argument, don't jump to global mark when cancelling it."
(setq in-rect t olist nil) (setq in-rect t olist nil)
(setq olist (cdr olist)))) (setq olist (cdr olist))))
(if in-rect (if in-rect
(message "Can't move rectangle into itself.") (message "Can't move rectangle into itself")
(let ((text (cua--extract-rectangle))) (let ((text (cua--extract-rectangle)))
(cua--delete-rectangle) (cua--delete-rectangle)
(goto-char (marker-position cua--global-mark-marker)) (goto-char (marker-position cua--global-mark-marker))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment