From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 May 2002 16:42:26 +0000 (+0000)
Subject: (dired-show-file-type): Use -- to say FILE's not option.
X-Git-Tag: ttn-vms-21-2-B4~15093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=384bcc6495e2c1ae0e0f54707506cd50a39a59e0;p=emacs.git

(dired-show-file-type): Use -- to say FILE's not option.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index ed8c3247f82..8d2b66fe12d 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2022,8 +2022,8 @@ true then the type of the file linked to by FILE is printed instead."
   (interactive (list (dired-get-filename t) current-prefix-arg))
   (with-temp-buffer
     (if deref-symlinks
-	(call-process "file" nil t t "-L" file)
-      (call-process "file" nil t t file))
+	(call-process "file" nil t t "-L" "--" file)
+      (call-process "file" nil t t "--" file))
     (when (bolp)
       (backward-delete-char 1))
     (message (buffer-string))))