# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1160063610 0
# Node ID 25e1db3fd0eddef51d0e37c5eafb7f70d3327a21
# Parent  cec4203a509715dfafcfc7efe757cc4d04bb5e0f
(ad-remove-advice, ad-parse-arglist, ad-make-mapped-call):
Use `let', not `let*'.

diff -r cec4203a5097 -r 25e1db3fd0ed lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Thu Oct 05 14:46:49 2006 +0000
+++ b/lisp/emacs-lisp/advice.el	Thu Oct 05 15:53:30 2006 +0000
@@ -2409,7 +2409,7 @@
 in that CLASS."
   (interactive (ad-read-advice-specification "Remove advice of"))
   (if (ad-is-advised function)
-      (let* ((advice-to-remove (ad-find-advice function class name)))
+      (let ((advice-to-remove (ad-find-advice function class name)))
 	(if advice-to-remove
 	    (ad-set-advice-info-field
 	     function class
@@ -2747,7 +2747,7 @@
 A three-element list is returned, where the 1st element is the list of
 required arguments, the 2nd is the list of optional arguments, and the 3rd
 is the name of an optional rest parameter (or nil)."
-  (let* (required optional rest)
+  (let (required optional rest)
     (setq rest (car (cdr (memq '&rest arglist))))
     (if rest (setq arglist (reverse (cdr (memq '&rest (reverse arglist))))))
     (setq optional (cdr (memq '&optional arglist)))
@@ -2958,7 +2958,7 @@
 
 (defun ad-make-mapped-call (source-arglist target-arglist target-function)
   "Make form to call TARGET-FUNCTION with args from SOURCE-ARGLIST."
-  (let* ((mapped-form (ad-map-arglists source-arglist target-arglist)))
+  (let ((mapped-form (ad-map-arglists source-arglist target-arglist)))
     (if (eq (car mapped-form) 'funcall)
 	(cons target-function (cdr (cdr mapped-form)))
       (prog1 mapped-form