diff options
| author | Tom Tromey | 2017-03-18 23:01:16 +0100 |
|---|---|---|
| committer | Tom Tromey | 2017-04-05 15:53:38 -0600 |
| commit | d056b1faea69ccd61be4c00259e34de741b9a39e (patch) | |
| tree | 5552b3cd851b10da3975e4c05565c08281788115 | |
| parent | 089b159287e6615246500bcb63fb33a97526bcf3 (diff) | |
| download | emacs-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.el | 2 |
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 | |||
| 329 | to use Semantic, and `semantic-init-hook' is run." | 329 | to 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, |