aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTom Tromey2017-03-18 23:01:16 +0100
committerTom Tromey2017-04-05 15:53:38 -0600
commitd056b1faea69ccd61be4c00259e34de741b9a39e (patch)
tree5552b3cd851b10da3975e4c05565c08281788115
parent089b159287e6615246500bcb63fb33a97526bcf3 (diff)
downloademacs-d056b1faea69ccd61be4c00259e34de741b9a39e.tar.gz
emacs-d056b1faea69ccd61be4c00259e34de741b9a39e.zip
change semantic to use derived-mode-p
* lisp/cedet/semantic.el (semantic-new-buffer-fcn): Use derived-mode-p.
-rw-r--r--lisp/cedet/semantic.el2
1 files changed, 1 insertions, 1 deletions
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
329to use Semantic, and `semantic-init-hook' is run." 329to use Semantic, and `semantic-init-hook' is run."
330 ;; In upstream Semantic, the parser setup functions are called from 330 ;; In upstream Semantic, the parser setup functions are called from
331 ;; mode hooks. In the version bundled with Emacs, we do it here. 331 ;; mode hooks. In the version bundled with Emacs, we do it here.
332 (let ((entry (assq major-mode semantic-new-buffer-setup-functions))) 332 (let ((entry (cl-assoc-if #'derived-mode-p semantic-new-buffer-setup-functions)))
333 (when entry 333 (when entry
334 (funcall (cdr entry)))) 334 (funcall (cdr entry))))
335 ;; Do stuff if semantic was activated by a mode hook in this buffer, 335 ;; Do stuff if semantic was activated by a mode hook in this buffer,