Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
20844:d69034fe59c2 | 20845:2fd9f2883ad4 |
---|---|
116 | 116 |
117 (eval-when-compile | 117 (eval-when-compile |
118 (require 'dired)) | 118 (require 'dired)) |
119 | 119 |
120 ;; Variables | 120 ;; Variables |
121 (defvar locate-command "locate" | 121 |
122 "*The executable program used to search a database of files.") | 122 (defgroup locate nil |
123 "Interface to the locate command." | |
124 :prefix "locate-" | |
125 :group 'external) | |
126 | |
127 (defcustom locate-command "locate" | |
128 "*The executable program used to search a database of files." | |
129 :type 'string | |
130 :group 'locate) | |
123 | 131 |
124 (defvar locate-history-list nil | 132 (defvar locate-history-list nil |
125 "The history list used by the \\[locate] command.") | 133 "The history list used by the \\[locate] command.") |
126 | 134 |
127 (defvar locate-make-command-line 'locate-default-make-command-line | 135 (defcustom locate-make-command-line 'locate-default-make-command-line |
128 "*Function used to create the locate command line.") | 136 "*Function used to create the locate command line." |
129 | 137 :type 'function |
130 (defvar locate-buffer-name "*Locate*" | 138 :group 'locate) |
131 "*Name of the buffer to show results from the \\[locate] command.") | 139 |
132 | 140 (defcustom locate-buffer-name "*Locate*" |
133 (defvar locate-fcodes-file nil | 141 "*Name of the buffer to show results from the \\[locate] command." |
134 "*Database of filenames.") | 142 :type 'string |
135 | 143 :group 'locate) |
136 (defvar locate-mouse-face 'highlight | 144 |
137 "*Face used to highlight locate entries.") | 145 (defcustom locate-fcodes-file nil |
138 | 146 "*Database of filenames." |
139 (defvar locate-header-face 'region | 147 :type 'file |
140 "*Face used to highlight the locate header.") | 148 :group 'locate) |
149 | |
150 (defcustom locate-mouse-face 'highlight | |
151 "*Face used to highlight locate entries." | |
152 :type 'face | |
153 :group 'locate) | |
154 | |
155 (defcustom locate-header-face 'region | |
156 "*Face used to highlight the locate header." | |
157 :type 'face | |
158 :group 'locate) | |
141 | 159 |
142 (defvar locate-current-filter nil) | 160 (defvar locate-current-filter nil) |
143 | 161 |
144 ;; Functions | 162 ;; Functions |
145 | 163 |