# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1236860051 0
# Node ID 13b4ea6830b563387bb1433bc9a5caba4f801f1a
# Parent  3ef2144f952092dc98505de92c3f041ead346c36
* register.el (get-register): Rename arg REG to REGISTER for
  consistency with other register functions.
  (set-register, jump-to-register): Fix typos in docstrings.
  (copy-to-register, copy-rectangle-to-register): Reflow docstrings.

diff -r 3ef2144f9520 -r 13b4ea6830b5 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Mar 12 08:36:55 2009 +0000
+++ b/lisp/ChangeLog	Thu Mar 12 12:14:11 2009 +0000
@@ -1,3 +1,10 @@
+2009-03-12  Juanma Barranquero  <lekktu@gmail.com>
+
+	* register.el (get-register): Rename arg REG to REGISTER for
+	consistency with other register functions.
+	(set-register, jump-to-register): Fix typos in docstrings.
+	(copy-to-register, copy-rectangle-to-register): Reflow docstrings.
+
 2009-03-12  Glenn Morris  <rgm@gnu.org>
 
 	* mail/mailabbrev.el (mail-abbrev-next-line)
diff -r 3ef2144f9520 -r 13b4ea6830b5 lisp/register.el
--- a/lisp/register.el	Thu Mar 12 08:36:55 2009 +0000
+++ b/lisp/register.el	Thu Mar 12 12:14:11 2009 +0000
@@ -58,13 +58,13 @@
 A list of the form (FRAME-CONFIGURATION POSITION)
  represents a saved frame configuration plus a saved value of point.")
 
-(defun get-register (reg)
-  "Return contents of Emacs register named REG, or nil if none."
-  (cdr (assq reg register-alist)))
+(defun get-register (register)
+  "Return contents of Emacs register named REGISTER, or nil if none."
+  (cdr (assq register register-alist)))
 
 (defun set-register (register value)
   "Set contents of Emacs register named REGISTER to VALUE.  Returns VALUE.
-See the documentation of the variable `register-alist' for possible VALUE."
+See the documentation of the variable `register-alist' for possible VALUEs."
   (let ((aelt (assq register register-alist)))
     (if aelt
 	(setcdr aelt value)
@@ -105,7 +105,7 @@
 (defun jump-to-register (register &optional delete)
   "Move point to location stored in a register.
 If the register contains a file name, find that file.
- \(To put a file name in a register, you must use `set-register'.)
+\(To put a file name in a register, you must use `set-register'.)
 If the register contains a window configuration (one frame) or a frame
 configuration (all frames), restore that frame or all frames accordingly.
 First argument is a character, naming the register.
@@ -288,7 +288,8 @@
   (if (not arg) (exchange-point-and-mark)))
 
 (defun copy-to-register (register start end &optional delete-flag)
-  "Copy region into register REGISTER.  With prefix arg, delete as well.
+  "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."
   (interactive "cCopy to register: \nr\nP")
@@ -325,8 +326,8 @@
 
 (defun copy-rectangle-to-register (register start end &optional delete-flag)
   "Copy rectangular region into register REGISTER.
-With prefix arg, delete as well.  To insert this register
-in the buffer, use \\[insert-register].
+With prefix arg, delete as well.
+To insert this register in the buffer, use \\[insert-register].
 
 Called from a program, takes four args: REGISTER, START, END and DELETE-FLAG.
 START and END are buffer positions giving two corners of rectangle."