diff options
| author | Lars Ingebrigtsen | 2019-06-13 16:53:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-13 16:53:10 +0200 |
| commit | 1cd77d2021c9d22f1fbdbccd8918435ec7c10372 (patch) | |
| tree | 695592b3caa8b12cfac750fe25be47cb2a8af5d0 | |
| parent | 126702a979629212bc067b81a3c71a3299e0a913 (diff) | |
| download | emacs-1cd77d2021c9d22f1fbdbccd8918435ec7c10372.tar.gz emacs-1cd77d2021c9d22f1fbdbccd8918435ec7c10372.zip | |
semantic/chart.el compilation warning fixes
* lisp/cedet/semantic/chart.el (semantic/db-typecache)
(semantic/scope): Require to avoid byte compilation warnings about
undefined slots. Remove declare-functions from these packages.
| -rw-r--r-- | lisp/cedet/semantic/chart.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/cedet/semantic/chart.el b/lisp/cedet/semantic/chart.el index 02da145ca5b..c02588d68b9 100644 --- a/lisp/cedet/semantic/chart.el +++ b/lisp/cedet/semantic/chart.el | |||
| @@ -29,6 +29,8 @@ | |||
| 29 | (require 'chart) | 29 | (require 'chart) |
| 30 | (require 'semantic/db) | 30 | (require 'semantic/db) |
| 31 | (require 'semantic/find) | 31 | (require 'semantic/find) |
| 32 | (require 'semantic/db-typecache) | ||
| 33 | (require 'semantic/scope) | ||
| 32 | 34 | ||
| 33 | ;;; Code: | 35 | ;;; Code: |
| 34 | 36 | ||
| @@ -140,14 +142,9 @@ items are charted. TAGTABLE is passed to | |||
| 140 | nums "Complexity (Lines of code)") | 142 | nums "Complexity (Lines of code)") |
| 141 | )) | 143 | )) |
| 142 | 144 | ||
| 143 | (declare-function semanticdb-get-typecache "semantic/db-typecache") | ||
| 144 | (declare-function semantic-calculate-scope "semantic/scope") | ||
| 145 | |||
| 146 | (defun semantic-chart-analyzer () | 145 | (defun semantic-chart-analyzer () |
| 147 | "Chart the extent of the context analysis." | 146 | "Chart the extent of the context analysis." |
| 148 | (interactive) | 147 | (interactive) |
| 149 | (require 'semantic/db-typecache) | ||
| 150 | (require 'semantic/scope) | ||
| 151 | (let* ((p (semanticdb-find-translate-path nil nil)) | 148 | (let* ((p (semanticdb-find-translate-path nil nil)) |
| 152 | (plen (length p)) | 149 | (plen (length p)) |
| 153 | (tab semanticdb-current-table) | 150 | (tab semanticdb-current-table) |