diff options
| author | Alan Mackenzie <acm@muc.de> | 2015-09-14 12:44:09 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2015-09-14 12:44:09 +0000 |
| commit | 498d7fe980250b07a25bcb0a588337484d497100 (patch) | |
| tree | 1f10fd3a9b15fc006b8133d5dbc687b680217e15 /lisp/progmodes | |
| parent | 48f3aa93ae682a17e0dbc1d5ca6fa2fb26821bb9 (diff) | |
| download | emacs-498d7fe980250b07a25bcb0a588337484d497100.tar.gz | |
Replace `cadar' with `cadr/car', since `cadar' is problematic on Emacs.
(c-make-init-lang-vars-fun): Replace two occurrences of `cadar' with
`cadr/car'.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index a1e26b9fcc4..e9c49644676 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el @@ -3306,7 +3306,7 @@ accomplish that conveniently." (cdr c-lang-variable-inits)))) (while init (setq current-var (caar init)) - (set (caar init) (eval (cadar init))) + (set (caar init) (eval (cadr (car init)))) (setq init (cdr init))))) (error @@ -3335,7 +3335,7 @@ accomplish that conveniently." (while init (setq current-var (caar init)) - (set (caar init) (eval (cadar init))) + (set (caar init) (eval (cadr (car init)))) (setq init (cdr init))) (error |