From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 17 Jul 2023 11:34:35 +0000 (+0300)
Subject: ; * lisp/files.el (create-file-buffer): Fix last change (bug#62732).
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b6b95dbf8de1aa0cbcb0f1b6f3c4debcc20296b;p=emacs.git

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

diff --git a/lisp/files.el b/lisp/files.el
index 4b65ff10b68..0c08250a7e9 100644
--- 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)))