procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Autoload Eglot helper funtion eglot--debbugs-or-github-bug-uri

Browse source 
This isn't a typical autoload: the progn block is plced in the
autoloads file, but the eglot.el file itself isn't loaded as a result
when the function inside the progn block is called.

* lisp/progmodes/eglot.el (eglot--debbugs-or-github-bug-uri):
autoload, but in progn.
This commit is contained in:
João Távora 2023-03-09 13:07:02 +00:00
parent 50a3559c5a
commit 01b65d442a
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/progmodes/eglot.el
View file

@ -3666,13 +3666,14 @@ If NOERROR, return predicate, else erroring function."
;;; Misc ;;; Misc
;;; ;;;
(defun eglot--debbugs-or-github-bug-uri () ;;;###autoload
(format (if (string= (match-string 2) "github") (progn
"https://github.com/joaotavora/eglot/issues/%s" (put 'eglot--debbugs-or-github-bug-uri 'bug-reference-url-format t)
"https://debbugs.gnu.org/%s") (defun eglot--debbugs-or-github-bug-uri ()
(match-string 3))) (format (if (string= (match-string 2) "github")
(put 'eglot--debbugs-or-github-bug-uri 'bug-reference-url-format t) "https://github.com/joaotavora/eglot/issues/%s"
"https://debbugs.gnu.org/%s")
(match-string 3))))
;;; Obsolete ;;; Obsolete
;;; ;;;