emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 498d7fe: Replace `cadar' with `cadr/car', since `ca


From: Alan Mackenzie
Subject: [Emacs-diffs] master 498d7fe: Replace `cadar' with `cadr/car', since `cadar' is problematic on Emacs.
Date: Mon, 14 Sep 2015 12:43:59 +0000

branch: master
commit 498d7fe980250b07a25bcb0a588337484d497100
Author: Alan Mackenzie <address@hidden>
Commit: Alan Mackenzie <address@hidden>

    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'.
---
 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 a1e26b9..e9c4964 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]