Mercurial > emacs
diff lisp/locate.el @ 20845:2fd9f2883ad4
Customized.
author | Stephen Eglen <stephen@gnu.org> |
---|---|
date | Wed, 04 Feb 1998 19:24:34 +0000 |
parents | 8f952e921136 |
children | 124580b805a3 |
line wrap: on
line diff
--- a/lisp/locate.el Wed Feb 04 14:20:15 1998 +0000 +++ b/lisp/locate.el Wed Feb 04 19:24:34 1998 +0000 @@ -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)