From e9176a6375c587e3bdf76c94b5e457a2c52ca4f4 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Fri, 6 Feb 2009 10:13:59 +0000 Subject: [PATCH] (c-emacs-features): Change a let to a let* to eliminate BC warnings. --- lisp/progmodes/cc-defs.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index 01b11cfe8e..e12b9c1dc1 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) -- 2.20.1