Mercurial > emacs

changeset 5003:28ad14078b0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-chown-program): Check for irix, not silicon-graphic-unix.
author Richard M. Stallman <rms@gnu.org>
date Sun, 14 Nov 1993 00:06:23 +0000
parents a2d961cb63b0
children 1c1661097590
files lisp/dired.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Sun Nov 14 00:06:01 1993 +0000
+++ b/lisp/dired.el	Sun Nov 14 00:06:23 1993 +0000
@@ -46,7 +46,7 @@
 
 ;;;###autoload
 (defvar dired-chown-program
-  (if (memq system-type '(hpux dgux usg-unix-v silicon-graphics-unix))
+  (if (memq system-type '(hpux dgux usg-unix-v irix))
       "chown" "/etc/chown")
   "Name of chown command (usually `chown' or `/etc/chown').")
 
@@ -1100,6 +1100,10 @@
   ;; DIR must be file-name-as-directory, as with all directory args in
   ;; Emacs Lisp code.
   (or dir (setq dir default-directory))
+  ;; This case comes into play if default-directory is set to
+  ;; use ~.
+  (if (and (> (length dir) 0) (= (aref dir 0) ?~))
+      (setq dir (expand-file-name dir)))
   (if (string-match (concat "^" (regexp-quote dir)) file)
       (substring file (match-end 0))
     (if no-error