diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-01-03 15:58:14 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-01-03 18:39:06 +0100 |
| commit | 0e1b03bbb87d0b09ba841c0318fce77533914208 (patch) | |
| tree | acfc2e0c3fe10b4f62e4f897a852769fcac321cd /lisp/emacs-lisp/pcase.el | |
| parent | cfc0e1cc02976d82285166fa35d69c6af5a430d8 (diff) | |
| download | emacs-0e1b03bbb87d0b09ba841c0318fce77533914208.tar.gz emacs-0e1b03bbb87d0b09ba841c0318fce77533914208.tar.bz2 emacs-0e1b03bbb87d0b09ba841c0318fce77533914208.zip | |
Styled quotes in compiler warnings
* lisp/emacs-lisp/byte-run.el (byte-run--parse-body)
(byte-run--unescaped-character-literals-warning):
* lisp/emacs-lisp/bytecomp.el (byte-compile-initial-macro-environment)
(byte-compile-form, bytecomp--warn-dodgy-eq-arg):
* lisp/emacs-lisp/cconv.el (cconv--warn-unused-msg):
* lisp/emacs-lisp/cl-macs.el (cl-defstruct):
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
* lisp/emacs-lisp/eieio.el (defclass):
* lisp/emacs-lisp/macroexp.el (macroexp--unfold-lambda)
(macroexp--expand-all):
* lisp/emacs-lisp/pcase.el (pcase--u1):
* lisp/subr.el (when, unless, ignore-error, lsh, sit-for)
(with-demoted-errors):
Use format-message to ensure properly styled quotes in compiler
warning messages.
Diffstat (limited to 'lisp/emacs-lisp/pcase.el')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 810b13f61d6..1c5ce5169ab 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -947,7 +947,7 @@ Otherwise, it defers to REST which is a list of branches of the form (let ((code (pcase--u1 matches code vars rest))) (if (eq upat '_) code (macroexp-warn-and-return - "Pattern t is deprecated. Use `_' instead" + (format-message "Pattern t is deprecated. Use `_' instead") code nil nil upat)))) ((eq upat 'pcase--dontcare) :pcase--dontcare) ((memq (car-safe upat) '(guard pred)) |