diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cedet/ede.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/ede/generic.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/bovine/gcc.el | 3 |
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)) |