From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 19 Oct 1997 20:34:22 +0000 (+0000)
Subject: (file-name-non-special): If "/:" is the entire file
X-Git-Tag: emacs-20.3~2979
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe4d985204906d5e9bd557b68eb05620b793bfb6;p=emacs.git

(file-name-non-special): If "/:" is the entire file
name, make it "/" after stripping.
---

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)