Changeset 4111 for trunk/lisp/locate.el

Timestamp:

07/16/06 08:36:52 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/locate.el (modified) (3 diffs)

trunk/lisp/locate.el

@@ -192 +192 @@
-  :version "22.1")
-
+(defcustom locate-update-when-revert nil
+  "This option affects how the *Locate* buffer gets reverted.
+If non-nil, offer to update the locate database when reverting that buffer.
+\(Normally, you need to have root privileges for this to work.  See the
+option `locate-update-path'.)
+If nil, reverting does not update the locate database."
+  :type 'boolean
+  :group 'locate
+  :version "22.1")
+
-(defcustom locate-update-command "updatedb"
-  "The executable program used to update the locate database."
@@ -197 +207 @@
-  :group 'locate)
-
+(defcustom locate-update-path "/"
+  "The default directory from where `locate-update-command' is called.
+Usually, root permissions are required to run that command.  This
+can be achieved by setting this option to \"/su::\" or \"/sudo::\"
+\(if you have the appropriate authority).  If your current user
+permissions are sufficient to run the command, you can set this
+option to \"/\"."
+  :type 'string
+  :group 'locate
+  :version "22.1")
+
-(defcustom locate-prompt-for-command nil
-  "If non-nil, the `locate' command prompts for a command to run.
-Otherwise, that behavior is invoked via a prefix argument."
-  :group 'locate
-
-
+
-
-;; Functions
@@ -558 +578 @@
-;; From Stephen Eglen <stephen@cns.ed.ac.uk>
-(defun locate-update (ignore1 ignore2)
-
-
+
+
+
-  (let ((str (car locate-history-list)))
-
-
-
+
+
+
+
+
+
+
+
-
-;;; Modified three functions from `dired.el':