branch: externals/denote
commit 22c14c9ced69d643cd707ef06f57b598a27c4d6f
Author: Clemens Radermacher <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Upcase first char in denote-desluggify
---
denote.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/denote.el b/denote.el
index 46045f429f..9aec1977fd 100644
--- a/denote.el
+++ b/denote.el
@@ -450,8 +450,10 @@ leading and trailing hyphen."
"1.0.0")
(defun denote-desluggify (str)
- "Capitalize and dehyphenate STR, inverting `denote-sluggify'."
- (capitalize (replace-regexp-in-string "-" " " str)))
+ "Upcase first char in STR and dehyphenate STR, inverting `denote-sluggify'."
+ (let ((str (replace-regexp-in-string "-" " " str)))
+ (aset str 0 (upcase (aref str 0)))
+ str))
(define-obsolete-function-alias
'denote--desluggify
