procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
separator-register.  All uses changed.  Doc fix.
(register): Fix version.
This commit is contained in:
Andreas Schwab 2012-09-09 10:10:56 +02:00
parent bb6b0efc34
commit bfabf70a86
3 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
etc/NEWS
View file

@ -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

6
lisp/ChangeLog
View file

@ -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

10
lisp/register.el
View file

@ -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))