; * lisp/files.el (create-file-buffer): Fix last change (bug#62732).

diff --git a/lisp/files.el b/lisp/files.el
index 4b65ff10b68641e120562a36e20cd3c02b443437..0c08250a7e932b7eebcc3cc9aec295bea3319cc4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2094,6 +2094,8 @@ Emacs treats buffers whose names begin with a space as internal buffers.
 To avoid confusion when visiting a file whose name begins with a space,
 this function prepends a \"|\" to the final result if necessary."
   (let* ((lastname (file-name-nondirectory (directory-file-name filename)))
+         (lastname (if (string= lastname "")
+                       filename lastname))
          (lastname (cond
                     ((not (and uniquify-trailing-separator-p
                                (file-directory-p filename)))