Close #576, move usage of `downcase'

joaotavora · Mar 6, 2023 · 72f5373 · 72f5373
1 parent f34c222
commit 72f5373
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/contrib/sly-mrepl.el b/contrib/sly-mrepl.el
@@ -518,7 +518,7 @@ current ERROR-LEVEL."
                error-level
                next-entry-idx
                condition)
-      'sly-mrepl--prompt (downcase package)))
+      'sly-mrepl--prompt package))
     (move-overlay sly-mrepl--last-prompt-overlay beg (sly-mrepl--mark)))
   (sly-mrepl--ensure-prompt-face)
   (buffer-disable-undo)

diff --git a/sly.el b/sly.el
@@ -719,7 +719,7 @@ that returns one such construct.")
          (match-string 1 name))
         ((string-match "^\"\\(.*\\)\"$" name)
          (match-string 1 name))
-        (t name)))
+        (t (downcase name))))
 
 (add-to-list 'mode-line-misc-info
              `(sly-mode (" [" sly--mode-line-format "] ")))