mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(defgroup dired): Use `files' as parent.

Browse Source 
(dired-get-filename): Ignore handler if it has safe-magic prop.
This commit is contained in:
Richard M. Stallman 2002-09-01 13:27:47 +00:00
parent 68890d7ebc
commit ca66efd171
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/dired.el
View File

@ -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 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
((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)))))