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

separator-register.  All uses changed.  Doc fix.
(register): Fix version.

etc/NEWS

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

lisp/ChangeLog

+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

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