Mercurial > emacs

comparison lisp/ls-lisp.el @ 91327:606f2d163a64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
author Miles Bader <miles@gnu.org>
date Wed, 09 Jan 2008 01:21:15 +0000
parents f55f9811f5d7 107ccd98fa12
children c70e45a7acfd
comparison
equal deleted inserted replaced
91326:b1a63d7fa09c 91327:606f2d163a64
1 ;;; ls-lisp.el --- emulate insert-directory completely in Emacs Lisp 1 ;;; ls-lisp.el --- emulate insert-directory completely in Emacs Lisp
2 2
3 ;; Copyright (C) 1992, 1994, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1992, 1994, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> 6 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
7 ;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk> 7 ;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: unix, dired 9 ;; Keywords: unix, dired
73 73
74 (defcustom ls-lisp-emulation 74 (defcustom ls-lisp-emulation
75 (cond ((eq system-type 'macos) 'MacOS) 75 (cond ((eq system-type 'macos) 'MacOS)
76 ;; ((eq system-type 'windows-nt) 'MS-Windows) 76 ;; ((eq system-type 'windows-nt) 'MS-Windows)
77 ((memq system-type 77 ((memq system-type
78 '(hpux dgux usg-unix-v unisoft-unix rtu irix berkeley-unix)) 78 '(hpux usg-unix-v unisoft-unix irix berkeley-unix))
79 'UNIX)) ; very similar to GNU 79 'UNIX)) ; very similar to GNU
80 ;; Anything else defaults to nil, meaning GNU. 80 ;; Anything else defaults to nil, meaning GNU.
81 "*Platform to emulate: GNU (default), MacOS, MS-Windows, UNIX. 81 "*Platform to emulate: GNU (default), MacOS, MS-Windows, UNIX.
82 Corresponding value is one of the atoms: nil, MacOS, MS-Windows, UNIX. 82 Corresponding value is one of the atoms: nil, MacOS, MS-Windows, UNIX.
83 Sets default values for: `ls-lisp-ignore-case', `ls-lisp-dirs-first', 83 Sets default values for: `ls-lisp-ignore-case', `ls-lisp-dirs-first',