diff options
| author | Lars Ingebrigtsen | 2019-06-13 16:56:01 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-13 16:56:01 +0200 |
| commit | 5b8fa272792d8072f51ff048646022fde1db73f4 (patch) | |
| tree | c1d18f6b3fb7e02bb032d7f43ca01a65d5ef1c1c | |
| parent | 1cd77d2021c9d22f1fbdbccd8918435ec7c10372 (diff) | |
| download | emacs-5b8fa272792d8072f51ff048646022fde1db73f4.tar.gz emacs-5b8fa272792d8072f51ff048646022fde1db73f4.zip | |
semantic/grammar byte compilation fixes
* lisp/cedet/semantic/grammar.el (semantic/analyze): Require to
avoid compilation warnings about unknown slots, and remove
declare-function.
| -rw-r--r-- | lisp/cedet/semantic/grammar.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el index 7fb54cbb899..2af7a7fa826 100644 --- a/lisp/cedet/semantic/grammar.el +++ b/lisp/cedet/semantic/grammar.el | |||
| @@ -37,9 +37,9 @@ | |||
| 37 | (require 'semantic/grammar-wy) | 37 | (require 'semantic/grammar-wy) |
| 38 | (require 'semantic/idle) | 38 | (require 'semantic/idle) |
| 39 | (require 'help-fns) | 39 | (require 'help-fns) |
| 40 | (require 'semantic/analyze) | ||
| 40 | 41 | ||
| 41 | (declare-function semantic-momentary-highlight-tag "semantic/decorate") | 42 | (declare-function semantic-momentary-highlight-tag "semantic/decorate") |
| 42 | (declare-function semantic-analyze-context "semantic/analyze") | ||
| 43 | (declare-function semantic-analyze-tags-of-class-list | 43 | (declare-function semantic-analyze-tags-of-class-list |
| 44 | "semantic/analyze/complete") | 44 | "semantic/analyze/complete") |
| 45 | 45 | ||
| @@ -1878,7 +1878,6 @@ Optional argument COLOR determines if color is added to the text." | |||
| 1878 | (define-mode-local-override semantic-analyze-current-context | 1878 | (define-mode-local-override semantic-analyze-current-context |
| 1879 | semantic-grammar-mode (point) | 1879 | semantic-grammar-mode (point) |
| 1880 | "Provide a semantic analysis object describing a context in a grammar." | 1880 | "Provide a semantic analysis object describing a context in a grammar." |
| 1881 | (require 'semantic/analyze) | ||
| 1882 | (if (semantic-grammar-in-lisp-p) | 1881 | (if (semantic-grammar-in-lisp-p) |
| 1883 | (with-mode-local emacs-lisp-mode | 1882 | (with-mode-local emacs-lisp-mode |
| 1884 | (semantic-analyze-current-context point)) | 1883 | (semantic-analyze-current-context point)) |