mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

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

Browse Source 
Don't apply "skip first duplicate history item" trick when find-args
used as initial input is nil.
This commit is contained in:
Juri Linkov 2023-01-23 09:55:29 +02:00
parent 647cc9c65e
commit e6c5f32e77
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/find-dired.el
View File

@ -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 "")