Stephen Leake <[email protected]> writes:
> Simon Wright <[email protected]> writes:
>
>> Also, it looks as though underscores aren’t allowed in based literals:
>> I was going to write 2#0000_0000_0000_0001# but C-c C-f stopped at the
>> first # saying “unrecognized token #”.
>
> Arg. That's because I added numeric_literal to the parser; I thought I
> would actually need it, but then it turned out I didn't, and now it's
> breaking stuff. Sigh.
Fixed:
--- ada-wisi.el f473e387ef0ff0e291c090b6f77d9326c22f2c75
+++ ada-wisi.el cd2b7170dc33da75616b06533bd121eea0ce6c1a
@@ -1639,12 +1639,12 @@ TOKEN-TEXT; move point to just past toke
(let ((end (point)))
;; this first test must be very fast; it is executed for every token
(when (and (memq (aref token-text 0) '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))
- (string-match "^[0-9]+" token-text))
+ (string-match "^[0-9_]+$" token-text))
(cond
((= (char-after) ?#)
;; based number
(forward-char 1)
- (if (not (looking-at "[0-9a-fA-F]+"))
+ (if (not (looking-at "[0-9a-fA-F_]+"))
(progn (goto-char end) nil)
(goto-char (match-end 0))
@@ -1689,7 +1689,7 @@ TOKEN-TEXT; move point to just past toke
((= (char-after) ?.)
;; decimal real number?
(forward-char 1)
- (if (not (looking-at "[0-9]+"))
+ (if (not (looking-at "[0-9_]+"))
;; decimal integer
(progn (goto-char end) t)
--
-- Stephe
_______________________________________________
Emacs-ada-mode mailing list
[email protected]
http://host114.hostmonster.com/mailman/listinfo/emacs-ada-mode_stephe-leake.org
