emacs-devel
[Top][All Lists]
Advanced

[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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]