Simplify code of denote--sluggify-keywords

This is courtesy of Stefan Monnier:
<https://lists.gnu.org/archive/html/emacs-devel/2022-07/msg00131.html>.
This commit is contained in:
Protesilaos Stavrou 2022-07-06 07:44:12 +03:00
parent e24c9ddc12
commit 16867ec4f7
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -316,9 +316,10 @@ trailing hyphen."
(defun denote--sluggify-keywords (keywords)
"Sluggify KEYWORDS."
(if denote-allow-multi-word-keywords
(mapcar #'denote--sluggify keywords)
(mapcar #'denote--sluggify-and-join keywords)))
(mapcar (if denote-allow-multi-word-keywords
#'denote--sluggify
#'denote--sluggify-and-join)
keywords))
(defun denote--file-empty-p (file)
"Return non-nil if FILE is empty."