Move two defcustoms from ebib.el to ebib-utils.el

joostkremers · Sep 25, 2024 · c0bb6b1 · c0bb6b1
1 parent c360676
commit c0bb6b1
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 15 deletions.
diff --git a/ebib-utils.el b/ebib-utils.el
@@ -212,6 +212,11 @@ menu."
   :group 'ebib
   :type '(repeat (string :tag "Field")))
 
+(defcustom ebib-always-prompt-for-special-keys t
+  "Prompt for new key in already-named Xdata, Set entries."
+  :group 'ebib
+  :type 'boolean)
+
 (defcustom ebib-layout 'full
   "Ebib window layout.
 This option defines how Ebib displays the buffers it uses.  Possible values are:
@@ -824,6 +829,15 @@ BibTeX dialect is set to `BibTeX', this option is ignored."
                                      (choice (string :tag "Target field)")
                                              (const :tag "No inheritance" none)))))))
 
+(defcustom ebib-follow-current-field-crossref t
+  "Consider only current crossref fields when following crossrefs.
+If non-nil, `ebib-follow-crossref' will only consider keys
+present in the value of the current field, when called with point
+on a field which crossrefs other entries (`crossref', `xdata' or
+`xref')."
+  :group 'ebib
+  :type 'boolean)
+
 (defcustom ebib-save-xrefs-first t
   "Save entries with a crossref field first in the BibTeX-file.
 For BibTeX's cross-referencing to work, the cross-referencing

diff --git a/ebib.el b/ebib.el
@@ -2823,16 +2823,6 @@ result."
             entry))
     result))
 
-
-(defcustom ebib-follow-current-field-crossref t
-  "Consider only current crossref fields when following crossrefs.
-If non-nil, `ebib-follow-crossref' will only consider keys
-present in the value of the current field, when called with point
-on a field which crossrefs other entries (`crossref', `xdata' or
-`xref')."
-  :group 'ebib
-  :type 'boolean)
-
 (defun ebib--key-in-index-p (key)
   "Return t if the entry for KEY is listed in the index buffer."
   (with-current-ebib-buffer 'index
@@ -4397,11 +4387,6 @@ FILTER is passed unmodified to `ebib-read-entry'."
 	(mapcar #'car entry)
       (caar entry))))
 
-(defcustom ebib-always-prompt-for-special-keys t
-  "Prompt for new key in already-named Xdata, Set entries."
-  :group 'ebib
-  :type 'boolean)
-
 (defun ebib--edit-type-field ()
   "Prompt for an entry type.
 If the selected type is \"xdata\" or \"set\" (or a