diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-09-19 20:06:54 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-09-19 20:06:54 +0000 |
| commit | e2045997eef07a7e319a077b8c20701a8ce36da3 (patch) | |
| tree | 7fea7783a10d3c6572075dfff84b621b1f7f93e3 /lisp/emacs-lisp | |
| parent | 83f83a9815b0f34cb0ca77908e3e374febe1568e (diff) | |
| download | emacs-e2045997eef07a7e319a077b8c20701a8ce36da3.tar.gz emacs-e2045997eef07a7e319a077b8c20701a8ce36da3.tar.bz2 emacs-e2045997eef07a7e319a077b8c20701a8ce36da3.zip | |
* emacs-lisp/advice.el (ad-get-argument, ad-set-argument): Doc
fix (Bug#3932).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index f9f80cdcbb6..8342f14ec5b 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -2781,7 +2781,8 @@ to be accessed, it returns a list with the index and name." (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 @@ to be accessed, it returns a list with the index and name." (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? |