From 225feba25f280d93d1d83707b7847a6b037b55fb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 12 Apr 1994 05:12:33 +0000 Subject: (dired-add-entry): Set opoint at beginning of line. No need to explicitly discard direcory from file name. --- lisp/dired-aux.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'lisp') diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index b01ba22043..16b829d948 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -768,22 +768,16 @@ a prefix arg lets you edit the `ls' switches used for the new listing." (dired-goto-next-nontrivial-file)) ;; not found (throw 'not-found "Subdir not found"))) - ;; found and point is at The Right Place: - (let (buffer-read-only (opoint (point))) + (let (buffer-read-only opoint) (beginning-of-line) + (setq opoint (point)) (dired-add-entry-do-indentation marker-char) - ;; don't expand `.' ! + ;; don't expand `.'. Show just the file name within directory. (let ((default-directory directory)) (insert-directory filename (concat dired-actual-switches "d"))) (dired-insert-set-properties opoint (point)) (forward-line -1) - ;; We want to have the non-directory part, only: - (let* ((beg (dired-move-to-filename t)) ; error for strange output - (end (dired-move-to-end-of-filename))) - (setq filename (buffer-substring beg end)) - (delete-region beg end) - (insert (file-name-nondirectory filename))) (if dired-after-readin-hook;; the subdir-alist is not affected... (save-excursion;; ...so we can run it right now: (save-restriction -- cgit v1.2.3