martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(insert-directory): Add workaround for the case that we

Browse Source 
can't trust ls's output as to byte positions of filenames.
This commit is contained in:
Kenichi Handa
2003-02-17 06:18:58 +00:00
parent fb4452cc32
commit 7702ccc529
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@@ -1,3 +1,8 @@
2003-02-17 Kenichi Handa <handa@m17n.org>
* files.el (insert-directory): Add workaround for the case that we
can't trust ls's output as to byte positions of filenames.
2003-02-15 Richard M. Stallman <rms@gnu.org>
* ffap.el: Many doc fixes.

7
lisp/files.el
View File

@@ -4110,7 +4110,12 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
(while (< (point) end)
(let ((start (+ beg (read (current-buffer))))
(end (+ beg (read (current-buffer)))))
(put-text-property start end 'dired-filename t)))
(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)))))