From 9423860f88b54a7720fbecad1e218f4ee6036216 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Mon, 14 Oct 2002 15:19:49 +0000 Subject: [PATCH] (insert-directory): Handle //SUBDIRED// lines in recursive listings from ls --dired. --- lisp/files.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index 37118f85d2c..9da9bd87875 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4072,6 +4072,9 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." (when (string-match "--dired\\>" switches) (forward-line -2) + (when (looking-at "//SUBDIRED//") + (delete-region (point) (progn (forward-line 1) (point))) + (forward-line -1)) (let ((end (line-end-position))) (forward-word 1) (forward-char 3) -- 2.39.5