* lisp/find-dired.el (find-dired): Fix bug where M-p skips first history item.

Don't apply "skip first duplicate history item" trick when find-args
used as initial input is nil.

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 9fa139a80250bfb31a452f1a0462165e8024ee16..33376ee4ed955ea1c5cbfed9fef1e9eb7fcfb3d0 100644 (file)
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -177,7 +177,9 @@ using GNU findutils (on macOS and *BSD systems), see instead the
 man page for \"find\"."
   (interactive (list (read-directory-name "Run find in directory: " nil "" t)
                     (read-string "Run find (with args): " find-args
-                                 '(find-args-history . 1))))
+                                 (if find-args
+                                      '(find-args-history . 1)
+                                    'find-args-history))))
   (setq find-args args                ; save for next interactive call
        args (concat find-program " . "
                     (if (string= args "")