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

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

[nongnu] elpa/parseclj 46570ce843 060/185: A # can be part of a symbol


From: ELPA Syncer
Subject: [nongnu] elpa/parseclj 46570ce843 060/185: A # can be part of a symbol
Date: Tue, 28 Dec 2021 14:05:17 -0500 (EST)

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

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



reply via email to

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