Commit a5765a3d authored by Juanma Barranquero's avatar Juanma Barranquero

lisp/register.el (register-separator, copy-to-register): Doc fixes.

(register-preview-default): Remove unnecessary call to concat.
parent 46e3f6b5
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.
......
......@@ -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: ")
......
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