diff options
| author | Lars Ingebrigtsen | 2019-06-14 15:32:33 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-14 15:32:33 +0200 |
| commit | 2604ea84b3b621c79c1982b9889f2b7719daf450 (patch) | |
| tree | f192d0556dbd45a3e9d9e47b1ad3789ed8522f6d | |
| parent | 4d96ee406d846008db9419f91915b959d046a592 (diff) | |
| download | emacs-2604ea84b3b621c79c1982b9889f2b7719daf450.tar.gz emacs-2604ea84b3b621c79c1982b9889f2b7719daf450.zip | |
srecode/dictionary compilation warning fix
* lisp/cedet/srecode/dictionary.el (srecode/fields): Require to
avoid compilation warning about unknown slot. Remove function
declarations that point to that file.
| -rw-r--r-- | lisp/cedet/srecode/dictionary.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 8508371d53b..63635e5ccda 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el | |||
| @@ -32,6 +32,7 @@ | |||
| 32 | (require 'cl-generic) | 32 | (require 'cl-generic) |
| 33 | (require 'srecode) | 33 | (require 'srecode) |
| 34 | (require 'srecode/table) | 34 | (require 'srecode/table) |
| 35 | (require 'srecode/fields) | ||
| 35 | (eval-when-compile (require 'semantic)) | 36 | (eval-when-compile (require 'semantic)) |
| 36 | 37 | ||
| 37 | (declare-function srecode-compile-parse-inserter "srecode/compile") | 38 | (declare-function srecode-compile-parse-inserter "srecode/compile") |
| @@ -41,7 +42,6 @@ | |||
| 41 | (declare-function srecode-insert-code-stream "srecode/insert") | 42 | (declare-function srecode-insert-code-stream "srecode/insert") |
| 42 | (declare-function data-debug-new-buffer "data-debug") | 43 | (declare-function data-debug-new-buffer "data-debug") |
| 43 | (declare-function data-debug-insert-object-slots "eieio-datadebug") | 44 | (declare-function data-debug-insert-object-slots "eieio-datadebug") |
| 44 | (declare-function srecode-field "srecode/fields") | ||
| 45 | 45 | ||
| 46 | (defclass srecode-dictionary () | 46 | (defclass srecode-dictionary () |
| 47 | ((namehash :initarg :namehash | 47 | ((namehash :initarg :namehash |
| @@ -505,7 +505,6 @@ inserted with a new editable field.") | |||
| 505 | function | 505 | function |
| 506 | dictionary) | 506 | dictionary) |
| 507 | "Convert this field into an insertable string." | 507 | "Convert this field into an insertable string." |
| 508 | (require 'srecode/fields) | ||
| 509 | ;; If we are not in a buffer, then this is not supported. | 508 | ;; If we are not in a buffer, then this is not supported. |
| 510 | (when (not (bufferp standard-output)) | 509 | (when (not (bufferp standard-output)) |
| 511 | (error "FIELDS invoked while inserting template to non-buffer")) | 510 | (error "FIELDS invoked while inserting template to non-buffer")) |