[elpa] externals/denote 22c14c9ced 1/3: Upcase first char in denote-desluggify

[ELPA Syncer]

branch: externals/denote
commit 22c14c9ced69d643cd707ef06f57b598a27c4d6f
Author: Clemens Radermacher <clemera@posteo.net>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    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