summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorStephen Leake <stephen_leake@stephe-leake.org>2021-07-05 10:04:56 -0700
committerStephen Leake <stephen_leake@stephe-leake.org>2021-07-05 10:04:56 -0700
commitc03ad2b19eb7d874ad3d46183161e30a8439564c (patch)
tree5206689835c3e07712c5a3de72eb865f50ce7b46 /lisp
parent68276f6d30bbdc09cc26fb49d7f0c3aa4bce35f2 (diff)
downloademacs-c03ad2b19eb7d874ad3d46183161e30a8439564c.tar.gz
emacs-c03ad2b19eb7d874ad3d46183161e30a8439564c.tar.bz2
emacs-c03ad2b19eb7d874ad3d46183161e30a8439564c.zip
* lisp/progmodes/bug-reference.el: Refer to info manual node
Diffstat (limited to 'lisp')
-rw-r--r--lisp/progmodes/bug-reference.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index e502cbb3dc0..61d722f5b9d 100644
--- a/lisp/progmodes/bug-reference.el
+++ b/lisp/progmodes/bug-reference.el
@@ -25,10 +25,13 @@
;; This file provides minor modes for putting clickable overlays on
;; references to bugs. A bug reference is text like "PR foo/29292";
-;; this is mapped to a URL using a user-supplied format.
+;; this is mapped to a URL using a user-supplied format; see
+;; `bug-reference-url-format' and `bug-reference-bug-regexp'. More
+;; extensive documentation is in (info "(emacs) Bug Reference").
;; Two minor modes are provided. One works on any text in the buffer;
-;; the other operates only on comments and strings.
+;; the other operates only on comments and strings. By default, the
+;; URL link is followed by invoking C-c RET or mouse-2.
;;; Code:
@@ -126,6 +129,9 @@ The second subexpression should match the bug reference (usually a number)."
"Open URL corresponding to the bug reference at POS."
(interactive
(list (if (integerp last-command-event) (point) last-command-event)))
+ (when (null bug-reference-url-format)
+ (user-error
+ "You must customize some bug-reference variables; see Emacs info node Bug Reference"))
(if (and (not (integerp pos)) (eventp pos))
;; POS is a mouse event; switch to the proper window/buffer
(let ((posn (event-start pos)))