From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 17 Jul 2023 11:36:44 +0000 (+0300)
Subject: ; * lisp/files.el (create-file-buffer): Add commentary.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d332c49933331c9b2f9fe8e403a20fddd8062b6;p=emacs.git

; * lisp/files.el (create-file-buffer): Add commentary.
---

diff --git a/lisp/files.el b/lisp/files.el
index 0c08250a7e9..f8867432000 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2094,7 +2094,7 @@ 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 "")
+         (lastname (if (string= lastname "") ; FILENAME is a root directory
                        filename lastname))
          (lastname (cond
                     ((not (and uniquify-trailing-separator-p