diff options
| author | Lars Ingebrigtsen | 2019-10-03 17:17:50 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-03 17:17:50 +0200 |
| commit | 3ad9e5133e7c9895c41bb31b2209d2c1f8fe3239 (patch) | |
| tree | c4bf6beeb4567e4bcb3f1c7e8e91e368128136d4 | |
| parent | 4cf9bbcbc141c29c6ec66178ef46d3b21d276c1a (diff) | |
| download | emacs-3ad9e5133e7c9895c41bb31b2209d2c1f8fe3239.tar.gz emacs-3ad9e5133e7c9895c41bb31b2209d2c1f8fe3239.zip | |
Fix bytecomp.el warning a different way than the previous patch
* lisp/emacs-lisp/bytecomp.el (emacs-lisp-compilation-mode-map):
No need to use set-keymap-parent here; `define-derived-mode' will
do that automatically.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 1d0f07a9410..905d99a5971 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -124,7 +124,7 @@ | |||
| 124 | (require 'backquote) | 124 | (require 'backquote) |
| 125 | (require 'macroexp) | 125 | (require 'macroexp) |
| 126 | (require 'cconv) | 126 | (require 'cconv) |
| 127 | (require 'compile) | 127 | (eval-when-compile (require 'compile)) |
| 128 | ;; Refrain from using cl-lib at run-time here, since it otherwise prevents | 128 | ;; Refrain from using cl-lib at run-time here, since it otherwise prevents |
| 129 | ;; us from emitting warnings when compiling files which use cl-lib without | 129 | ;; us from emitting warnings when compiling files which use cl-lib without |
| 130 | ;; requiring it! (bug#30635) | 130 | ;; requiring it! (bug#30635) |
| @@ -1047,7 +1047,6 @@ message buffer `default-directory'." | |||
| 1047 | 1047 | ||
| 1048 | (defvar emacs-lisp-compilation-mode-map | 1048 | (defvar emacs-lisp-compilation-mode-map |
| 1049 | (let ((map (make-sparse-keymap))) | 1049 | (let ((map (make-sparse-keymap))) |
| 1050 | (set-keymap-parent map compilation-minor-mode-map) | ||
| 1051 | (define-key map "g" 'emacs-lisp-compilation-recompile) | 1050 | (define-key map "g" 'emacs-lisp-compilation-recompile) |
| 1052 | map)) | 1051 | map)) |
| 1053 | 1052 | ||