branch: elpa/lua-mode
commit 13f6ffad102be7f31191e2a77786e3bc4d00f07b
Author: immerrr <[email protected]>
Commit: immerrr <[email protected]>
Provide lua--setq-local fallback macro for pre-24.3
---
lua-mode.el | 47 +++++++++++++++++++++++++----------------------
1 file changed, 25 insertions(+), 22 deletions(-)
diff --git a/lua-mode.el b/lua-mode.el
index b335aba..1c772f9 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -198,6 +198,11 @@ element is itself expanded with `lua-rx-to-string'. "
(eval-and-compile
+ (if (fboundp 'setq-local)
+ (defalias 'lua--setq-local 'setq-local)
+ (defmacro lua--setq-local (var val)
+ `(set (make-local-variable (quote ,var)) ,val)))
+
;; Backward compatibility for Emacsen < 24.1
(defalias 'lua--prog-mode
(if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))
@@ -706,28 +711,25 @@ Groups 6-9 can be used in any of argument regexps."
(setq comint-prompt-regexp lua-prompt-regexp)
- (setq-local font-lock-defaults
- '(lua-font-lock-keywords ;; keywords
- nil ;; keywords-only
- nil ;; case-fold
- nil ;; syntax-alist
- nil ;; syntax-begin
- (font-lock-syntactic-keywords .
lua-font-lock-syntactic-keywords)
- (font-lock-extra-managed-props . (syntax-table))
- (parse-sexp-lookup-properties . t)
- )
- )
-
-
- (setq-local indent-line-function 'lua-indent-line)
- (setq-local beginning-of-defun-function 'lua-beginning-of-proc)
- (setq-local end-of-defun-function 'lua-end-of-proc)
- (setq-local comment-start 'lua-comment-start)
- (setq-local comment-start-skip 'lua-comment-start-skip)
- (setq-local comment-use-syntax t)
- (setq-local comment-use-global-state t)
- (setq-local imenu-generic-expression lua-imenu-generic-expression)
-
+ (lua--setq-local font-lock-defaults '(lua-font-lock-keywords ;; keywords
+ nil ;; keywords-only
+ nil ;; case-fold
+ nil ;; syntax-alist
+ nil ;; syntax-begin
+ ))
+ (lua--setq-local
+ font-lock-syntactic-keywords 'lua-font-lock-syntactic-keywords)
+ (lua--setq-local font-lock-extra-managed-props '(syntax-table))
+ (lua--setq-local parse-sexp-lookup-properties t)
+ (lua--setq-local indent-line-function 'lua-indent-line)
+ (lua--setq-local beginning-of-defun-function 'lua-beginning-of-proc)
+ (lua--setq-local end-of-defun-function 'lua-end-of-proc)
+ (lua--setq-local comment-start lua-comment-start)
+ (lua--setq-local comment-start-skip lua-comment-start-skip)
+ (lua--setq-local comment-use-syntax t)
+ (lua--setq-local comment-use-global-state t)
+ (lua--setq-local imenu-generic-expression lua-imenu-generic-expression)
+
;; setup menu bar entry (XEmacs style)
(if (and (featurep 'menubar)
@@ -752,6 +754,7 @@ Groups 6-9 can be used in any of argument regexps."
nil lua-forward-sexp))))
+
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
