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

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

TODO: ChangeLog

1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/cedet/srecode/mode.el b/lisp/cedet/srecode/mode.el
index 566ab5d366a..c92c45fa885 100644
--- a/lisp/cedet/srecode/mode.el
+++ b/lisp/cedet/srecode/mode.el
@@ -196,7 +196,7 @@ MENU-DEF is the menu to bind this into."
   ;;(srecode-load-tables-for-mode major-mode)
 
   (let* ((modetable (srecode-get-mode-table major-mode))
-	 (subtab (when modetable (oref modetable :tables)))
+	 (subtab (when modetable (slot-value modetable 'tables)))
 	 (context nil)
 	 (active nil)
 	 (ltab nil)
@@ -319,17 +319,17 @@ Template is chosen based on the mode of the starting buffer."
       (if (not temp)
 	  (error "No Template named %s" template-name))
       ;; We need a template specific table, since tables chain.
-      (let ((tab (oref temp :table))
+      (let ((tab (slot-value temp 'table))
 	    (names nil)
 	    )
-	(find-file (oref tab :file))
-	(setq names (semantic-find-tags-by-name (oref temp :object-name)
+	(find-file (slot-value tab 'file))
+	(setq names (semantic-find-tags-by-name (slot-value temp 'object-name)
 						(current-buffer)))
 	(cond ((= (length names) 1)
 	       (semantic-go-to-tag (car names))
 	       (semantic-momentary-highlight-tag (car names)))
 	      ((> (length names) 1)
-	       (let* ((ctxt (semantic-find-tags-by-name (oref temp :context)
+	       (let* ((ctxt (semantic-find-tags-by-name (slot-value temp 'context)
 							(current-buffer)))
 		      (cls (semantic-find-tags-by-class 'context ctxt))
 		      )