[Emacs-diffs] Changes to emacs/lisp/dired.el

[Richard M. Stallman]

Index: emacs/lisp/dired.el
diff -c emacs/lisp/dired.el:1.235 emacs/lisp/dired.el:1.236
*** emacs/lisp/dired.el:1.235   Fri Aug  2 18:21:43 2002
--- emacs/lisp/dired.el Sun Sep  1 09:27:47 2002
***************
*** 39,45 ****
  
  (defgroup dired nil
    "Directory editing."
!   :group 'environment)
  
  (defgroup dired-mark nil
    "Handling marks in Dired."
--- 39,45 ----
  
  (defgroup dired nil
    "Directory editing."
!   :group 'files)
  
  (defgroup dired-mark nil
    "Handling marks in Dired."
***************
*** 1471,1486 ****
       ((and (eq localp 'no-dir) already-absolute)
        (file-name-nondirectory file))
       (already-absolute
!       (if (find-file-name-handler file nil)
!         (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))
       (t
        (concat (dired-current-directory localp) file)))))
  
--- 1471,1493 ----
       ((and (eq localp 'no-dir) already-absolute)
        (file-name-nondirectory file))
       (already-absolute
!       (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))
!       (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)))))