Mercurial > emacs
changeset 105113:1a0de48a918c
* emacs-lisp/advice.el (ad-get-argument, ad-set-argument): Doc
fix (Bug#3932).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 19 Sep 2009 20:06:54 +0000 |
| parents | d2b9d18c1008 |
| children | c9577a1b5ce8 |
| files | lisp/ChangeLog lisp/emacs-lisp/advice.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 19 19:55:00 2009 +0000 +++ b/lisp/ChangeLog Sat Sep 19 20:06:54 2009 +0000 @@ -1,5 +1,8 @@ 2009-09-19 Chong Yidong <cyd@stupidchicken.com> + * emacs-lisp/advice.el (ad-get-argument, ad-set-argument): Doc + fix (Bug#3932). + * subr.el (baud-rate): Remove long-obsolete function (Bug#4372). * time-stamp.el (time-stamp-month-dd-yyyy)
--- a/lisp/emacs-lisp/advice.el Sat Sep 19 19:55:00 2009 +0000 +++ b/lisp/emacs-lisp/advice.el Sat Sep 19 20:06:54 2009 +0000 @@ -2781,7 +2781,8 @@ (list (- index (length reqopt-args)) rest-arg))))) (defun ad-get-argument (arglist index) - "Return form to access ARGLIST's actual argument at position INDEX." + "Return form to access ARGLIST's actual argument at position INDEX. +INDEX counts from zero." (let ((argument-access (ad-access-argument arglist index))) (cond ((consp argument-access) (ad-element-access @@ -2789,7 +2790,8 @@ (argument-access)))) (defun ad-set-argument (arglist index value-form) - "Return form to set ARGLIST's actual arg at INDEX to VALUE-FORM." + "Return form to set ARGLIST's actual arg at INDEX to VALUE-FORM. +INDEX counts from zero." (let ((argument-access (ad-access-argument arglist index))) (cond ((consp argument-access) ;; should this check whether there actually is something to set?