diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2014-03-12 22:16:34 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2014-03-12 22:16:34 +0100 |
| commit | a5765a3dc2a1469289d2c1c86b819672441fc23a (patch) | |
| tree | 5945d4aedfeda7f4bbb0cd036793be984bb96f59 /lisp/register.el | |
| parent | 46e3f6b5061b641c1cc17543e0d248bcb1b093ba (diff) | |
| download | emacs-a5765a3dc2a1469289d2c1c86b819672441fc23a.tar.gz | |
lisp/register.el (register-separator, copy-to-register): Doc fixes.
(register-preview-default): Remove unnecessary call to concat.
Diffstat (limited to 'lisp/register.el')
| -rw-r--r-- | lisp/register.el | 19 |
1 files changed, 9 insertions, 10 deletions
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: ") |