[nongnu] elpa/lua-mode eebb50c 035/468: Fix #1913: Indenting: "(" like "{"

[Philip Kaludercic]

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 <simonm@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))