branch: elpa/lua-mode
commit eebb50c528daeb1c1cbb391a92fea2c12210c1fa
Author: juergen <juergen>
Commit: juergen <juergen>
Fix #1913: Indenting: "(" like "{"
---
lua-mode.el | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/lua-mode.el b/lua-mode.el
index 0f52d1e..bf52b4f 100755
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -29,7 +29,7 @@
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
;; MA 02110-1301, USA.
-(defconst lua-version "20070703"
+(defconst lua-version "20071122"
"Lua Mode version number.")
;; Keywords: languages, processes, tools
@@ -37,6 +37,9 @@
;;; Commentary:
+;; Thanks to Tobias Polzin <polzin<at>gmx.de> for function indenting
+;; patch: Indent "(" like "{"
+
;; Thanks to Fabien <fleutot<at>gmail.com> for imenu patches.
;; Special Thanks to Simon Marshall <sim...@mail.esrin.esa.it> for
@@ -733,14 +736,8 @@ use standalone."
(cons 'absolute (+ (save-excursion (goto-char found-pos)
(current-column))
lua-indent-level)))
- ((string-equal found-token "(")
- ;; this is the location where we need to start searching for the
- ;; matching opening token, when we encounter the next closing token.
- ;; It is primarily an optimization to save some searchingt ime.
- (cons 'absolute (+ (save-excursion (goto-char found-pos)
- (current-column))
- 1)))
- ((string-equal found-token "{")
+ ((or (string-equal found-token "{")
+ (string-equal found-token "("))
(save-excursion
;; expression follows -> indent at start of next expression
(if (and (not (search-forward-regexp "[[:space:]]--"
(line-end-position) t))
