Commit 002b46b7 authored by Glenn Morris's avatar Glenn Morris
Browse files

Use generated-autoload-file for internal eieio autoloads.

* lisp/emacs-lisp/eieio-custom.el: Set generated-autoload-file.
(customize-object): Add autoload cookie.

* lisp/emacs-lisp/eieio-opt.el: Set generated-autoload-file.
(eieio-browse, describe-class, eieio-describe-class)
(eieio-describe-constructor, describe-generic, eieio-describe-generic)
(eieio-help-mode-augmentation-maybee): Add autoload cookies.

* lisp/emacs-lisp/eieio.el: Regenerate with automatic autoloads.

* lisp/Makefile.in (autoloads): Make eieio.el writable.
parent f31f8469
2011-02-18 Glenn Morris <rgm@gnu.org>
 
* emacs-lisp/eieio-custom.el: Set generated-autoload-file.
(customize-object): Add autoload cookie.
* emacs-lisp/eieio-opt.el: Set generated-autoload-file.
(eieio-browse, describe-class, eieio-describe-class)
(eieio-describe-constructor, describe-generic, eieio-describe-generic)
(eieio-help-mode-augmentation-maybee): Add autoload cookies.
* emacs-lisp/eieio.el: Regenerate with automatic autoloads.
* Makefile.in (autoloads): Make eieio.el writable.
* dired-x.el (dired-clean-up-after-deletion, dired-do-relsymlink)
(dired-do-relsymlink-regexp, dired-find-buffer-nocreate): Use #'.
(dired-hack-local-variables): Use inhibit-read-only.
......
......@@ -147,7 +147,8 @@ finder-data: doit
autoloads: $(LOADDEFS) doit
chmod +w $(lisp)/ps-print.el $(lisp)/emulation/tpu-edt.el \
$(lisp)/emacs-lisp/cl-loaddefs.el $(lisp)/mail/rmail.el \
$(lisp)/dired.el $(lisp)/ibuffer.el $(lisp)/htmlfontify.el
$(lisp)/dired.el $(lisp)/ibuffer.el $(lisp)/htmlfontify.el \
$(lisp)/emacs-lisp/eieio.el
cd $(lisp); $(setwins_almost); \
echo Directories: $$wins; \
$(emacs) -l autoload --eval '(setq generated-autoload-file "$(lisp)/loaddefs.el")' -f batch-update-autoloads $$wins
......
......@@ -326,6 +326,7 @@ User made commands should also call this method when applying changes.
Argument OBJ is the object that has been customized."
nil)
;;;###autoload
(defun customize-object (obj &optional group)
"Customize OBJ in a custom buffer.
Optional argument GROUP is the sub-group of slots to display."
......@@ -460,4 +461,8 @@ Return the symbol for the group, or nil"
(provide 'eieio-custom)
;; Local variables:
;; generated-autoload-file: "eieio.el"
;; End:
;;; eieio-custom.el ends here
......@@ -32,6 +32,7 @@
(require 'eieio)
;;; Code:
;;;###autoload
(defun eieio-browse (&optional root-class)
"Create an object browser window to show all objects.
If optional ROOT-CLASS, then start with that, otherwise start with
......@@ -71,8 +72,10 @@ Argument CH-PREFIX is another character prefix to display."
;;; CLASS COMPLETION / DOCUMENTATION
;;;###autoload
(defalias 'describe-class 'eieio-describe-class)
;;;###autoload
(defun eieio-describe-class (class &optional headerfcn)
"Describe a CLASS defined by a string or symbol.
If CLASS is actually an object, then also display current values of that object.
......@@ -238,6 +241,7 @@ Outputs to the standard output."
prot (cdr prot)
i (1+ i)))))
;;;###autoload
(defun eieio-describe-constructor (fcn)
"Describe the constructor function FCN.
Uses `eieio-describe-class' to describe the class being constructed."
......@@ -301,9 +305,11 @@ are not abstract."
;;; METHOD COMPLETION / DOC
(defalias 'describe-method 'eieio-describe-generic)
;;;###autoload
(defalias 'describe-generic 'eieio-describe-generic)
(defalias 'eieio-describe-method 'eieio-describe-generic)
;;;###autoload
(defun eieio-describe-generic (generic)
"Describe the generic function GENERIC.
Also extracts information about all methods specific to this generic."
......@@ -550,6 +556,7 @@ Optional argument HISTORYVAR is the variable to use as history."
;;; HELP AUGMENTATION
;;
;;;###autoload
(defun eieio-help-mode-augmentation-maybee (&rest unused)
"For buffers thrown into help mode, augment for EIEIO.
Arguments UNUSED are not used."
......@@ -693,4 +700,8 @@ INDENT is the current indentation level."
(provide 'eieio-opt)
;; Local variables:
;; generated-autoload-file: "eieio.el"
;; End:
;;; eieio-opt.el ends here
......@@ -2943,15 +2943,65 @@ Optional argument NOESCAPE is passed to `prin1-to-string' when appropriate."
;;; Autoloading some external symbols, and hooking into the help system
;;
(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for EIEIO.")
(autoload 'eieio-browse "eieio-opt" "Create an object browser window." t)
(autoload 'eieio-describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t)
(autoload 'eieio-describe-constructor "eieio-opt" "Describe the constructor function FCN." t)
(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol." t)
(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
(autoload 'customize-object "eieio-custom" "Create a custom buffer editing OBJ.")
;;; Start of automatically extracted autoloads.
;;;### (autoloads (customize-object) "eieio-custom" "eieio-custom.el"
;;;;;; "cf1bd64c76a6e6406545e8c5a5530d43")
;;; 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 (eieio-help-mode-augmentation-maybee eieio-describe-generic
;;;;;; eieio-describe-constructor eieio-describe-class eieio-browse)
;;;;;; "eieio-opt" "eieio-opt.el" "1bed0a56310f402683419139ebc18d7f")
;;; 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)
(defalias 'describe-class 'eieio-describe-class)
(autoload 'eieio-describe-class "eieio-opt" "\
Describe a CLASS defined by a string or symbol.
If CLASS is actually an object, then also display current values of that object.
Optional HEADERFCN should be called to insert a few bits of info first.
\(fn CLASS &optional HEADERFCN)" t nil)
(autoload 'eieio-describe-constructor "eieio-opt" "\
Describe the constructor function FCN.
Uses `eieio-describe-class' to describe the class being constructed.
\(fn FCN)" t nil)
(defalias 'describe-generic 'eieio-describe-generic)
(autoload 'eieio-describe-generic "eieio-opt" "\
Describe the generic function GENERIC.
Also extracts information about all methods specific to this generic.
\(fn GENERIC)" t nil)
(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "\
For buffers thrown into help mode, augment for EIEIO.
Arguments UNUSED are not used.
\(fn &rest UNUSED)" nil nil)
;;;***
;;; End of automatically extracted autoloads.
(provide 'eieio)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment