[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/advice.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/advice.el |
Date: |
Sat, 19 Sep 2009 20:06:58 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/09/19 20:06:57
Modified files:
lisp : ChangeLog
lisp/emacs-lisp: advice.el
Log message:
* emacs-lisp/advice.el (ad-get-argument, ad-set-argument): Doc
fix (Bug#3932).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16213&r2=1.16214
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/advice.el?cvsroot=emacs&r1=1.65&r2=1.66
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16213
retrieving revision 1.16214
diff -u -b -r1.16213 -r1.16214
--- ChangeLog 19 Sep 2009 19:54:36 -0000 1.16213
+++ ChangeLog 19 Sep 2009 20:06:54 -0000 1.16214
@@ -1,5 +1,8 @@
2009-09-19 Chong Yidong <address@hidden>
+ * 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)
Index: emacs-lisp/advice.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/advice.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- emacs-lisp/advice.el 22 Jul 2009 02:45:37 -0000 1.65
+++ emacs-lisp/advice.el 19 Sep 2009 20:06:57 -0000 1.66
@@ -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?
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/advice.el,
Chong Yidong <=