mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Eli Zaretskii 2023-07-17 14:36:44 +03:00
parent 5b6b95dbf8
commit 9d332c4993
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/files.el
View file

@ -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