martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Another fix for recent 'dired-readin-insert' change

Browse Source 
* lisp/dired.el (dired-readin-insert): Restore point after
searching for Dired buffer entry of 'ls' error file (bug#80499).
This commit is contained in:
Stephen Berman
2026-04-13 20:21:13 +02:00
parent 5caab891b4
commit 6b479f201c
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/dired.el
View File

@@ -1628,14 +1628,17 @@ wildcards, erases the buffer, and builds the subdir-alist anew
(let ((tmpbuf (dired-find-buffer-nocreate temporary-file-directory)))
(when tmpbuf
(with-current-buffer tmpbuf
(widen)
(goto-char (point-min))
(when (search-forward (file-name-base dired--ls-error-file) nil t)
;; The call chain of `dired-remove-entry' requires non-nil
;; `dired-subdir-alist', but here it is nil, so we set it.
(let ((dired-subdir-alist `((,temporary-file-directory
. ,(point-min-marker)))))
(dired-remove-entry dired--ls-error-file)))))))))
(save-excursion
(without-restriction
(goto-char (point-min))
(when (search-forward
(file-name-base dired--ls-error-file) nil t)
;; The call chain of `dired-remove-entry' requires
;; non-nil `dired-subdir-alist', but here it is nil,
;; so we set it.
(let ((dired-subdir-alist `((,temporary-file-directory
. ,(point-min-marker)))))
(dired-remove-entry dired--ls-error-file)))))))))))
(defun dired-align-file (beg end)
"Align the fields of a file to the ones of surrounding lines.