From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 12 Mar 2014 21:16:34 +0000 (+0100)
Subject: lisp/register.el (register-separator, copy-to-register): Doc fixes.
X-Git-Tag: emacs-24.3.90~201
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5765a3dc2a1469289d2c1c86b819672441fc23a;p=emacs.git

lisp/register.el (register-separator, copy-to-register): Doc fixes.
(register-preview-default): Remove unnecessary call to concat.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 23da480f6b2..d051434bb31 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-03-12  Juanma Barranquero  <lekktu@gmail.com>
 
+	* register.el (register-separator, copy-to-register): Doc fixes.
+	(register-preview-default): Remove unnecessary call to concat.
+
 	* frameset.el (frameset-restore): When checking for a visible frame,
 	use the action map instead of calling visible-frame-list.
 
diff --git a/lisp/register.el b/lisp/register.el
index 102ba6c60e4..bfe3e35223f 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -81,10 +81,9 @@ A list of the form (FRAME-CONFIGURATION POSITION)
 (defcustom register-separator nil
   "Register containing the text to put between collected texts, or nil if none.
 
-When collecting text with
-`append-to-register' (resp. `prepend-to-register') contents of
-this register is added to the beginning (resp. end) of the marked
-text."
+When collecting text with \\[append-to-register] (or \\[prepend-to-register]),
+contents of this register is added to the beginning (or end, respectively)
+of the marked text."
   :group 'register
   :type '(choice (const :tag "None" nil)
 		 (character :tag "Use register" :value ?+)))
@@ -121,8 +120,8 @@ See the documentation of the variable `register-alist' for possible VALUEs."
 
 (defun register-preview-default (r)
   "Default function for the variable `register-preview-function'."
-  (format "%s %s\n"
-	  (concat (single-key-description (car r)) ":")
+  (format "%s: %s\n"
+	  (single-key-description (car r))
 	  (register-describe-oneline (car r))))
 
 (defvar register-preview-function #'register-preview-default
@@ -456,10 +455,10 @@ Interactively, reads the register using `register-read-with-preview'."
 (defun copy-to-register (register start end &optional delete-flag region)
   "Copy region into register REGISTER.
 With prefix arg, delete as well.
-Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
-START and END are buffer positions indicating what to copy.
-The optional argument REGION if non-nil, indicates that we're not just copying
-some text between START and END, but we're copying the region.
+Called from program, takes five args: REGISTER, START, END, DELETE-FLAG,
+and REGION.  START and END are buffer positions indicating what to copy.
+The optional argument REGION if non-nil, indicates that we're not just
+copying some text between START and END, but we're copying the region.
 
 Interactively, reads the register using `register-read-with-preview'."
   (interactive (list (register-read-with-preview "Copy to register: ")