branch: elpa/lua-mode
commit fa1ef232902d15d28d5b844871d65d879fd98928
Author: immerrr <[email protected]>
Commit: immerrr <[email protected]>
lua-mode-map: dont evaluate at compile-time (fix byte-compilation error)
---
lua-mode.el | 39 +++++++++++++++++++--------------------
1 file changed, 19 insertions(+), 20 deletions(-)
diff --git a/lua-mode.el b/lua-mode.el
index 588b7e3..07397b9 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -173,26 +173,25 @@ Should be a list of strings."
If the latter is nil, the keymap translates into `lua-mode-map' verbatim.")
(defvar lua-mode-map
- (eval-when-compile
- (let ((result-map (make-sparse-keymap))
- prefix-key)
- (mapc (lambda (key_defn)
- (define-key result-map (read-kbd-macro (car key_defn)) (cdr
key_defn)))
- ;; here go all the default bindings
- ;; backquote enables evaluating certain symbols by comma
- `(("}" . lua-electric-match)
- ("]" . lua-electric-match)
- (")" . lua-electric-match)))
- (define-key result-map [menu-bar lua-mode] (cons "Lua" lua-mode-menu))
-
- ;; handle prefix-keyed bindings:
- ;; * if no prefix, set prefix-map as parent, i.e.
- ;; if key is not defined look it up in prefix-map
- ;; * if prefix is set, bind the prefix-map to that key
- (if (boundp 'lua-prefix-key)
- (define-key result-map (vector lua-prefix-key) lua-prefix-mode-map)
- (set-keymap-parent result-map lua-prefix-mode-map))
- result-map))
+ (let ((result-map (make-sparse-keymap))
+ prefix-key)
+ (mapc (lambda (key_defn)
+ (define-key result-map (read-kbd-macro (car key_defn)) (cdr
key_defn)))
+ ;; here go all the default bindings
+ ;; backquote enables evaluating certain symbols by comma
+ `(("}" . lua-electric-match)
+ ("]" . lua-electric-match)
+ (")" . lua-electric-match)))
+ (define-key result-map [menu-bar lua-mode] (cons "Lua" lua-mode-menu))
+
+ ;; handle prefix-keyed bindings:
+ ;; * if no prefix, set prefix-map as parent, i.e.
+ ;; if key is not defined look it up in prefix-map
+ ;; * if prefix is set, bind the prefix-map to that key
+ (if (boundp 'lua-prefix-key)
+ (define-key result-map (vector lua-prefix-key) lua-prefix-mode-map)
+ (set-keymap-parent result-map lua-prefix-mode-map))
+ result-map)
"Keymap used in lua-mode buffers.")
(defvar lua-electric-flag t
