diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-03-22 21:58:27 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-03-22 21:58:27 +0100 |
| commit | 9d0da923ebd2b78abb6e02f0b90cfe9d818eb301 (patch) | |
| tree | c087e97f9b28a73b55aefe85ee0e7755903336fb /lisp/emacs-lisp/derived.el | |
| parent | 6508470910c69fd647547b55191b29aea341f593 (diff) | |
| download | emacs-9d0da923ebd2b78abb6e02f0b90cfe9d818eb301.tar.gz emacs-9d0da923ebd2b78abb6e02f0b90cfe9d818eb301.tar.bz2 emacs-9d0da923ebd2b78abb6e02f0b90cfe9d818eb301.zip | |
lisp/emacs-lisp/derived.el: Don't warn about keymaps already `defconst'ed.
Diffstat (limited to 'lisp/emacs-lisp/derived.el')
| -rw-r--r-- | lisp/emacs-lisp/derived.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 425a77ee77f..1db98ac39c8 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -201,7 +201,7 @@ No problems result if this variable is not bound. name)))) (unless (boundp ',map) (put ',map 'definition-name ',child)) - (defvar ,map (make-sparse-keymap)) + (with-no-warnings (defvar ,map (make-sparse-keymap))) (unless (get ',map 'variable-documentation) (put ',map 'variable-documentation (purecopy ,(format "Keymap for `%s'." child)))) |