Mercurial > emacs
changeset 101832:aa61f808aca4
(c-emacs-features): Change a let to a let* to eliminate BC warnings.
| author | Alan Mackenzie <acm@muc.de> |
|---|---|
| date | Fri, 06 Feb 2009 10:13:59 +0000 |
| parents | 20072969284d |
| children | 97ed2489367d |
| files | lisp/progmodes/cc-defs.el |
| diffstat | 1 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cc-defs.el Fri Feb 06 09:42:13 2009 +0000 +++ b/lisp/progmodes/cc-defs.el Fri Feb 06 10:13:59 2009 +0000 @@ -1446,19 +1446,19 @@ ;; 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)