diff options
| author | Tom Levy | 2021-11-09 12:25:24 +0000 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-11-10 01:16:16 +0100 |
| commit | a28647a6b6800212e632ea6b86763dbff4a40d00 (patch) | |
| tree | 1a37299157da3a23cfeea4c58ed2523563dbd3a1 /lisp | |
| parent | 315d550bf7ff9444bec98e8b44c4fd2bf12b492c (diff) | |
| download | emacs-a28647a6b6800212e632ea6b86763dbff4a40d00.tar.gz emacs-a28647a6b6800212e632ea6b86763dbff4a40d00.zip | |
Remove spurious %S from 'define-error' messages
; The MESSAGE arg of 'define-error' does not support format specifiers
; (unlike the 'error' function). The signal data is automatically
; appended to the error message.
* lisp/emacs/lisp/cl-generic.el (cl--generic-cyclic-definition):
Remove spurious %S from error message.
* lisp/emacs-lisp/gv.el (gv-invalid-place): Remove spurious %S from
error message (and rephrase) (bug#51718).
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/gv.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 3f75cf9922c..9de47e4987d 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el | |||
| @@ -687,7 +687,7 @@ This is particularly useful when many different tags select the same set | |||
| 687 | of methods, since this table then allows us to share a single combined-method | 687 | of methods, since this table then allows us to share a single combined-method |
| 688 | for all those different tags in the method-cache.") | 688 | for all those different tags in the method-cache.") |
| 689 | 689 | ||
| 690 | (define-error 'cl--generic-cyclic-definition "Cyclic definition: %S") | 690 | (define-error 'cl--generic-cyclic-definition "Cyclic definition") |
| 691 | 691 | ||
| 692 | (defun cl--generic-build-combined-method (generic methods) | 692 | (defun cl--generic-build-combined-method (generic methods) |
| 693 | (if (null methods) | 693 | (if (null methods) |
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el index d6272a52469..ebcc63cc2a5 100644 --- a/lisp/emacs-lisp/gv.el +++ b/lisp/emacs-lisp/gv.el | |||
| @@ -74,7 +74,7 @@ | |||
| 74 | ;; (defvar gv--macro-environment nil | 74 | ;; (defvar gv--macro-environment nil |
| 75 | ;; "Macro expanders for generalized variables.") | 75 | ;; "Macro expanders for generalized variables.") |
| 76 | 76 | ||
| 77 | (define-error 'gv-invalid-place "%S is not a valid place expression") | 77 | (define-error 'gv-invalid-place "Invalid place expression") |
| 78 | 78 | ||
| 79 | ;;;###autoload | 79 | ;;;###autoload |
| 80 | (defun gv-get (place do) | 80 | (defun gv-get (place do) |