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 0f6711209a5a552110eef6bd9825e324645852e0..22ea12f09603e0f66d23456c932b590ce1bce46e 100644 (file)
--- 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)