emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/parseclj ced0b91c08 029/185: "Support" namespaces symbols


From: ELPA Syncer
Subject: [nongnu] elpa/parseclj ced0b91c08 029/185: "Support" namespaces symbols
Date: Tue, 28 Dec 2021 14:05:11 -0500 (EST)

branch: elpa/parseclj
commit ced0b91c08f33fe4f3024d18649e70ff315a7b4b
Author: Arne Brasseur <arne@arnebrasseur.net>
Commit: Arne Brasseur <arne@arnebrasseur.net>

    "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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]