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/srecode/args.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/srecode/args.el')
| -rw-r--r-- | lisp/cedet/srecode/args.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cedet/srecode/args.el b/lisp/cedet/srecode/args.el index facf96e9afb..9fc1b810827 100644 --- a/lisp/cedet/srecode/args.el +++ b/lisp/cedet/srecode/args.el @@ -174,7 +174,7 @@ do not contain any text from preceding or following text." (srecode-dictionary-set-value dict "PROJECT_FILENAME" relfname) (srecode-dictionary-set-value dict "PROJECT_DIRECTORY" reldir) (srecode-dictionary-set-value dict "PROJECT_NAME" (ede-name (ede-toplevel))) - (srecode-dictionary-set-value dict "PROJECT_VERSION" (oref (ede-toplevel) :version)) + (srecode-dictionary-set-value dict "PROJECT_VERSION" (slot-value (ede-toplevel) 'version)) ) ;; If there is no EDE project, then put in some base values. (srecode-dictionary-set-value dict "PROJECT_FILENAME" bfn) |