From: Nicholas Vollmer <iarchivedmywholelife@gmail.com>
Date: Sun, 7 May 2023 04:06:18 +0000 (-0400)
Subject: define-minor-mode: sanitize mode function messages
X-Git-Tag: emacs-29.0.91~34
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e920dd2b6f92e472372ee3499d7f9353f0432cf7;p=emacs.git

define-minor-mode: sanitize mode function messages

* emacs-lisp/easy-mmode.el (define-minor-mode): Ensure mode's
pretty name is not interprted as a message formatting string,
e.g., if the mode name contains a '%'.  (Bug#63343)
---

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 0f6711209a5..22ea12f0960 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -390,7 +390,7 @@ or call the function `%s'."))))
                                  (not (equal ,last-message
                                              (current-message))))
                       (let ((local ,(if globalp "" " in current buffer")))
-			(message ,(format "%s %%sabled%%s" pretty-name)
+			(message "%s %sabled%s" ,pretty-name
 			         (if ,getter "en" "dis") local)))))
 	      ,@(when after-hook `(,after-hook)))
 	    (force-mode-line-update)