branch: externals/sql-indent
commit ecbf99167b8eae78c46cf167bbb96ce203081f97
Author: Alex Harsanyi <[email protected]>
Commit: Alex Harsanyi <[email protected]>
Correctly recognize the begin block of a package (#19)
---
sql-indent.el | 3 ++-
test-data/pr19-syn.eld | 5 +++--
2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/sql-indent.el b/sql-indent.el
index 4db48fc..af71edb 100644
--- a/sql-indent.el
+++ b/sql-indent.el
@@ -1285,7 +1285,8 @@ procedure block."
;; note that begin is not a block-start in a 'in-begin-block
;; context
- ((and (memq syntax-symbol '(defun-start declare-statement
toplevel))
+ ((and (memq syntax-symbol '(defun-start declare-statement toplevel
+ package package-body))
(looking-at "begin\\_>"))
(push (cons (list 'block-start 'begin) anchor) context))
diff --git a/test-data/pr19-syn.eld b/test-data/pr19-syn.eld
index 3398c1f..b84803d 100644
--- a/test-data/pr19-syn.eld
+++ b/test-data/pr19-syn.eld
@@ -115,7 +115,9 @@
. 1024))
(((package-body "my_pacakge")
. 595))
- (((package-body "my_pacakge")
+ (((block-start begin)
+ . 595)
+ ((package-body "my_pacakge")
. 595))
(((in-begin-block package "my_pacakge")
. 1120))
@@ -135,4 +137,3 @@
. 1120))
((toplevel . 1))
((toplevel . 1)))
-
