diff options
Diffstat (limited to 'lisp/cedet/ede/config.el')
| -rw-r--r-- | lisp/cedet/ede/config.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/cedet/ede/config.el b/lisp/cedet/ede/config.el index 75d0197dffd..011ef7c7054 100644 --- a/lisp/cedet/ede/config.el +++ b/lisp/cedet/ede/config.el @@ -143,7 +143,7 @@ the directory isn't on the `safe' list, ask to add it to the safe list." (setq config nil)) (when (not config) - (let* ((top (oref proj :directory)) + (let* ((top (slot-value proj 'directory)) (fname (expand-file-name (oref proj config-file-basename) top)) (class (oref proj config-class)) (ignore-type nil)) @@ -262,7 +262,7 @@ programs from a project.") "Run the current project derived from TARGET in a debugger." (let* ((proj (ede-target-parent target)) (config (ede-config-get-configuration proj t)) - (debug (oref config :debug-command)) + (debug (slot-value config 'debug-command)) (cmd (read-from-minibuffer "Debug Command: " debug)) @@ -279,7 +279,7 @@ programs from a project.") "Run the current project derived from TARGET." (let* ((proj (ede-target-parent target)) (config (ede-config-get-configuration proj t)) - (run (concat "./" (oref config :run-command))) + (run (concat "./" (slot-value config 'run-command))) (cmd (read-from-minibuffer "Run (like this): " run))) (ede-shell-run-something target cmd))) @@ -310,7 +310,7 @@ This class brings in method overloads for for building.") "Compile the entire current project PROJ. Argument COMMAND is the command to use when compiling." (let* ((config (ede-config-get-configuration proj t)) - (comp (oref config :build-command))) + (comp (slot-value config 'build-command))) (compile comp))) (cl-defmethod project-compile-target ((obj ede-target-with-config-build) &optional command) @@ -379,7 +379,7 @@ the preprocessor map, and include paths.") filemap ) ;; Preprocessor files - (dolist (G (oref config :c-preprocessor-files)) + (dolist (G (slot-value config 'c-preprocessor-files)) (let ((table (semanticdb-file-table-object (ede-expand-filename root G)))) (when table @@ -388,7 +388,7 @@ the preprocessor map, and include paths.") (setq filemap (append filemap (oref table lexical-table))) ))) ;; The core table - (setq filemap (append filemap (oref config :c-preprocessor-table))) + (setq filemap (append filemap (slot-value config 'c-preprocessor-table))) filemap )) @@ -417,7 +417,7 @@ java class path.") (cl-defmethod ede-java-classpath ((proj ede-project-with-config-java)) "Return the classpath for this project." - (oref (ede-config-get-configuration proj) :classpath)) + (slot-value (ede-config-get-configuration proj) 'classpath)) ;; Local variables: ;; generated-autoload-file: "loaddefs.el" |