[elpa] externals/rt-liberation ac07fea 43/68: * rt-liberation.el:

[Yoni Rabkin]

branch: externals/rt-liberation
commit ac07fea9ad60840f637178d0ab0469fbd5eddf88
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation.el:
---
 rt-liberation.el | 25 ++++---------------------
 1 file changed, 4 insertions(+), 21 deletions(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index 6d6196c..7d9612e 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1198,18 +1198,6 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
 ;;; ------------------------------------------------------------------
 ;;; viewer2
 ;;; ------------------------------------------------------------------
-(defconst rt-liber-viewer-font-lock-keywords
-  (let ((header-regexp (regexp-opt '("id: " "Ticket: " "TimeTaken: "
-                                    "Type: " "Field: " "OldValue: "
-                                    "NewValue: " "Data: "
-                                    "Description: " "Created: "
-                                    "Creator: " "Attachments: ")
-                                  t)))
-    (list
-     (list (concat "^" header-regexp ".*$") 0
-          'font-lock-comment-face)))
-  "Expressions to font-lock for RT ticket viewer.")
-
 (defface rt-liber-ticket-subdued-face
   '((((class color) (background dark))
      (:foreground "gray33"))
@@ -1220,6 +1208,10 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
     (t (:background "Blue")))
   "Face for less important text.")
 
+(defconst rt-liber-viewer2-font-lock-keywords
+  `(("^.*$" 0 'font-lock-comment-face))
+  "Expressions to font-lock for RT ticket viewer.")
+
 
 (defun rt-liber-viewer-reduce (section-list f acc)
   "A Not Invented Here tail-recursive reduce function."
@@ -1361,15 +1353,6 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
        (rt-liber-viewer2-display-section section))
      section-list)))
 
-;; Before release: move this back to the top
-(defconst rt-liber-viewer2-font-lock-keywords
-  (let ((header-regexp (regexp-opt '("id: ")
-                                  t)))
-    (list
-     (list (concat "^" header-regexp ".*$") 0
-          'font-lock-comment-face)))
-  "Expressions to font-lock for RT ticket viewer.")
-
 (defun rt-liber-viewer2-display-ticket-at-point ()
   "Display the contents of the ticket at point."
   (interactive)