(log-view-minor-wrap): Use the same logic to get revisions as `log-view-diff'.

[bpt/emacs.git] / lisp / locate.el

diff --git a/lisp/locate.el b/lisp/locate.el
index 5b61ed5..9676c84 100644 (file)
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -144,12 +144,12 @@
 
 (defcustom locate-fcodes-file nil
   "*File name for the database of file names."
-  :type '(choice file (const nil))
+  :type '(choice (const :tag "None" nil) file)
   :group 'locate)
 
 (defcustom locate-header-face nil
   "*Face used to highlight the locate header."
-  :type 'face
+  :type '(choice (const :tag "None" nil) face)
   :group 'locate)
 
 ;;;###autoload
@@ -229,7 +229,8 @@ With prefix arg, prompt for the locate command to run."
     (save-window-excursion
       (set-buffer (get-buffer-create locate-buffer-name))
       (locate-mode)
-      (let ((inhibit-read-only t))
+      (let ((inhibit-read-only t)
+           (buffer-undo-list t))
        (erase-buffer)
 
        (setq locate-current-filter filter)