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

name, make it "/" after stripping.

(file-name-non-special): If "/:" is the entire file
name, make it "/" after stripping.
fe4d9852 · Karl Heuer · d6e8ea6f · fe4d9852
Commit fe4d9852 authored Oct 19, 1997 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 4 deletions

lisp/files.el lisp/files.el +7 -4

No files found.
--- 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)