[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master de6b508 7/9: Fix bugs where spaces messed up varlists.
From: |
Jackson Ray Hamilton |
Subject: |
[elpa] master de6b508 7/9: Fix bugs where spaces messed up varlists. |
Date: |
Fri, 13 Nov 2015 05:39:54 +0000 |
branch: master
commit de6b5085ae2b4e056c67b8d572d8874472eeb381
Author: Jackson Ray Hamilton <address@hidden>
Commit: Jackson Ray Hamilton <address@hidden>
Fix bugs where spaces messed up varlists.
---
context-coloring.el | 3 +++
test/context-coloring-test.el | 12 ++++++++++++
test/fixtures/varlist-spacing.el | 8 ++++++++
3 files changed, 23 insertions(+), 0 deletions(-)
diff --git a/context-coloring.el b/context-coloring.el
index 3148c2d..b90a821 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -668,6 +668,7 @@ bound immediately after its own initializer is parsed."
syntax-code)
;; Enter.
(forward-char)
+ (context-coloring-elisp-forward-sws)
(while (/= (setq syntax-code (context-coloring-get-syntax-code))
context-coloring-CLOSE-PARENTHESIS-CODE)
(cond
@@ -707,6 +708,7 @@ bound immediately after its own initializer is parsed."
(let (syntax-code)
;; Enter.
(forward-char)
+ (context-coloring-elisp-forward-sws)
(while (/= (setq syntax-code (context-coloring-get-syntax-code))
context-coloring-CLOSE-PARENTHESIS-CODE)
(cond
@@ -787,6 +789,7 @@ Parse the header with CALLBACK."
(let (syntax-code)
;; Enter.
(forward-char)
+ (context-coloring-elisp-forward-sws)
(while (/= (setq syntax-code (context-coloring-get-syntax-code))
context-coloring-CLOSE-PARENTHESIS-CODE)
(cond
diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index 0a1f88e..c57dce2 100644
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -759,6 +759,18 @@ ssssssssssss0"))
11
1111111 111")))
+(context-coloring-test-deftest-emacs-lisp varlist-spacing
+ (lambda ()
+ (context-coloring-test-assert-coloring "
+(111 (
+ (1 (222222 ()))))
+
+(111111 ( 1 1 )
+ 1 1)
+
+(111111111 0 ( (1) )
+ 1)")))
+
(context-coloring-test-deftest-emacs-lisp let*
(lambda ()
(context-coloring-test-assert-coloring "
diff --git a/test/fixtures/varlist-spacing.el b/test/fixtures/varlist-spacing.el
new file mode 100644
index 0000000..97ec208
--- /dev/null
+++ b/test/fixtures/varlist-spacing.el
@@ -0,0 +1,8 @@
+(let (
+ (a (lambda ()))))
+
+(lambda ( a b )
+ a b)
+
+(defadvice a ( (b) )
+ b)
- [elpa] master updated (6bb5fee -> cf250b3), Jackson Ray Hamilton, 2015/11/13
- [elpa] master 52e3d07 1/9: Fix bug where empty varlists weren't parsed., Jackson Ray Hamilton, 2015/11/13
- [elpa] master f4e3f36 3/9: Add gv-letplace support., Jackson Ray Hamilton, 2015/11/13
- [elpa] master f29f06c 6/9: Use containers on Travis., Jackson Ray Hamilton, 2015/11/13
- [elpa] master de6b508 7/9: Fix bugs where spaces messed up varlists.,
Jackson Ray Hamilton <=
- [elpa] master f9399ea 5/9: Fix unfinished expression infinite loop., Jackson Ray Hamilton, 2015/11/13
- [elpa] master 4d381cb 4/9: Add macroexp-let2 support., Jackson Ray Hamilton, 2015/11/13
- [elpa] master 1a7c480 8/9: Version 7.2.0., Jackson Ray Hamilton, 2015/11/13
- [elpa] master 6bbbfff 2/9: Add license., Jackson Ray Hamilton, 2015/11/13
- [elpa] master cf250b3 9/9: Merge commit '1a7c480d1e15133b942201f5964fda5e7d74919f' from context-coloring, Jackson Ray Hamilton, 2015/11/13