* rt-liberation.el:

1 files 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)