diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-09-09 10:10:56 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-09-09 10:10:56 +0200 |
| commit | bfabf70a86dc3506011566d9e06f6251328fa05e (patch) | |
| tree | 32a129052aa1567debea8f5e5fddf475425d028f | |
| parent | bb6b0efc3490a1e47e69e3afbc115576025f3606 (diff) | |
| download | emacs-bfabf70a86dc3506011566d9e06f6251328fa05e.tar.gz | |
* lisp/register.el (register-separator): Rename from
separator-register. All uses changed. Doc fix.
(register): Fix version.
| -rw-r--r-- | etc/NEWS | 7 | ||||
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/register.el | 10 |
3 files changed, 15 insertions, 8 deletions
@@ -188,10 +188,11 @@ end of the buffer. It defaults to t. +++ ** `C-x r +' is now overloaded to invoke `append-to-register. + +++ -** New option `separator-register'. Separator register stores -separator text for use with M-x append-to-register and M-x -prepend-to-register. See manual for details. +** New option `register-separator' specifies the register containing +the text to put between collected texts for use with M-x +append-to-register and M-x prepend-to-register. ** Search changes diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8f089af6f5c..c7ff2571f9d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-09-09 Andreas Schwab <schwab@linux-m68k.org> + + * register.el (register-separator): Rename from + separator-register. All uses changed. Doc fix. + (register): Fix version. + 2012-09-09 Chong Yidong <cyd@gnu.org> * replace.el (query-replace-map): Bind four new symbols for diff --git a/lisp/register.el b/lisp/register.el index 622a3872e54..fb35a26a653 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -79,10 +79,10 @@ A list of the form (FRAME-CONFIGURATION POSITION) (defgroup register nil "Register commands." :group 'convenience - :version "24.2.50") + :version "24.3") -(defcustom separator-register nil - "Use contents of this register to separate collected text. +(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 @@ -377,7 +377,7 @@ START and END are buffer positions indicating what to append." (interactive "cAppend to register: \nr\nP") (let ((reg (get-register register)) (text (filter-buffer-substring start end)) - (separator (and separator-register (get-register separator-register)))) + (separator (and register-separator (get-register register-separator)))) (set-register register (cond ((not reg) text) ((stringp reg) (concat reg separator text)) @@ -395,7 +395,7 @@ START and END are buffer positions indicating what to prepend." (interactive "cPrepend to register: \nr\nP") (let ((reg (get-register register)) (text (filter-buffer-substring start end)) - (separator (and separator-register (get-register separator-register)))) + (separator (and register-separator (get-register register-separator)))) (set-register register (cond ((not reg) text) ((stringp reg) (concat text separator reg)) |