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/semantic/texi.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/semantic/texi.el')
| -rw-r--r-- | lisp/cedet/semantic/texi.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el index d9a5058e55c..fb7c9928d63 100644 --- a/lisp/cedet/semantic/texi.el +++ b/lisp/cedet/semantic/texi.el @@ -419,9 +419,9 @@ useful. Instead, look at the current symbol. If it is a command do primitive texinfo built ins. If not, use ispell to lookup words that start with that symbol. Any extra FLAGS are currently ignored." - (let ((prefix (car (oref context :prefix))) + (let ((prefix (car (slot-value context 'prefix))) ) - (cond ((member 'function (oref context :prefixclass)) + (cond ((member 'function (slot-value context 'prefixclass)) ;; Do completion for texinfo commands (let* ((cmd (substring prefix 1)) (lst (all-completions @@ -429,7 +429,7 @@ Any extra FLAGS are currently ignored." (mapcar (lambda (f) (semantic-tag (concat "@" f) 'function)) lst)) ) - ((member 'word (oref context :prefixclass)) + ((member 'word (slot-value context 'prefixclass)) ;; Do completion for words via ispell. (require 'ispell) (let ((word-list (ispell-lookup-words prefix))) |