diff options
Diffstat (limited to 'lisp/emacs-lisp/eieio-core.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-core.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el index 7fcf85c1ced..2ecf4129008 100644 --- a/lisp/emacs-lisp/eieio-core.el +++ b/lisp/emacs-lisp/eieio-core.el @@ -544,7 +544,7 @@ If SKIPNIL is non-nil, then if default value is nil return t instead." (if (not (eq type t)) (if (not (equal type tp)) (error - "Child slot type `%s' does not match inherited type `%s' for `%s'" + "Child slot type ‘%s’ does not match inherited type ‘%s’ for ‘%s’" type tp a)) (setf (cl--slot-descriptor-type new) tp)) ;; If we have a repeat, only update the initarg... @@ -564,7 +564,7 @@ If SKIPNIL is non-nil, then if default value is nil return t instead." (let ((super-prot (alist-get :protection oprops)) (prot (alist-get :protection nprops))) (if (not (eq prot super-prot)) - (error "Child slot protection `%s' does not match inherited protection `%s' for `%s'" + (error "Child slot protection ‘%s’ does not match inherited protection ‘%s’ for ‘%s’" prot super-prot a))) ;; End original PLN @@ -733,7 +733,7 @@ Argument FN is the function calling this verifier." ((and (or `',name (and name (pred keywordp))) (guard (not (memq name eieio--known-slot-names)))) (macroexp--warn-and-return - (format "Unknown slot `%S'" name) exp 'compile-only)) + (format "Unknown slot ‘%S’" name) exp 'compile-only)) (_ exp))))) (cl-check-type slot symbol) (cl-check-type obj (or eieio-object class)) @@ -847,7 +847,7 @@ Fills in the default value in CLASS' in SLOT with VALUE." ;; gnus/registry.el, so it might be used elsewhere as well, so let's ;; keep it for now. ;; FIXME: Generate a compile-time warning for it! - ;; (error "Can't `oset-default' an instance-allocated slot: %S of %S" + ;; (error "Can't ‘oset-default’ an instance-allocated slot: %S of %S" ;; slot class) (eieio--validate-slot-value class c value slot) ;; Set this into the storage for defaults. |