Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 4402:e70cc8a90e90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automated merge with ssh://aidan-guest@hg.debian.org//hg/xemacs/xemacs
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 17 Jan 2008 11:55:11 +0100
parents 555e21a66d51
children 8cef85a39d2c
comparison
equal deleted inserted replaced
4401:01970033faa6 4402:e70cc8a90e90
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)