Mercurial > emacs
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').") |