[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 16bb524 2/3: Don't echo empty string in file-name-with-extension
From: |
Lars Ingebrigtsen |
Subject: |
master 16bb524 2/3: Don't echo empty string in file-name-with-extension |
Date: |
Sun, 22 Aug 2021 10:59:10 -0400 (EDT) |
branch: master
commit 16bb524a5e2e2b8ddd3bd705972b9f7502f7f1ab
Author: Colin Woodbury <colin@fosskers.ca>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Don't echo empty string in file-name-with-extension
* lisp/files.el (file-name-with-extension): Avoid echoing a filename
string known to be empty (bug#50149).
---
lisp/files.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/files.el b/lisp/files.el
index f0baa4f..ba36282 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5033,7 +5033,7 @@ FILENAME has the format of a directory.
See also `file-name-sans-extension'."
(let ((extn (string-trim-left extension "[.]")))
(cond ((string-empty-p filename)
- (error "Empty filename: %s" filename))
+ (error "Empty filename"))
((string-empty-p extn)
(error "Malformed extension: %s" extension))
((directory-name-p filename)