From 24100cce5eca106d5019def99ba39848fff1a901 Mon Sep 17 00:00:00 2001 From: Gabriel do Nascimento Ribeiro Date: Sat, 5 Nov 2022 08:27:50 -0300 Subject: [PATCH 1/1] Make dired-hide-details-mode work after dired-hide-subdir. * lisp/dired.el (dired--unhide): Restore text properties. --- lisp/dired.el | 3 ++- test/lisp/dired-tests.el | 10 ++++++++++ 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/dired.el b/lisp/dired.el index 209e270942..825d0e4750 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3034,7 +3034,8 @@ dired--unhide (remove-list-of-text-properties (progn (goto-char start) (line-end-position)) (progn (goto-char end) (line-end-position)) - '(invisible))))) + '(invisible)) + (dired-insert-set-properties start end)))) ;;; Functions for finding the file name in a dired buffer line diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el index 09becc7fe7..fd7ff73267 100644 --- a/test/lisp/dired-tests.el +++ b/test/lisp/dired-tests.el @@ -288,6 +288,16 @@ dired-test-bug27631 (should (cdr (dired-get-marked-files)))) (when (buffer-live-p buf) (kill-buffer buf)))))) +(ert-deftest dired-test-bugXXXX () + "Test for https://debbugs.gnu.org/XXXX ." + (dired (list (expand-file-name "src" source-directory) + "cygw32.c" "alloc.c" "w32xfns.c" "xdisp.c")) + (dired-hide-all) + (dired-hide-all) + (dired-next-line 1) + (should (equal 'dired-hide-details-detail + (get-text-property (1+ (line-beginning-position)) 'invisible)))) + (ert-deftest dired-test-bug27899 () "Test for https://debbugs.gnu.org/27899 ." :tags '(:unstable) -- 2.34.1