[pdf-devel] [patch] Casing of number literals in ada-mode

[jemarch]

Hi.

Appended is a little patch that makes ada-mode to not case number
literals to avoid situations like:

       subtype U16 is range 16#0000_0000#..16#Ffff_Ffff#;

Note the Ffff_Ffff.

# Bazaar merge directive format 2 (Bazaar 0.90)
# revision_id: address@hidden
# target_branch: http://bzr.savannah.gnu.org/r/emacs/trunk/
# testament_sha1: 3586c551b9ec885ab18df920c69c4138ea01ffc0
# timestamp: 2010-02-06 19:55:15 +0100
# base_revision_id: address@hidden
# 
# Begin patch
=== modified file 'lisp/ChangeLog'
--- lisp/ChangeLog      2010-01-06 19:38:39 +0000
+++ lisp/ChangeLog      2010-02-06 18:54:02 +0000
@@ -1,3 +1,9 @@
+2010-02-06  Jose E. Marchesi  <address@hidden>
+
+       * progmodes/ada-mode.el (ada-in-numeric-literal-p): New function.
+       (ada-adjust-case): Don't adjust case in hexadecimal number
+       literals.
+
 2010-01-06  Jan Djärv  <address@hidden>
 
        * font-setting.el (font-setting-change-default-font): Use user-spec

=== modified file 'lisp/progmodes/ada-mode.el'
--- lisp/progmodes/ada-mode.el  2010-01-04 05:35:18 +0000
+++ lisp/progmodes/ada-mode.el  2010-02-06 18:54:02 +0000
@@ -1002,6 +1002,10 @@
             (parse-partial-sexp
              (line-beginning-position) (point)))))
 
+(defsubst ada-in-numeric-literal-p ()
+  "Return t if point is after a prefix of a numeric literal."
+  (looking-back "\\([0-9]+#[0-9a-fA-F_]+\\)"))
+
 (defsubst ada-in-string-or-comment-p (&optional parse-result)
   "Return t if inside a comment or string.
 If PARSE-RESULT is non-nil, use it instead of calling `parse-partial-sexp'."
@@ -1607,6 +1611,8 @@
                 (eq (char-syntax (char-before)) ?w)
                 ;;  if in a string or a comment
                 (not (ada-in-string-or-comment-p))
+                 ;;  if in a numeric literal
+                 (not (ada-in-numeric-literal-p))
                 )
            (if (save-excursion
                  (forward-word -1)

# Begin bundle
IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWThKh4cAAlDfgAAyWPv//38X
EA6////wUAT5Hs7DTbjtau1cvbuCUTUExMqeaYJT8inhTxlT0nqaPSNPUZGR5QJRCTTNMinqemUe
oyaNBoB6QAAACSJoJMg0mk2TTUDEA9ExAeoaAAykQwhpoA0MhkMhoGQaZGgAJKTAhPJT2po1NNpR
+pqJ6BD1DABMGIywbv3Sv4pwzSb66u08Fdb8J2zxPWtZPlygqba7YaHlD21AOHyn4o4fb8Y3T0Hx
xYZgbvwVpVYz4yaRz0eemQ072WV/39BrRpvxoyMvopiKu3WCSDTHFE9USVlj/kdn3yJ69klUJ7DV
X+5dlpmDZyBy1CoHGYbyvcb1MIju2w0cLVj8zJT1KSDVUWxhuAhJlIznBHsd8ErZk2pg5PV9Giov
NUB2PwH0fZIKoiHRMP70L9SE5GPOIjm0+5J0ahkjQLewlpRKTndcA4FzuTKCpD063AmHnK7SzisE
BMJuZTXSd35HwzKjKSfyVEjkwY9QvMLc87056BHuRJyWZ72i04hJU8DOFoyzRfvlIb/Wd+6IHbIu
E0LCZDEkQ3bTEat2DGoG1F/LEJwtrwLojozvO9OK5jqugjR9x3MA1nZgYMoi1BfyIE9htziYGW6S
yYdV/MDuAlWPRYMGwwAq+YMgLxgzZRPTR4tVphEhdoWGKhGTrXZHIM5oVytgBWkFrMf0UwNQrcWE
Sle7wOCxfMbAMtsCcXYP2sU1xuRKthuYw6L4EDPV5jWkwzzM45tNgnqRlvMSVkCJLI9oENC5VLbx
gFrqNwg4aUEMbnCWXNcJSSA+qugiTkZzAg+i5rILctci4mhq0QEnBirTVkVs3w7edaT07C9jEfcO
t+7geXf0UByBplJAVV5RTbFH9DmZyPc+ngN9bO3pEU1jkOc7BKl9EaiPiUF2tNf+p27/nZMoumtV
/ND1uZHU6RO9Qg1OM5WZ+8Hs6d0Qh1MyJMjJByzkO5N6McaHYp0t8fATBFvR4h/M2GfXdQsNvsrI
0K/5b5St5y6RFevraSmPNctKu5irGXF1yWlDXdNgoDRCNQYIOruQ/Tg8is4TiL+mgqH/DEupFg0u
4562ufaX6nHznWQidjLLpjEN1zw17ZZnxKTVmsuJRKVWq7HjtkiBseJYfNxkLxC5diYFd2+/NujE
sXosQcoD/RwIGQeGxHg+5ENbSOlNtpgJOWl/uOHCE3El2vxI03iO1mVGT1MDiRdNDFLosbckm3FM
TVQ72Eh9WpbpBUQ0CfbCCkHVCLmA8ZjZilT1T9aGNjccVkKbhwQW5FGbe3Or62sD5ha/kQ6QMktR
jHYAPCjUaEUa3UBkMgXIWX5lVUxDAwoijQ1FTbwTD729OkjqcRuwvgI5KURgspkINeORVOwraTqw
WqnTQDc3UA6xItREdYOQr/HPHIKmcUO4ZrwsoW7N2AQKixSj1W/3GQYz3d5QXrvJSNEebFXtXgb5
1Xivx4sGB2gNUOgH34EsSFcwAqA2ynfLaAKZCCWnqABs72EyVclUrrgvJF0GjG/IUadAnyyZqccp
TMFsCWVcjXkjIhzIuhpOriMlQvXSEIU/yrXc1ZgkYcAOWeMUR6BMGvNRmocLfTNFEQYGy3D+BOhl
Dtxel02Q2dhwA/1cxSUxcAJBPqEwVHs0AsRVVcm/sXckU4UJA4SoeHA=