From: Alan Mackenzie <acm@muc.de>
Date: Fri, 6 Feb 2009 10:13:59 +0000 (+0000)
Subject: (c-emacs-features): Change a let to a let* to eliminate BC warnings.
X-Git-Tag: emacs-pretest-23.0.91~384
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9176a6375c587e3bdf76c94b5e457a2c52ca4f4;p=emacs.git

(c-emacs-features): Change a let to a let* to eliminate BC warnings.
---

diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index 01b11cfe8e2..e12b9c1dc13 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -1446,19 +1446,19 @@ non-nil, a caret is prepended to invert the set."
     ;; Check whether beginning/end-of-defun call
     ;; beginning/end-of-defun-function nicely, passing through the
     ;; argument and respecting the return code.
-    (let (mark-ring
-	  (bod-param 'foo) (eod-param 'foo)
-	  (beginning-of-defun-function
-	   (lambda (&optional arg)
-	     (or (eq bod-param 'foo) (setq bod-param 'bar))
-	     (and (eq bod-param 'foo)
-		  (setq bod-param arg)
-		  (eq arg 3))))
-	  (end-of-defun-function
-	   (lambda (&optional arg)
-	     (and (eq eod-param 'foo)
-		  (setq eod-param arg)
-		  (eq arg 3)))))
+    (let* (mark-ring
+	   (bod-param 'foo) (eod-param 'foo)
+	   (beginning-of-defun-function
+	    (lambda (&optional arg)
+	      (or (eq bod-param 'foo) (setq bod-param 'bar))
+	      (and (eq bod-param 'foo)
+		   (setq bod-param arg)
+		   (eq arg 3))))
+	   (end-of-defun-function
+	    (lambda (&optional arg)
+	      (and (eq eod-param 'foo)
+		   (setq eod-param arg)
+		   (eq arg 3)))))
       (if (save-excursion (and (beginning-of-defun 3) (= bod-param 3)
 			       (not (beginning-of-defun))
 			       (end-of-defun 3) (= eod-param 3)