Customized.

1 files changed, 34 insertions, 16 deletions

diff --git a/lisp/locate.el b/lisp/locate.el
index 90501845498..3c89e02ec23 100644
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -118,26 +118,44 @@
   (require 'dired))
 
 ;; Variables
-(defvar locate-command "locate"
-  "*The executable program used to search a database of files.")
 
-(defvar locate-history-list nil
-  "The history list used by the \\[locate] command.")
-
-(defvar locate-make-command-line 'locate-default-make-command-line
-  "*Function used to create the locate command line.")
+(defgroup locate nil
+  "Interface to the locate command."
+  :prefix "locate-"
+  :group 'external)
 
-(defvar locate-buffer-name "*Locate*"
-  "*Name of the buffer to show results from the \\[locate] command.")
+(defcustom locate-command "locate"
+  "*The executable program used to search a database of files."
+  :type 'string
+  :group 'locate)
 
-(defvar locate-fcodes-file nil
-  "*Database of filenames.")
-
-(defvar locate-mouse-face 'highlight
-  "*Face used to highlight locate entries.")
+(defvar locate-history-list nil
+  "The history list used by the \\[locate] command.")
 
-(defvar locate-header-face 'region
-  "*Face used to highlight the locate header.")
+(defcustom locate-make-command-line 'locate-default-make-command-line
+  "*Function used to create the locate command line."
+  :type 'function
+  :group 'locate)
+
+(defcustom locate-buffer-name "*Locate*"
+  "*Name of the buffer to show results from the \\[locate] command."
+  :type 'string
+  :group 'locate)
+
+(defcustom locate-fcodes-file nil
+  "*Database of filenames."
+  :type 'file
+  :group 'locate)
+
+(defcustom locate-mouse-face 'highlight
+  "*Face used to highlight locate entries."
+  :type 'face
+  :group 'locate)
+
+(defcustom locate-header-face 'region
+  "*Face used to highlight the locate header."
+  :type 'face
+  :group 'locate)
 
 (defvar locate-current-filter nil)