aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorTom Levy2021-11-09 12:25:24 +0000
committerLars Ingebrigtsen2021-11-10 01:16:16 +0100
commita28647a6b6800212e632ea6b86763dbff4a40d00 (patch)
tree1a37299157da3a23cfeea4c58ed2523563dbd3a1 /lisp
parent315d550bf7ff9444bec98e8b44c4fd2bf12b492c (diff)
downloademacs-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.el2
-rw-r--r--lisp/emacs-lisp/gv.el2
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
687of methods, since this table then allows us to share a single combined-method 687of methods, since this table then allows us to share a single combined-method
688for all those different tags in the method-cache.") 688for 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)