andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor clean ups and doc fixes in find-dired

Browse source 
* lisp/find-dired.el (find-ls-option, find-dired): Doc fixes.
(find-dired, kill-find): Minor clean ups.
This commit is contained in:
Stefan Kangas 2020-09-09 20:14:54 +02:00
parent fab443827a
commit ceb5d1745f
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/find-dired.el
View file

@ -85,8 +85,8 @@ the options \"-dilsb\".
While the option `find -ls' often produces unsorted output, the option While the option `find -ls' often produces unsorted output, the option
`find -exec ls -ld' maintains the sorting order only on short output, `find -exec ls -ld' maintains the sorting order only on short output,
whereas `find -print | sort | xargs' produced sorted output even whereas `find -print | sort | xargs' produces sorted output even
on the large number of files." on a large number of files."
:version "27.1" ; add choice of predefined set of options :version "27.1" ; add choice of predefined set of options
:type `(choice :type `(choice
(cons :tag "find -ls" (cons :tag "find -ls"
@ -164,7 +164,10 @@ The command run (after changing into DIR) is essentially
find . \\( ARGS \\) -ls find . \\( ARGS \\) -ls
except that the car of the variable `find-ls-option' specifies what to except that the car of the variable `find-ls-option' specifies what to
use in place of \"-ls\" as the final argument." use in place of \"-ls\" as the final argument.
Collect output in the \"*Find*\" buffer. To kill the job before
it finishes, type \\[kill-find]."
(interactive (list (read-directory-name "Run find in directory: " nil "" t) (interactive (list (read-directory-name "Run find in directory: " nil "" t)
(read-string "Run find (with args): " find-args (read-string "Run find (with args): " find-args
'(find-args-history . 1)))) '(find-args-history . 1))))
@ -215,7 +218,6 @@ use in place of \"-ls\" as the final argument."
(car find-ls-option)))) (car find-ls-option))))
;; Start the find process. ;; Start the find process.
(shell-command (concat args "&") (current-buffer)) (shell-command (concat args "&") (current-buffer))
;; The next statement will bomb in classic dired (no optional arg allowed)
(dired-mode dir (cdr find-ls-option)) (dired-mode dir (cdr find-ls-option))
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(set-keymap-parent map (current-local-map)) (set-keymap-parent map (current-local-map))
@ -247,8 +249,8 @@ use in place of \"-ls\" as the final argument."
(dired-insert-set-properties point (point))) (dired-insert-set-properties point (point)))
(setq buffer-read-only t) (setq buffer-read-only t)
(let ((proc (get-buffer-process (current-buffer)))) (let ((proc (get-buffer-process (current-buffer))))
(set-process-filter proc (function find-dired-filter)) (set-process-filter proc #'find-dired-filter)
(set-process-sentinel proc (function find-dired-sentinel)) (set-process-sentinel proc #'find-dired-sentinel)
;; Initialize the process marker; it is used by the filter. ;; Initialize the process marker; it is used by the filter.
(move-marker (process-mark proc) (point) (current-buffer))) (move-marker (process-mark proc) (point) (current-buffer)))
(setq mode-line-process '(":%s")))) (setq mode-line-process '(":%s"))))
@ -258,7 +260,7 @@ use in place of \"-ls\" as the final argument."
(interactive) (interactive)
(let ((find (get-buffer-process (current-buffer)))) (let ((find (get-buffer-process (current-buffer))))
(and find (eq (process-status find) 'run) (and find (eq (process-status find) 'run)
(eq (process-filter find) (function find-dired-filter)) (eq (process-filter find) #'find-dired-filter)
(condition-case nil (condition-case nil
(delete-process find) (delete-process find)
(error nil))))) (error nil)))))