Commit bfabf70a authored by Andreas Schwab's avatar Andreas Schwab

* lisp/register.el (register-separator): Rename from

separator-register.  All uses changed.  Doc fix.
(register): Fix version.
parent bb6b0efc
......@@ -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
......
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
......
......@@ -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))
......
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