changeset 20094:583c3ace07bf

(file-name-non-special): If "/:" is the entire file name, make it "/" after stripping.
author Karl Heuer <kwzh@gnu.org>
date Sun, 19 Oct 1997 20:34:22 +0000
parents c8448efca727
children 496ecb0c5e68
files lisp/files.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sun Oct 19 20:20:15 1997 +0000
+++ b/lisp/files.el	Sun Oct 19 20:34:22 1997 +0000
@@ -3104,10 +3104,13 @@
     ;; 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)