# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1030886867 0
# Node ID e17812b1a9936b699c1842ba273b8f63ef81bb9e
# Parent  1161904f7cbb3de8b3590e5b3e9e08d0718d72c9
(defgroup dired): Use `files' as parent.
(dired-get-filename): Ignore handler if it has safe-magic prop.

diff -r 1161904f7cbb -r e17812b1a993 lisp/dired.el
--- a/lisp/dired.el	Sun Sep 01 13:26:06 2002 +0000
+++ b/lisp/dired.el	Sun Sep 01 13:27:47 2002 +0000
@@ -39,7 +39,7 @@
 
 (defgroup dired nil
   "Directory editing."
-  :group 'environment)
+  :group 'files)
 
 (defgroup dired-mark nil
   "Handling marks in Dired."
@@ -1471,16 +1471,23 @@
      ((and (eq localp 'no-dir) already-absolute)
       (file-name-nondirectory file))
      (already-absolute
-      (if (find-file-name-handler file nil)
-	  (concat "/:" file)
-	file))
+      (let ((handler (find-file-name-handler file nil)))
+	;; check for safe-magic property so that we won't
+	;; put /: for names that don't really need them.
+	(if (and handler (not (get handler 'safe-magic)))
+	    (concat "/:" file)
+	  file)))
      ((eq localp 'no-dir)
       file)
      ((equal (dired-current-directory) "/")
       (setq file (concat (dired-current-directory localp) file))
-      (if (find-file-name-handler file nil)
-	  (concat "/:" file)
-	file))
+      (let ((handler (find-file-name-handler file nil)))
+	;; check for safe-magic property so that we won't
+	;; put /: for names that don't really need them.
+	;; For instance, .gz files when auto-compression-mode is on.
+	(if (and handler (not (get handler 'safe-magic)))
+	    (concat "/:" file)
+	  file)))
      (t
       (concat (dired-current-directory localp) file)))))