diff options
Diffstat (limited to 'lisp/emacs-lisp/eieio.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index db96e6eb2dc..790e8bc9e0e 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -235,7 +235,8 @@ This method is obsolete." (let ((f (intern (format "%s-child-p" name)))) `((defalias ',f ',testsym2) (make-obsolete - ',f ,(format "use (cl-typep ... '%s) instead" name) "25.1")))) + ',f ,(format "use (cl-typep ... \\='%s) instead" name) + "25.1")))) ;; When using typep, (typep OBJ 'myclass) returns t for objects which ;; are subclasses of myclass. For our predicates, however, it is @@ -348,10 +349,10 @@ variable name of the same name as the slot." (pcase-defmacro eieio (&rest fields) "Pcase patterns to match EIEIO objects. -Elements of FIELDS can be of the form (NAME UPAT) in which case the contents of -field NAME is matched against UPAT, or they can be of the form NAME which +Elements of FIELDS can be of the form (NAME PAT) in which case the contents of +field NAME is matched against PAT, or they can be of the form NAME which is a shorthand for (NAME NAME)." - (declare (debug (&rest [&or (sexp pcase-UPAT) sexp]))) + (declare (debug (&rest [&or (sexp pcase-PAT) sexp]))) (let ((is (make-symbol "table"))) ;; FIXME: This generates a horrendous mess of redundant let bindings. ;; `pcase' needs to be improved somehow to introduce let-bindings more @@ -683,12 +684,12 @@ This class is not stored in the `parent' slot of a class vector." "Make a new instance of CLASS based on INITARGS. For example: - (make-instance 'foo) + (make-instance \\='foo) INITARGS is a property list with keywords based on the `:initarg' for each slot. For example: - (make-instance 'foo :slot1 value1 :slotN valueN)") + (make-instance \\='foo :slot1 value1 :slotN valueN)") (define-obsolete-function-alias 'constructor #'make-instance "25.1") @@ -983,7 +984,7 @@ Optional argument GROUP is the sub-group of slots to display. ;;;*** -;;;### (autoloads nil "eieio-opt" "eieio-opt.el" "694d44fcd869546592d35f3321f62667") +;;;### (autoloads nil "eieio-opt" "eieio-opt.el" "d00419c898056fadf2f8e491f864aa1e") ;;; Generated autoloads from eieio-opt.el (autoload 'eieio-browse "eieio-opt" "\ |