diff options
| author | David Engster <deng@randomsample.de> | 2017-01-25 23:12:00 +0100 |
|---|---|---|
| committer | David Engster <deng@randomsample.de> | 2017-01-25 23:14:29 +0100 |
| commit | d2a57bdfec4758cf7607e7976106cd1bfee5f6d7 (patch) | |
| tree | d4f4948e6a2247d9c4270c207d9afeef7928e2b1 /lisp/cedet/ede/base.el | |
| parent | 9c2feacc8558a8cc8e6d89ecd8473f9a3524d9ef (diff) | |
| download | emacs-scratch/last-cedet-merge.tar.gz | |
CEDET: Fix "unknown slot [...]" warningsscratch/last-cedet-merge
Replace (oref OBJECT :SLOT) with (slot-value OBJECT 'SLOT).
TODO: ChangeLog
Diffstat (limited to 'lisp/cedet/ede/base.el')
| -rw-r--r-- | lisp/cedet/ede/base.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/cedet/ede/base.el b/lisp/cedet/ede/base.el index 13d721a5f9a..dd72397da27 100644 --- a/lisp/cedet/ede/base.el +++ b/lisp/cedet/ede/base.el @@ -628,15 +628,15 @@ instead of the current project." The other slot will be used to calculate values. PROJECT-FILE-NAME is a name of project file (short name, like `pom.xml', etc." (when (and (or (not (slot-boundp this :file)) - (not (oref this :file))) + (not (slot-value this 'file))) (slot-boundp this :directory) - (oref this :directory)) - (oset this :file (expand-file-name project-file-name (oref this :directory)))) + (slot-value this 'directory)) + (oset this :file (expand-file-name project-file-name (slot-value this 'directory)))) (when (and (or (not (slot-boundp this :directory)) - (not (oref this :directory))) + (not (slot-value this 'directory))) (slot-boundp this :file) - (oref this :file)) - (oset this :directory (file-name-directory (oref this :file)))) + (slot-value this 'file)) + (oset this :directory (file-name-directory (slot-value this 'file)))) ) |