[nongnu] elpa/nasm-mode 02c2450 40/67: Assume things that start with dot are labels.

[ELPA Syncer]

branch: elpa/nasm-mode
commit 02c2450e6b47b109199ccf4e07ec88288de3a88b
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@nullprogram.com>

    Assume things that start with dot are labels.
---
 nasm-mode.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/nasm-mode.el b/nasm-mode.el
index 38487f3..e90d881 100644
--- a/nasm-mode.el
+++ b/nasm-mode.el
@@ -510,7 +510,13 @@
     "NASM preprocessor directives (pptok.c) for `nasm-mode'."))
 
 (defconst nasm-label-regexp
-  "\\(\\_<[a-zA-Z_.?][a-zA-Z0-9_$#@~.?]*\\_>\\)\\s-*:"
+  (let ((head "[a-zA-Z_?]")
+        (tail "[a-zA-Z0-9_$#@~?]"))
+    (concat "\\(?:"
+            "\\(\\_<\\." head tail "*\\_>\\)\\(?:\\s-*:\\)?"
+            "\\|"
+            "\\(\\_<" head tail "*\\_>\\)\\s-*:"
+            "\\)"))
   "Regexp for `nasm-mode' for matching labels.")
 
 (defconst nasm-constant-regexp