From d979dc2b3de16b2070f7176d31d96e74132f0abf Mon Sep 17 00:00:00 2001 From: Stephen Eglen Date: Wed, 4 Feb 1998 19:24:34 +0000 Subject: [PATCH] Customized. --- lisp/locate.el | 42 ++++++++++++++++++++++++++++++------------ 1 file changed, 30 insertions(+), 12 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.") + +(defgroup locate nil + "Interface to the locate command." + :prefix "locate-" + :group 'external) + +(defcustom locate-command "locate" + "*The executable program used to search a database of files." + :type 'string + :group 'locate) (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.") +(defcustom locate-make-command-line 'locate-default-make-command-line + "*Function used to create the locate command line." + :type 'function + :group 'locate) -(defvar locate-buffer-name "*Locate*" - "*Name of the buffer to show results from the \\[locate] command.") +(defcustom locate-buffer-name "*Locate*" + "*Name of the buffer to show results from the \\[locate] command." + :type 'string + :group 'locate) -(defvar locate-fcodes-file nil - "*Database of filenames.") +(defcustom locate-fcodes-file nil + "*Database of filenames." + :type 'file + :group 'locate) -(defvar locate-mouse-face 'highlight - "*Face used to highlight locate entries.") +(defcustom locate-mouse-face 'highlight + "*Face used to highlight locate entries." + :type 'face + :group 'locate) -(defvar locate-header-face 'region - "*Face used to highlight the locate header.") +(defcustom locate-header-face 'region + "*Face used to highlight the locate header." + :type 'face + :group 'locate) (defvar locate-current-filter nil)