aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/cedet/ede.el2
-rw-r--r--lisp/cedet/ede/generic.el2
-rw-r--r--lisp/cedet/semantic/bovine/gcc.el3
3 files changed, 4 insertions, 3 deletions
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 074fda97862..43660a8bb71 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -339,7 +339,7 @@ Argument MENU-DEF is the menu definition to use."
339 (progn 339 (progn
340 (while (and class (slot-exists-p class 'menu)) 340 (while (and class (slot-exists-p class 'menu))
341 ;;(message "Looking at class %S" class) 341 ;;(message "Looking at class %S" class)
342 (setq menu (append menu (oref class menu)) 342 (setq menu (append menu (oref-default class menu))
343 class (eieio-class-parent class)) 343 class (eieio-class-parent class))
344 (if (listp class) (setq class (car class)))) 344 (if (listp class) (setq class (car class))))
345 (append 345 (append
diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el
index 7e1425f1318..9e6fc978376 100644
--- a/lisp/cedet/ede/generic.el
+++ b/lisp/cedet/ede/generic.el
@@ -230,7 +230,7 @@ If one doesn't exist, create a new one for this directory."
230 (when ext 230 (when ext
231 (dolist (C classes) 231 (dolist (C classes)
232 (let* ((classsym (intern (car C))) 232 (let* ((classsym (intern (car C)))
233 (extreg (oref classsym extension))) 233 (extreg (oref-default classsym extension)))
234 (when (and (not (string= extreg "")) 234 (when (and (not (string= extreg ""))
235 (string-match (concat "\\`\\(?:" extreg "\\)\\'") ext)) 235 (string-match (concat "\\`\\(?:" extreg "\\)\\'") ext))
236 (setq cls classsym))))) 236 (setq cls classsym)))))
diff --git a/lisp/cedet/semantic/bovine/gcc.el b/lisp/cedet/semantic/bovine/gcc.el
index b186e7bd6ee..fe7a14451f5 100644
--- a/lisp/cedet/semantic/bovine/gcc.el
+++ b/lisp/cedet/semantic/bovine/gcc.el
@@ -164,8 +164,9 @@ It should also include other symbols GCC was compiled with.")
164 (host (or (cdr (assoc 'target fields)) 164 (host (or (cdr (assoc 'target fields))
165 (cdr (assoc '--target fields)) 165 (cdr (assoc '--target fields))
166 (cdr (assoc '--host fields)))) 166 (cdr (assoc '--host fields))))
167 (prefix (cdr (assoc '--prefix fields))) 167 ;; (prefix (cdr (assoc '--prefix fields)))
168 ;; gcc output supplied paths 168 ;; gcc output supplied paths
169 ;; FIXME: Where are `c-include-path' and `c++-include-path' used?
169 (c-include-path (semantic-gcc-get-include-paths "c")) 170 (c-include-path (semantic-gcc-get-include-paths "c"))
170 (c++-include-path (semantic-gcc-get-include-paths "c++")) 171 (c++-include-path (semantic-gcc-get-include-paths "c++"))
171 (gcc-exe (locate-file "gcc" exec-path exec-suffixes 'executable)) 172 (gcc-exe (locate-file "gcc" exec-path exec-suffixes 'executable))