Andrew Pennebaker's patch for hex literal support in lisp mode.

Author: [email protected]

src/lang-lisp.js

@@ -79,7 +79,7 @@ PR.registerLangHandler(
         [
          [PR.PR_KEYWORD,     /^(?:block|c[ad]+r|catch|cons|defun|do|eq|eql|equal|equalp|eval-when|flet|format|go|if|labels|lambda|let|load-time-value|locally|macrolet|multiple-value-call|nil|progn|progv|quote|require|return-from|setq|symbol-macrolet|t|tagbody|the|throw|unwind)\b/, null],
          [PR.PR_LITERAL,
-          /^[+\-]?(?:\d+\/\d+|(?:\.\d+|\d+(?:\.\d*)?)(?:[eEdD][+\-]?\d+)?)/],
+          /^[+\-]?(?:0x[0-9a-f]+|\d+\/\d+|(?:\.\d+|\d+(?:\.\d*)?)(?:[ed][+\-]?\d+)?)/i],
          // A single quote possibly followed by a word that optionally ends with
          // = ! or ?.
          [PR.PR_LITERAL,

tests/prettify_test.html

@@ -914,7 +914,7 @@ <h1>Bug 42 - Lisp Syntax Highlighting</h1>
 (setenv "TERM" "emacs")
 (c-set-offset 'case-label 2)
 (setq c-basic-offset 2)
-(setq perl-indent-level 2)
+(setq perl-indent-level 0x2)
 (setq delete-key-deletes-forward t)
 (setq indent-tabs-mode nil)
 
@@ -2236,7 +2236,7 @@ <h1>CSS w/ language specified</h1>
            '`LIT2`END`CLO)`END`PLN<br>' +
       '`END`OPN(`END`KWDsetq`END`PLN c-basic-offset `END`LIT2`END`CLO)`END' +
            '`PLN<br>' +
-      '`END`OPN(`END`KWDsetq`END`PLN perl-indent-level `END`LIT2`END`CLO)`END' +
+      '`END`OPN(`END`KWDsetq`END`PLN perl-indent-level `END`LIT0x2`END`CLO)`END' +
            '`PLN<br>' +
       '`END`OPN(`END`KWDsetq`END`PLN delete-key-deletes-forward `END`KWDt`END' +
            '`CLO)`END`PLN<br>' +