Commit fe4d9852 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

name, make it "/" after stripping.
parent d6e8ea6f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment