[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: insert-directory
From: |
Richard Stallman |
Subject: |
Re: insert-directory |
Date: |
Tue, 25 May 2004 12:06:56 -0400 |
--- 4336,4361 ----
(when (looking-at "//SUBDIRED//")
(delete-region (point) (progn (forward-line 1) (point)))
(forward-line -1))
! (if (looking-at "//DIRED//")
! (let ((end (line-end-position)))
! (forward-word 1)
! (forward-char 3)
! (while (< (point) end)
! (let ((start (+ beg (read (current-buffer))))
! (end (+ beg (read (current-buffer)))))
! (if (= (char-after end) ?\n)
! (put-text-property start end 'dired-filename t)
! ;; It seems that we can't trust ls's output as to
! ;; byte positions of filenames.
! (put-text-property beg (point) 'dired-filename nil)
! (end-of-line))))
! (goto-char end)
! (beginning-of-line)
! (delete-region (point) (progn (forward-line 2) (point))))
! (forward-line 1)
! (if (looking-at "//DIRED-OPTIONS//")
! (delete-region (point) (progn (forward-line 1) (point)))
! (forward-line 1))))
I don't see any harm in that patch, so please install it
if you want to.
- Re: insert-directory, (continued)
- Re: insert-directory, Luc Teirlinck, 2004/05/24
- Re: insert-directory, Luc Teirlinck, 2004/05/24
- Re: insert-directory, Luc Teirlinck, 2004/05/24
- Re: insert-directory, Luc Teirlinck, 2004/05/24
- Re: insert-directory, Luc Teirlinck, 2004/05/24
- Re: insert-directory, Luc Teirlinck, 2004/05/26
- Re: insert-directory, David Kastrup, 2004/05/26
- Re: insert-directory, Luc Teirlinck, 2004/05/26
- Re: insert-directory, Kai Grossjohann, 2004/05/27
- Re: insert-directory, Luc Teirlinck, 2004/05/27
Re: insert-directory,
Richard Stallman <=