From d2a57bdfec4758cf7607e7976106cd1bfee5f6d7 Mon Sep 17 00:00:00 2001
From: David Engster
Date: Wed, 25 Jan 2017 23:12:00 +0100
Subject: CEDET: Fix "unknown slot [...]"  warnings

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

TODO: ChangeLog
---
 lisp/cedet/srecode/cpp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/cedet/srecode/cpp.el')

diff --git a/lisp/cedet/srecode/cpp.el b/lisp/cedet/srecode/cpp.el
index 8f9c0832844..9f675fcaf9e 100644
--- a/lisp/cedet/srecode/cpp.el
+++ b/lisp/cedet/srecode/cpp.el
@@ -122,7 +122,7 @@ specified in a C file."
   (srecode-semantic-apply-tag-to-dict-default tag-wrapper dict)
 
   ;; Pull out the tag for the individual pieces.
-  (let* ((tag   (oref tag-wrapper :prime))
+  (let* ((tag   (slot-value tag-wrapper 'prime))
 	 (class (semantic-tag-class tag)))
 
     ;; Add additional information based on the class of the tag.
-- 
cgit v1.2.1