From: Fritz Stelzer <brotzeitmacher@gmail.com>
Date: Tue, 25 Jun 2019 11:09:41 +0000 (+0200)
Subject: Make xref-show-xrefs-function a defcustom
X-Git-Tag: emacs-27.0.90~2252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=235ca1b4dbfd42380117d58801de6b8f6b48a4f9;p=emacs.git

Make xref-show-xrefs-function a defcustom

* lisp/progmodes/xref.el (xref-show-xrefs-function): Make into a
defcustome (bug#29206).

* lisp/progmodes/xref.el (xref-show-definitions-function): Ditto.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 8769641b084..44934d44ebd 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -875,7 +875,7 @@ local keymap that binds `RET' to `xref-quit-and-goto-xref'."
         (current-buffer))))))
 
 
-(defvar xref-show-xrefs-function 'xref--show-xref-buffer
+(defcustom xref-show-xrefs-function 'xref--show-xref-buffer
   "Function to display a list of search results.
 
 It should accept two arguments: FETCHER and ALIST.
@@ -891,12 +891,14 @@ command was called.
 
 DISPLAY-ACTION indicates where the target location should be
 displayed.  The possible values are nil, `window' meaning the
-other window, or `frame' meaning the other frame.")
+other window, or `frame' meaning the other frame."
+  :type 'function)
 
-(defvar xref-show-definitions-function 'xref--show-defs-buffer
+(defcustom xref-show-definitions-function 'xref--show-defs-buffer
   "Function to display a list of definitions.
 
-Accepts the same arguments as `xref-show-xrefs-function'.")
+Accepts the same arguments as `xref-show-xrefs-function'."
+  :type 'function)
 
 (defvar xref--read-identifier-history nil)