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

1 files changed, 13 insertions, 13 deletions

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)