[Emacs-diffs] trunk r116749: lisp/register.el (register-separator, copy-to-register): Doc fixes.

[Juanma Barranquero]

------------------------------------------------------------
revno: 116749
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Wed 2014-03-12 22:16:34 +0100
message:
  lisp/register.el (register-separator, copy-to-register): Doc fixes.
  (register-preview-default): Remove unnecessary call to concat.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/register.el               register.el-20091113204419-o5vbwnq5f7feedwu-104

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-12 18:36:26 +0000
+++ b/lisp/ChangeLog    2014-03-12 21:16:34 +0000
@@ -1,5 +1,8 @@
 2014-03-12  Juanma Barranquero  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/register.el'
--- a/lisp/register.el  2014-02-22 21:13:30 +0000
+++ b/lisp/register.el  2014-03-12 21:16:34 +0000
@@ -81,10 +81,9 @@
 (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 @@
 
 (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 @@
 (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: ")