From 1a86cc81da9a6be24e32c7eec7e4c29c0532bad2 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 12 Mar 2009 12:14:11 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 7 +++++++ lisp/register.el | 17 +++++++++-------- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6f7ed27306a..574382aa545 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-03-12 Juanma Barranquero + + * 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 * mail/mailabbrev.el (mail-abbrev-next-line) diff --git a/lisp/register.el b/lisp/register.el index c944e5411d1..134589d65e2 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -58,13 +58,13 @@ A list of the form (WINDOW-CONFIGURATION POSITION) 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 @@ Argument is a character, naming the register." (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 @@ Interactively, second arg is non-nil if prefix arg is supplied." (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 @@ START and END are buffer positions indicating what to prepend." (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." -- 2.39.5