Mercurial > emacs
diff lisp/files.el @ 47882:2bf98e61feaf
(insert-directory): Handle //SUBDIRED// lines in recursive listings
from ls --dired.
author | André Spiegel <spiegel@gnu.org> |
---|---|
date | Mon, 14 Oct 2002 15:19:49 +0000 |
parents | 9d226e07606d |
children | 9f3ecf5e3d65 |
line wrap: on
line diff
--- a/lisp/files.el Mon Oct 14 15:13:59 2002 +0000 +++ b/lisp/files.el Mon Oct 14 15:19:49 2002 +0000 @@ -4072,6 +4072,9 @@ (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)