mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-01 11:14:55 +00:00
eieio generate autoloads to non-versioned file.
* lisp/Makefile.in: eieio-loaddefs add to autogenel. * lisp/emacs-lisp/eieio.el,lisp/emacs-lisp/eieio-core.el: Remove autoloads. * lisp/emacs-lisp/eieio-compat.el,lisp/emacs-lisp/eieio-custom.el, lisp/emacs-lisp/eieio-opt.el: Update file local. * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: New test.
This commit is contained in:
Phillip Lord
parent
459cf7cb92
commit
ee85661174
@ -92,7 +92,8 @@ AUTOGENEL = loaddefs.el \
|
||||
textmodes/reftex-loaddefs.el \
|
||||
mail/rmail-loaddefs.el \
|
||||
ibuffer-loaddefs.el \
|
||||
htmlfontify-loaddefs
|
||||
htmlfontify-loaddefs \
|
||||
emacs-lisp/eieio-loaddefs.el
|
||||
|
||||
# Set load-prefer-newer for the benefit of the non-bootstrappers.
|
||||
BYTE_COMPILE_FLAGS = \
|
||||
|
||||
@ -264,7 +264,7 @@ Summary:
|
||||
|
||||
|
||||
;; Local Variables:
|
||||
;; generated-autoload-file: "eieio-core.el"
|
||||
;; generated-autoload-file: "eieio-loaddefs.el"
|
||||
;; End:
|
||||
|
||||
(provide 'eieio-compat)
|
||||
|
||||
@ -33,6 +33,7 @@
|
||||
|
||||
(require 'cl-lib)
|
||||
(require 'pcase)
|
||||
(require 'eieio-loaddefs)
|
||||
|
||||
;;;
|
||||
;; A few functions that are better in the official EIEIO src, but
|
||||
@ -1094,98 +1095,6 @@ method invocation orders of the involved classes."
|
||||
(cl-defmethod cl-generic-generalizers ((_specializer (head subclass)))
|
||||
(list eieio--generic-subclass-generalizer))
|
||||
|
||||
|
||||
;;;### (autoloads nil "eieio-compat" "eieio-compat.el" "11dd361fd4c1c625de90a39977936236")
|
||||
;;; Generated autoloads from eieio-compat.el
|
||||
|
||||
(autoload 'eieio--defalias "eieio-compat" "\
|
||||
Like `defalias', but with less side-effects.
|
||||
More specifically, it has no side-effects at all when the new function
|
||||
definition is the same (`eq') as the old one.
|
||||
|
||||
\(fn NAME BODY)" nil nil)
|
||||
|
||||
(autoload 'defgeneric "eieio-compat" "\
|
||||
Create a generic function METHOD.
|
||||
DOC-STRING is the base documentation for this class. A generic
|
||||
function has no body, as its purpose is to decide which method body
|
||||
is appropriate to use. Uses `defmethod' to create methods, and calls
|
||||
`defgeneric' for you. With this implementation the ARGS are
|
||||
currently ignored. You can use `defgeneric' to apply specialized
|
||||
top level documentation to a method.
|
||||
|
||||
\(fn METHOD ARGS &optional DOC-STRING)" nil t)
|
||||
|
||||
(function-put 'defgeneric 'doc-string-elt '3)
|
||||
|
||||
(make-obsolete 'defgeneric 'cl-defgeneric '"25.1")
|
||||
|
||||
(autoload 'defmethod "eieio-compat" "\
|
||||
Create a new METHOD through `defgeneric' with ARGS.
|
||||
|
||||
The optional second argument KEY is a specifier that
|
||||
modifies how the method is called, including:
|
||||
:before - Method will be called before the :primary
|
||||
:primary - The default if not specified
|
||||
:after - Method will be called after the :primary
|
||||
:static - First arg could be an object or class
|
||||
The next argument is the ARGLIST. The ARGLIST specifies the arguments
|
||||
to the method as with `defun'. The first argument can have a type
|
||||
specifier, such as:
|
||||
((VARNAME CLASS) ARG2 ...)
|
||||
where VARNAME is the name of the local variable for the method being
|
||||
created. The CLASS is a class symbol for a class made with `defclass'.
|
||||
A DOCSTRING comes after the ARGLIST, and is optional.
|
||||
All the rest of the args are the BODY of the method. A method will
|
||||
return the value of the last form in the BODY.
|
||||
|
||||
Summary:
|
||||
|
||||
(defmethod mymethod [:before | :primary | :after | :static]
|
||||
((typearg class-name) arg2 &optional opt &rest rest)
|
||||
\"doc-string\"
|
||||
body)
|
||||
|
||||
\(fn METHOD &rest ARGS)" nil t)
|
||||
|
||||
(function-put 'defmethod 'doc-string-elt '3)
|
||||
|
||||
(make-obsolete 'defmethod 'cl-defmethod '"25.1")
|
||||
|
||||
(autoload 'eieio--defgeneric-init-form "eieio-compat" "\
|
||||
|
||||
|
||||
\(fn METHOD DOC-STRING)" nil nil)
|
||||
|
||||
(autoload 'eieio--defmethod "eieio-compat" "\
|
||||
|
||||
|
||||
\(fn METHOD KIND ARGCLASS CODE)" nil nil)
|
||||
|
||||
(autoload 'eieio-defmethod "eieio-compat" "\
|
||||
Obsolete work part of an old version of the `defmethod' macro.
|
||||
|
||||
\(fn METHOD ARGS)" nil nil)
|
||||
|
||||
(make-obsolete 'eieio-defmethod 'cl-defmethod '"24.1")
|
||||
|
||||
(autoload 'eieio-defgeneric "eieio-compat" "\
|
||||
Obsolete work part of an old version of the `defgeneric' macro.
|
||||
|
||||
\(fn METHOD DOC-STRING)" nil nil)
|
||||
|
||||
(make-obsolete 'eieio-defgeneric 'cl-defgeneric '"24.1")
|
||||
|
||||
(autoload 'eieio-defclass "eieio-compat" "\
|
||||
|
||||
|
||||
\(fn CNAME SUPERCLASSES SLOTS OPTIONS)" nil nil)
|
||||
|
||||
(make-obsolete 'eieio-defclass 'eieio-defclass-internal '"25.1")
|
||||
|
||||
;;;***
|
||||
|
||||
|
||||
(provide 'eieio-core)
|
||||
|
||||
;;; eieio-core.el ends here
|
||||
|
||||
@ -473,7 +473,7 @@ Return the symbol for the group, or nil"
|
||||
(provide 'eieio-custom)
|
||||
|
||||
;; Local variables:
|
||||
;; generated-autoload-file: "eieio.el"
|
||||
;; generated-autoload-file: "eieio-loaddefs.el"
|
||||
;; End:
|
||||
|
||||
;;; eieio-custom.el ends here
|
||||
|
||||
@ -349,7 +349,7 @@ INDENT is the current indentation level."
|
||||
(provide 'eieio-opt)
|
||||
|
||||
;; Local variables:
|
||||
;; generated-autoload-file: "eieio.el"
|
||||
;; generated-autoload-file: "eieio-loaddefs.el"
|
||||
;; End:
|
||||
|
||||
;;; eieio-opt.el ends here
|
||||
|
||||
@ -966,41 +966,6 @@ variable PRINT-FUNCTION. Optional argument NOESCAPE is passed to
|
||||
(advice-add 'edebug-prin1-to-string
|
||||
:around #'eieio-edebug-prin1-to-string)
|
||||
|
||||
|
||||
;;; Start of automatically extracted autoloads.
|
||||
|
||||
;;;### (autoloads nil "eieio-custom" "eieio-custom.el" "916f54b818479a77a02f3ecccda84a11")
|
||||
;;; Generated autoloads from eieio-custom.el
|
||||
|
||||
(autoload 'customize-object "eieio-custom" "\
|
||||
Customize OBJ in a custom buffer.
|
||||
Optional argument GROUP is the sub-group of slots to display.
|
||||
|
||||
\(fn OBJ &optional GROUP)" nil nil)
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "eieio-opt" "eieio-opt.el" "d00419c898056fadf2f8e491f864aa1e")
|
||||
;;; Generated autoloads from eieio-opt.el
|
||||
|
||||
(autoload 'eieio-browse "eieio-opt" "\
|
||||
Create an object browser window to show all objects.
|
||||
If optional ROOT-CLASS, then start with that, otherwise start with
|
||||
variable `eieio-default-superclass'.
|
||||
|
||||
\(fn &optional ROOT-CLASS)" t nil)
|
||||
|
||||
(define-obsolete-function-alias 'eieio-help-class 'cl--describe-class "25.1")
|
||||
|
||||
(autoload 'eieio-help-constructor "eieio-opt" "\
|
||||
Describe CTR if it is a class constructor.
|
||||
|
||||
\(fn CTR)" nil nil)
|
||||
|
||||
;;;***
|
||||
|
||||
;;; End of automatically extracted autoloads.
|
||||
|
||||
(provide 'eieio)
|
||||
|
||||
;;; eieio ends here
|
||||
|
||||
@ -895,6 +895,12 @@ Subclasses to override slot attributes.")
|
||||
(ert-deftest eieio-test-37-obsolete-name-in-constructor ()
|
||||
(should (equal (eieio--testing "toto") '("toto" 2))))
|
||||
|
||||
(ert-deftest eieio-autoload ()
|
||||
"Tests to see whether reftex-auc has been autoloaded"
|
||||
(should
|
||||
(fboundp 'eieio--defalias)))
|
||||
|
||||
|
||||
(provide 'eieio-tests)
|
||||
|
||||
;;; eieio-tests.el ends here
|
||||
|
||||
Loading…
Reference in New Issue
Block a user