mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* ls-lisp.el (ls-lisp-insert-directory): Wen WILDCARD-REGEXP and

Browse source 
FULL-DIRECTORY-P are nil, and FILE is absolute, expand it.  This
prevents file names like "~/" been listed literally.
This commit is contained in:
Michael Albinus 2010-02-10 09:46:54 +01:00
parent c59d6fadf7
commit a8e4290b05
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2010-02-10 Michael Albinus <michael.albinus@gmx.de>
* ls-lisp.el (ls-lisp-insert-directory): Wen WILDCARD-REGEXP and
FULL-DIRECTORY-P are nil, and FILE is absolute, expand it. This
prevents file names like "~/" been listed literally.
2010-02-10 Dan Nicolaescu <dann@ics.uci.edu>
* term/xterm.el (xterm-maybe-set-dark-background-mode): Remove

1
lisp/ls-lisp.el
View file

@ -400,6 +400,7 @@ not contain `d', so that a full listing is expected."
;; If not full-directory-p, FILE *must not* end in /, as
;; file-attributes will not recognize a symlink to a directory,
;; so must make it a relative filename as ls does:
(if (file-name-absolute-p file) (setq file (expand-file-name file)))
(if (eq (aref file (1- (length file))) ?/)
(setq file (substring file 0 -1)))
(let ((fattr (file-attributes file 'string)))