comparison lisp/dired.el @ 91327:606f2d163a64

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 2fcaae6177a5 107ccd98fa12
children
comparison
equal deleted inserted replaced
91326:b1a63d7fa09c 91327:606f2d163a64
1 ;;; dired.el --- directory-browsing commands 1 ;;; dired.el --- directory-browsing commands
2 2
3 ;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1997, 2000, 3 ;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1997, 2000,
4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2001, 2002, 2003, 2004, 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 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Keywords: files 8 ;; Keywords: files
9 9
68 ; may prefer /usr/local/gnu/bin or whatever. However, chown is 68 ; may prefer /usr/local/gnu/bin or whatever. However, chown is
69 ; usually not in PATH. 69 ; usually not in PATH.
70 70
71 ;;;###autoload 71 ;;;###autoload
72 (defvar dired-chown-program 72 (defvar dired-chown-program
73 (if (memq system-type '(hpux dgux usg-unix-v irix linux gnu/linux cygwin)) 73 (if (memq system-type '(hpux usg-unix-v irix linux gnu/linux cygwin))
74 "chown" 74 "chown"
75 (if (file-exists-p "/usr/sbin/chown") 75 (if (file-exists-p "/usr/sbin/chown")
76 "/usr/sbin/chown" 76 "/usr/sbin/chown"
77 "/etc/chown")) 77 "/etc/chown"))
78 "Name of chown command (usually `chown' or `/etc/chown').") 78 "Name of chown command (usually `chown' or `/etc/chown').")