Add to bug-reference-auto-setup-functions after its declaring defvar
If it's the init-value of the defvar, add-hook from a third-party package will suppress the default functions if it takes place before bug-reference is loaded. * lisp/progmodes/bug-reference.el (bug-reference-auto-setup-functions): Add to bug-reference-auto-setup-functions after its declaring defvar.
This commit is contained in:
parent
26e947ccb1
commit
60089dcfe0
1 changed files with 16 additions and 6 deletions
|
@ -599,12 +599,7 @@ and set it if applicable."
|
||||||
(erc-format-target)
|
(erc-format-target)
|
||||||
(erc-network-name))))
|
(erc-network-name))))
|
||||||
|
|
||||||
(defvar bug-reference-auto-setup-functions
|
(defvar bug-reference-auto-setup-functions nil
|
||||||
(list #'bug-reference-try-setup-from-vc
|
|
||||||
#'bug-reference-try-setup-from-gnus
|
|
||||||
#'bug-reference-try-setup-from-rmail
|
|
||||||
#'bug-reference-try-setup-from-rcirc
|
|
||||||
#'bug-reference-try-setup-from-erc)
|
|
||||||
"Functions trying to auto-setup `bug-reference-mode'.
|
"Functions trying to auto-setup `bug-reference-mode'.
|
||||||
These functions are run after `bug-reference-mode' has been
|
These functions are run after `bug-reference-mode' has been
|
||||||
activated in a buffer and try to guess suitable values for
|
activated in a buffer and try to guess suitable values for
|
||||||
|
@ -618,6 +613,21 @@ guesswork is based on these variables:
|
||||||
- `bug-reference-setup-from-irc-alist' for guessing based on IRC
|
- `bug-reference-setup-from-irc-alist' for guessing based on IRC
|
||||||
channel or network names.")
|
channel or network names.")
|
||||||
|
|
||||||
|
;; Add the default auto-setup functions. We don't have them as
|
||||||
|
;; init value of bug-reference-auto-setup-functions because then
|
||||||
|
;; they wouldn't be added if some package uses
|
||||||
|
;;
|
||||||
|
;; (add-hook 'bug-reference-auto-setup-functions
|
||||||
|
;; #'my-pkg--bug-reference-try-setup-from-my-pkg)
|
||||||
|
;;
|
||||||
|
;; before bug-reference.el is loaded.
|
||||||
|
(dolist (fn (list #'bug-reference-try-setup-from-vc
|
||||||
|
#'bug-reference-try-setup-from-gnus
|
||||||
|
#'bug-reference-try-setup-from-rmail
|
||||||
|
#'bug-reference-try-setup-from-rcirc
|
||||||
|
#'bug-reference-try-setup-from-erc))
|
||||||
|
(add-hook 'bug-reference-auto-setup-functions fn))
|
||||||
|
|
||||||
(defun bug-reference--run-auto-setup ()
|
(defun bug-reference--run-auto-setup ()
|
||||||
(when (or bug-reference-mode
|
(when (or bug-reference-mode
|
||||||
bug-reference-prog-mode)
|
bug-reference-prog-mode)
|
||||||
|
|
Loading…
Add table
Reference in a new issue