Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(file-name-non-special): If "/:" is the entire file

Browse source 
name, make it "/" after stripping.
This commit is contained in:
Karl Heuer 1997-10-19 20:34:22 +00:00
parent d6e8ea6f54
commit fe4d985204
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/files.el
View file

@ -3104,10 +3104,13 @@ With prefix arg, silently save all file-visiting buffers, then kill."
;; Strip off the /: from the file names that have this handler.
(save-match-data
(while (consp file-arg-indices)
(and (nth (car file-arg-indices) arguments)
(string-match "\\`/:" (nth (car file-arg-indices) arguments))
(setcar (nthcdr (car file-arg-indices) arguments)
(substring (nth (car file-arg-indices) arguments) 2)))
(let ((pair (nthcdr (car file-arg-indices) arguments)))
(and (car pair)
(string-match "\\`/:" (car pair))
(setcar pair
(if (= (length (car pair)) 2)
"/"
(substring (car pair) 2)))))
(setq file-arg-indices (cdr file-arg-indices))))
(if (eq file-arg-indices 'identity)
(car arguments)