From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 19 Sep 2009 20:06:54 +0000 (+0000)
Subject: * emacs-lisp/advice.el (ad-get-argument, ad-set-argument): Doc
X-Git-Tag: emacs-pretest-23.1.90~1230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2045997eef07a7e319a077b8c20701a8ce36da3;p=emacs.git

* emacs-lisp/advice.el (ad-get-argument, ad-set-argument): Doc
fix (Bug#3932).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72d309fd0ee..dfd9aee6bf1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)
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?