CEDET: Fix "unknown slot [...]" warningsscratch/last-cedet-merge

Replace (oref OBJECT :SLOT) with (slot-value OBJECT 'SLOT).

TODO: ChangeLog

1 files changed, 7 insertions, 7 deletions

diff --git a/lisp/cedet/semantic/symref/global.el b/lisp/cedet/semantic/symref/global.el
index e91ecf07bcc..f3a5b57c551 100644
--- a/lisp/cedet/semantic/symref/global.el
+++ b/lisp/cedet/semantic/symref/global.el
@@ -40,10 +40,10 @@ See the function `cedet-gnu-global-search' for more details.")
 
 (cl-defmethod semantic-symref-perform-search ((tool semantic-symref-tool-global))
   "Perform a search with GNU Global."
-  (let ((b (cedet-gnu-global-search (oref tool :searchfor)
-				    (oref tool :searchtype)
-				    (oref tool :resulttype)
-				    (oref tool :searchscope)
+  (let ((b (cedet-gnu-global-search (slot-value tool 'searchfor)
+				    (slot-value tool 'searchtype)
+				    (slot-value tool 'resulttype)
+				    (slot-value tool 'searchscope)
 				    ))
 	)
     (semantic-symref-parse-tool-output tool b)
@@ -55,12 +55,12 @@ See the function `cedet-gnu-global-search' for more details.")
 (cl-defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-global))
   "Parse one line of grep output, and return it as a match list.
 Moves cursor to end of the match."
-  (cond ((or (eq (oref tool :resulttype) 'file)
-	     (eq (oref tool :searchtype) 'tagcompletions))
+  (cond ((or (eq (slot-value tool 'resulttype) 'file)
+	     (eq (slot-value tool 'searchtype) 'tagcompletions))
 	 ;; Search for files
 	 (when (re-search-forward "^\\([^\n]+\\)$" nil t)
 	   (match-string 1)))
-        ((eq (oref tool :resulttype) 'line-and-text)
+        ((eq (slot-value tool 'resulttype) 'line-and-text)
          (when (re-search-forward semantic-symref-global--line-re nil t)
            (list (string-to-number (match-string 2))
                  (match-string 3)