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

diff --git a/lisp/files.el b/lisp/files.el
index 0c08250a7e932b7eebcc3cc9aec295bea3319cc4..f8867432000d13998c5302972b4a1aa84910be8f 100644 (file)
--- 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