;;; semantic/db-el.el --- Semantic database extensions for Emacs Lisp
-;;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
+;;; Copyright (C) 2002-2016 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: tags
(symbol-name sym)
"class"
(semantic-elisp-desymbolify
- (let ((class (find-class sym)))
- (if (fboundp 'eieio-slot-descriptor-name)
- (mapcar #'eieio-slot-descriptor-name
- (eieio-class-slots class))
- (eieio--class-public-a class))))
+ (let ((class (find-class sym)))
+ (if (fboundp 'eieio--class-public-a) ; Emacs < 25.1
+ (eieio--class-public-a class)
+ (mapcar #'eieio-slot-descriptor-name
+ (eieio-class-slots class)))))
(semantic-elisp-desymbolify (eieio-class-parents sym)) ;; parents
))
((not toktype)
(mapcar 'semanticdb-elisp-sym->tag
;; Fancy eieio function that knows all about
;; built in methods belonging to CLASS.
- (eieio-all-generic-functions class)))))
+ (cl-generic-all-functions class)))))
)
taglst))))