Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 4453:29efd169efe7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automated merge with file:/Sources/xemacs-21.5-checked-out
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 11 May 2008 11:24:01 +0200
parents 555e21a66d51
children 8cef85a39d2c
comparison
equal deleted inserted replaced
4452:82f8351e71c8 4453:29efd169efe7
4175 (eq system-type 'windows-nt)) 4175 (eq system-type 'windows-nt))
4176 (declare-fboundp (mswindows-insert-directory 4176 (declare-fboundp (mswindows-insert-directory
4177 file switches wildcard full-directory-p))) 4177 file switches wildcard full-directory-p)))
4178 (t 4178 (t
4179 (let* ((beg (point)) 4179 (let* ((beg (point))
4180 ;; on Unix, assume that ls will output in what the
4181 ;; file-name coding system specifies
4182 (coding-system-for-read (get-coding-system 'file-name))
4180 (result 4183 (result
4181 (if wildcard 4184 (if wildcard
4182 ;; Run ls in the directory of the file pattern we asked for. 4185 ;; Run ls in the directory of the file pattern we asked for.
4183 (let ((default-directory 4186 (let ((default-directory
4184 (if (file-name-absolute-p file) 4187 (if (file-name-absolute-p file)