[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#29513: 25.2; find-dired-centinel
From: |
Roland Winkler |
Subject: |
bug#29513: 25.2; find-dired-centinel |
Date: |
Thu, 30 Nov 2017 18:50:22 -0600 |
Following a discussion on help-gnu-emacs
https://lists.gnu.org/archive/html/help-gnu-emacs/2017-11/msg00415.html
I request to replace the function find-dired-sentinel by something
like the following that will sort the output of find
lexicographically. I have tested that the function below works for me.
Yet there might be corner cases I do not know about where it might fail.
(defun find-dired-sentinel (proc state)
"Sentinel for \\[find-dired] processes."
(let ((buf (process-buffer proc)))
(if (buffer-name buf)
(with-current-buffer buf
(let ((inhibit-read-only t))
(save-excursion
(save-restriction
(widen)
;; `find-dired-filter' puts two whitespace characters
;; at the beginning of every line.
(narrow-to-region (point) (- (point-max) 2))
;; Sort file names lexicographically.
(sort-subr nil 'forward-line 'end-of-line
(lambda ()
(buffer-substring-no-properties
(next-single-property-change
(point) 'dired-filename)
(line-end-position))))
(widen)
(let ((point (point-max)))
(goto-char point)
(insert "\n find "
(substring state 0 -1) ; omit \n at end of STATE.
" at " (substring (current-time-string) 0 19))
(dired-insert-set-properties point (point))))
(setq mode-line-process
(format ":%s" (process-status proc)))
;; Since the buffer and mode line will show that the
;; process is dead, we can delete it now. Otherwise it
;; will stay around until M-x `list-processes'.
(delete-process proc)
(force-mode-line-update))))
(message "find-dired %s finished." buf))))
In GNU Emacs 25.2.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.18.9)
of 2017-03-03 built on regnitz
Windowing system distributor 'The X.Org Foundation', version 11.0.11804000
System Description: Ubuntu 16.04.3 LTS
Configured features:
XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GCONF
GSETTINGS NOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT
LIBOTF XFT ZLIB TOOLKIT_SCROLL_BARS GTK3 X11
Important settings:
value of $LC_COLLATE: C
value of $LANG: en_US.utf8
value of $XMODIFIERS:
locale-coding-system: utf-8-unix
Major mode: Dired
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#29513: 25.2; find-dired-centinel,
Roland Winkler <=