emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 0972cbe: * lisp/progmodes/xref.el: Fix defcustoms (bug#50067)


From: Juri Linkov
Subject: master 0972cbe: * lisp/progmodes/xref.el: Fix defcustoms (bug#50067)
Date: Sun, 5 Sep 2021 04:36:51 -0400 (EDT)

branch: master
commit 0972cbe42fe538ded8729c07116e0f98f9830d43
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/progmodes/xref.el: Fix defcustoms (bug#50067)
    
    * lisp/progmodes/xref.el (xref-auto-jump-to-first-definition)
    (xref-auto-jump-to-first-xref, xref-search-program): Fix defcustoms.
---
 lisp/progmodes/xref.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 86cbdf1..2181ecf 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -421,9 +421,10 @@ elements is negated: these commands will NOT prompt."
 `show' means to show the first result's location, but keep the
 focus on the Xref buffer's window.
 `move' means to only move point to the first result."
-  :type '(choice (const t :tag "Jump")
-                 (const show :tag "Show")
-                 (const move :tag "Move point only"))
+  :type '(choice (const :tag "Jump" t)
+                 (const :tag "Show" show)
+                 (const :tag "Move point only" move)
+                 (const :tag "No auto-jump" nil))
   :version "28.1"
   :package-version '(xref . "1.2.0"))
 
@@ -432,9 +433,10 @@ focus on the Xref buffer's window.
 `show' means to show the first result's location, but keep the
 focus on the Xref buffer's window.
 `move' means to only move point to the first result."
-  :type '(choice (const t :tag "Jump")
-                 (const show :tag "Show")
-                 (const move :tag "Move point only"))
+  :type '(choice (const :tag "Jump" t)
+                 (const :tag "Show" show)
+                 (const :tag "Move point only" move)
+                 (const :tag "No auto-jump" nil))
   :version "28.1"
   :package-version '(xref . "1.2.0"))
 
@@ -1628,7 +1630,7 @@ The template should have the following fields:
   "The program to use for regexp search inside files.
 
 This must reference a corresponding entry in `xref-search-program-alist'."
-  :type `(choice
+  :type '(choice
           (const :tag "Use Grep" grep)
           (const :tag "Use ripgrep" ripgrep)
           (symbol :tag "User defined"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]