From: Tom Tromey <tom@tromey.com>
Date: Sat, 18 Mar 2017 22:01:16 +0000 (+0100)
Subject: change semantic to use derived-mode-p
X-Git-Tag: emacs-26.0.90~521^2~720
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d056b1faea69ccd61be4c00259e34de741b9a39e;p=emacs.git

change semantic to use derived-mode-p

* lisp/cedet/semantic.el (semantic-new-buffer-fcn): Use derived-mode-p.
---

diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index bf5bfa89caf..a3c03dc4604 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -329,7 +329,7 @@ If the major mode is ready for Semantic, and no
 to use Semantic, and `semantic-init-hook' is run."
   ;; In upstream Semantic, the parser setup functions are called from
   ;; mode hooks.  In the version bundled with Emacs, we do it here.
-  (let ((entry (assq major-mode semantic-new-buffer-setup-functions)))
+  (let ((entry (cl-assoc-if #'derived-mode-p semantic-new-buffer-setup-functions)))
     (when entry
       (funcall (cdr entry))))
   ;; Do stuff if semantic was activated by a mode hook in this buffer,