diff options
Diffstat (limited to 'lisp/cedet/srecode/dictionary.el')
-rw-r--r-- | lisp/cedet/srecode/dictionary.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 2844c1b52da..5e581312fdd 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el @@ -123,7 +123,7 @@ Makes sure that :value is compiled." (cl-call-next-method this (nreverse newfields)) (when (not (slot-boundp this 'compiled)) - (let ((val (oref this :value)) + (let ((val (slot-value this 'value)) (comp nil)) (while val (let ((nval (car val)) @@ -224,7 +224,7 @@ TPL is an object representing a compiled template file." ;; Tables are sorted with highest priority first, useful for looking ;; up templates, but this means we need to install the variables in ;; reverse order so higher priority variables override lower ones. - (let ((tabs (reverse (oref tpl :tables)))) + (let ((tabs (reverse (slot-value tpl 'tables)))) (require 'srecode/find) ; For srecode-template-table-in-project-p (while tabs (when (srecode-template-table-in-project-p (car tabs)) @@ -519,7 +519,7 @@ inserted with a new editable field.") (let* ((dv (oref cp defaultvalue)) (sti (oref cp firstinserter)) (start (point)) - (name (oref sti :object-name))) + (name (slot-value sti 'object-name))) (cond ;; No default value. |