diff options
| -rw-r--r-- | rt-liberation.el | 25 |
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) |