From fe4d985204906d5e9bd557b68eb05620b793bfb6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 19 Oct 1997 20:34:22 +0000 Subject: [PATCH] (file-name-non-special): If "/:" is the entire file name, make it "/" after stripping. --- lisp/files.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index ad4e7708ebf..01712f58e7b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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) -- 2.39.2