branch: elpa/parseclj
commit 46570ce843b8b427e29912af108a3d5e720d05e3
Author: Arne Brasseur <[email protected]>
Commit: Arne Brasseur <[email protected]>
A # can be part of a symbol
---
clj-lex-test.el | 5 +++++
clj-lex.el | 3 ++-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/clj-lex-test.el b/clj-lex-test.el
index d4bbad472b..ca0e1a89c3 100644
--- a/clj-lex-test.el
+++ b/clj-lex-test.el
@@ -80,6 +80,11 @@
(goto-char 1)
(should (equal (clj-lex-next) '((type . :symbol) (form . "-hello-world")
(pos . 1)))))
+ (with-temp-buffer
+ (insert "foo#")
+ (goto-char 1)
+ (should (equal (clj-lex-next) '((type . :symbol) (form . "foo#") (pos .
1)))))
+
(with-temp-buffer
(insert "#inst")
(goto-char 1)
diff --git a/clj-lex.el b/clj-lex.el
index 3e81c34223..16eaa53257 100644
--- a/clj-lex.el
+++ b/clj-lex.el
@@ -133,7 +133,8 @@ behavior."
(defun clj-lex-symbol-rest? (char)
(or (clj-lex-symbol-start? char)
(clj-lex-digit? char)
- (eq ?: char)))
+ (eq ?: char)
+ (eq ?# char)))
(defun clj-lex-get-symbol-at-point (pos)
"Return the symbol at point."
