diff options
| author | Lars Ingebrigtsen | 2019-06-17 15:51:43 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-17 15:51:43 +0200 |
| commit | 44a086e5ccb920bb5a310079130ce1eaabdfe4ce (patch) | |
| tree | 065cbccf80679a34c2c696ed183b874e8c52566b /lisp/cedet/ede | |
| parent | c0b322e33c3e6d782da596ae91f3916d7195c12e (diff) | |
| download | emacs-44a086e5ccb920bb5a310079130ce1eaabdfe4ce.tar.gz emacs-44a086e5ccb920bb5a310079130ce1eaabdfe4ce.zip | |
Declare unknown slots to silence the compiler
* lisp/cedet/ede/config.el (classpath): Declare slot.
(ede-java-classpath): Revert previous hack.
* lisp/cedet/srecode/srt-mode.el (key): Declare slot.
(srecode-macro-help): Revert previous hack.
(srecode-parse-this-macro): Ditto.
Diffstat (limited to 'lisp/cedet/ede')
| -rw-r--r-- | lisp/cedet/ede/config.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/cedet/ede/config.el b/lisp/cedet/ede/config.el index eb46be7a693..c8bf7f33bae 100644 --- a/lisp/cedet/ede/config.el +++ b/lisp/cedet/ede/config.el | |||
| @@ -406,13 +406,14 @@ java class path.") | |||
| 406 | () | 406 | () |
| 407 | "Class to mix into a project to support java.") | 407 | "Class to mix into a project to support java.") |
| 408 | 408 | ||
| 409 | (eieio-declare-slots classpath) | ||
| 410 | |||
| 409 | (cl-defmethod ede-java-classpath ((proj ede-project-with-config-java)) | 411 | (cl-defmethod ede-java-classpath ((proj ede-project-with-config-java)) |
| 410 | "Return the classpath for this project." | 412 | "Return the classpath for this project." |
| 411 | ;; The `classpath' slot only exists in the Java parts of cedet, and | 413 | ;; The `classpath' slot only exists in the Java parts of cedet, and |
| 412 | ;; those have not been merged into Emacs. Suppress the warning | 414 | ;; those have not been merged into Emacs. Suppress the warning |
| 413 | ;; about the unknown slot by using `intern'. | 415 | ;; about the unknown slot by using `intern'. |
| 414 | (slot-value (ede-config-get-configuration proj) | 416 | (oref (ede-config-get-configuration proj) classpath)) |
| 415 | (intern "classpath" obarray))) | ||
| 416 | 417 | ||
| 417 | ;; Local variables: | 418 | ;; Local variables: |
| 418 | ;; generated-autoload-file: "loaddefs.el" | 419 | ;; generated-autoload-file: "loaddefs.el" |