diff options
| -rw-r--r-- | rt-liberation.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/rt-liberation.el b/rt-liberation.el index 4ea72d1..40c11cc 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -493,6 +493,15 @@ AFTER date after predicate." (error "null field symbol")) (cdr (assoc field-symbol rt-liber-field-dictionary))) +(defun rt-liber-display-ticket (ticket-number) + "Display ticket with TICKET-NUMBER." + (interactive "nticket number: ") + (let ((ticket-id (number-to-string ticket-number))) + (rt-liber-browse-query + (rt-liber-compile-query + (id ticket-id)) + (concat "#" ticket-id)))) + ;;; -------------------------------------------------------- ;;; Ticket browser |