From: Eric Ludlam <eric@siege-engine.com>
Date: Sat, 8 Aug 2015 14:45:15 +0000 (-0400)
Subject: semantic: New function to find library with macro definition
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=deaa8c9f750ddc5e3896236bf84492eba1a0bafb;p=emacs.git

semantic: New function to find library with macro definition

* lisp/cedet/semantic/grammar.el
  (semantic--grammar-find-macro-symbol-library): New
---

diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el
index e7dd7c43b6e..3260ddd5166 100644
--- a/lisp/cedet/semantic/grammar.el
+++ b/lisp/cedet/semantic/grammar.el
@@ -1546,6 +1546,16 @@ Return the tag found or nil if not found."
                  semanticdb-current-database
                  (cdar (semanticdb-find-tags-by-name name nil t)))))))
 
+(defun semantic--grammar-find-macro-symbol-library (def)
+  "Return the library the macro defined by DEF is in."
+  (let ((lib (symbol-file (cdr def) 'defun)))
+    (if (not (string-match "\\.elc" lib))
+	lib
+      (setq lib2 (replace-match ".el" t t lib 0))
+      (if (file-exists-p lib2)
+	  lib2
+	lib))))
+
 (defsubst semantic--grammar-macro-lib-part (def)
   "Return the library part of the grammar macro defined by DEF."
   (let ((suf (format "-%s\\'" (regexp-quote (symbol-name (car def)))))