summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--rt-liberation.el18
1 files changed, 12 insertions, 6 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index a50dcbb..8e6a226 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -740,13 +740,19 @@ returned as no associated text properties."
(rt-liber-next-section-in-viewer))
(message "no correspondence found"))))
-(defun rt-liber-viewer-visit-in-browser ()
- "Visit this ticket in the RT Web interface."
- (interactive)
- (let ((id (rt-liber-ticket-id-only rt-liber-ticket-local)))
+(defun rt-liber-viewer-visit-in-browser (&optional external)
+ "Visit this ticket section in the RT Web interface.
+With a prefix arg, browse using secondary browser."
+ (interactive "P")
+ (let ((id (rt-liber-ticket-id-only rt-liber-ticket-local))
+ (browser-function
+ (if external browse-url-secondary-browser-function
+ browse-url)))
(if id
- (browse-url
- (concat rt-liber-base-url "Ticket/Display.html?id=" id))
+ (funcall browser-function
+ (concat rt-liber-base-url "Ticket/Display.html?id=" id
+ "#txn-"
+ (alist-get 'id (rt-liber-viewer2-get-section-data))))
(error "no ticket currently in view"))))
(defun rt-liber-viewer-mode-quit ()