diff options
| author | Stephen Leake <stephen_leake@stephe-leake.org> | 2015-12-02 06:25:12 -0600 |
|---|---|---|
| committer | Stephen Leake <stephen_leake@stephe-leake.org> | 2015-12-02 06:40:27 -0600 |
| commit | 0af2c269b1d68d114e74aa1313b2ad7d1fe21726 (patch) | |
| tree | c736959f696fab43329aadc297110ed61eee17fe /lisp/emacs-lisp/cl-generic.el | |
| parent | f651cd119908cb96607a892ca49e8b2958cb2937 (diff) | |
| download | emacs-0af2c269b1d68d114e74aa1313b2ad7d1fe21726.tar.gz | |
Fix bug#22069 in cl-generic.el
* lisp/emacs-lisp/cl-generic.el (cl-no-method): Remove %S; this string is
not run thru `format'.
Diffstat (limited to 'lisp/emacs-lisp/cl-generic.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 9e6102c7300..78f580cbfd0 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -797,10 +797,10 @@ methods.") ;;; Define some pre-defined generic functions, used internally. -(define-error 'cl-no-method "No method for %S") -(define-error 'cl-no-next-method "No next method for %S" 'cl-no-method) -(define-error 'cl-no-primary-method "No primary method for %S" 'cl-no-method) -(define-error 'cl-no-applicable-method "No applicable method for %S" +(define-error 'cl-no-method "No method") +(define-error 'cl-no-next-method "No next method" 'cl-no-method) +(define-error 'cl-no-primary-method "No primary method" 'cl-no-method) +(define-error 'cl-no-applicable-method "No applicable method" 'cl-no-method) (cl-defgeneric cl-no-next-method (generic method &rest args) |