branch: elpa/parseclj
commit ced0b91c08f33fe4f3024d18649e70ff315a7b4b
Author: Arne Brasseur <[email protected]>
Commit: Arne Brasseur <[email protected]>
"Support" namespaces symbols
---
clj-lex.el | 2 +-
clj-parse-test.el | 5 +++++
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/clj-lex.el b/clj-lex.el
index 9b20df9bae..765cc578f9 100644
--- a/clj-lex.el
+++ b/clj-lex.el
@@ -79,7 +79,7 @@
(not (not (and char
(or (and (<= ?a char) (<= char ?z))
(and (<= ?A char) (<= char ?Z))
- (member char '(?. ?* ?+ ?! ?- ?_ ?? ?$ ?% ?& ?= ?<
?>)))))))
+ (member char '(?. ?* ?+ ?! ?- ?_ ?? ?$ ?% ?& ?= ?< ?>
?/)))))))
(defun clj-lex-symbol-rest? (char)
(or (clj-lex-symbol-start? char)
diff --git a/clj-parse-test.el b/clj-parse-test.el
index fae8cc03e5..9636e964d6 100644
--- a/clj-parse-test.el
+++ b/clj-parse-test.el
@@ -46,6 +46,11 @@
(goto-char 1)
(should (equal (clj-parse) '((nil t nil hello-world)))))
+ (with-temp-buffer
+ (insert "clojure.string/join")
+ (goto-char 1)
+ (should (equal (clj-parse) '(clojure.string/join))))
+
(with-temp-buffer
(insert "((.9 abc (true) (hello)))")
(goto-char 1)
