mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

; Improve documentation of 'file-name-with-extension'

Browse Source 
* lisp/files.el (file-name-with-extension): Doc fix.  (Bug#56809)
This commit is contained in:
Eli Zaretskii 2022-07-28 10:45:43 +03:00
parent 4be938169d
commit 23112f89f9
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/files.el
View File

@ -5033,14 +5033,16 @@ extension, the value is \"\"."
"")))))
(defun file-name-with-extension (filename extension)
"Set the EXTENSION of a FILENAME.
"Return FILENAME modified to have the specified EXTENSION.
The extension (in a file name) is the part that begins with the last \".\".
This function removes any existing extension from FILENAME, and then
appends EXTENSION to it.
Trims a leading dot from the EXTENSION so that either \"foo\" or
\".foo\" can be given.
EXTENSION may include the leading dot; if it doesn't, this function
will provide it.
Errors if the FILENAME or EXTENSION are empty, or if the given
FILENAME has the format of a directory.
It is an error if FILENAME or EXTENSION is empty, or if FILENAME
is in the form of a directory name according to `directory-name-p'.
See also `file-name-sans-extension'."
(let ((extn (string-trim-left extension "[.]")))