aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2011-02-18 00:00:08 -0800
committerGlenn Morris2011-02-18 00:00:08 -0800
commit002b46b7b4ce36db8f38eb86dcd3039e621603d5 (patch)
treed161290aca85cb68ead1a1551eded111be2467c3
parentf31f846933e75007e9750ac6f6cd209a26c3daf1 (diff)
downloademacs-002b46b7b4ce36db8f38eb86dcd3039e621603d5.tar.gz
emacs-002b46b7b4ce36db8f38eb86dcd3039e621603d5.zip
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.
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/Makefile.in3
-rw-r--r--lisp/emacs-lisp/eieio-custom.el5
-rw-r--r--lisp/emacs-lisp/eieio-opt.el11
-rw-r--r--lisp/emacs-lisp/eieio.el68
5 files changed, 86 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de3b102c3a7..6db7e1eb13f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,14 @@
12011-02-18 Glenn Morris <rgm@gnu.org> 12011-02-18 Glenn Morris <rgm@gnu.org>
2 2
3 * emacs-lisp/eieio-custom.el: Set generated-autoload-file.
4 (customize-object): Add autoload cookie.
5 * emacs-lisp/eieio-opt.el: Set generated-autoload-file.
6 (eieio-browse, describe-class, eieio-describe-class)
7 (eieio-describe-constructor, describe-generic, eieio-describe-generic)
8 (eieio-help-mode-augmentation-maybee): Add autoload cookies.
9 * emacs-lisp/eieio.el: Regenerate with automatic autoloads.
10 * Makefile.in (autoloads): Make eieio.el writable.
11
3 * dired-x.el (dired-clean-up-after-deletion, dired-do-relsymlink) 12 * dired-x.el (dired-clean-up-after-deletion, dired-do-relsymlink)
4 (dired-do-relsymlink-regexp, dired-find-buffer-nocreate): Use #'. 13 (dired-do-relsymlink-regexp, dired-find-buffer-nocreate): Use #'.
5 (dired-hack-local-variables): Use inhibit-read-only. 14 (dired-hack-local-variables): Use inhibit-read-only.
diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index d99622944a3..06c82181ea1 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -147,7 +147,8 @@ finder-data: doit
147autoloads: $(LOADDEFS) doit 147autoloads: $(LOADDEFS) doit
148 chmod +w $(lisp)/ps-print.el $(lisp)/emulation/tpu-edt.el \ 148 chmod +w $(lisp)/ps-print.el $(lisp)/emulation/tpu-edt.el \
149 $(lisp)/emacs-lisp/cl-loaddefs.el $(lisp)/mail/rmail.el \ 149 $(lisp)/emacs-lisp/cl-loaddefs.el $(lisp)/mail/rmail.el \
150 $(lisp)/dired.el $(lisp)/ibuffer.el $(lisp)/htmlfontify.el 150 $(lisp)/dired.el $(lisp)/ibuffer.el $(lisp)/htmlfontify.el \
151 $(lisp)/emacs-lisp/eieio.el
151 cd $(lisp); $(setwins_almost); \ 152 cd $(lisp); $(setwins_almost); \
152 echo Directories: $$wins; \ 153 echo Directories: $$wins; \
153 $(emacs) -l autoload --eval '(setq generated-autoload-file "$(lisp)/loaddefs.el")' -f batch-update-autoloads $$wins 154 $(emacs) -l autoload --eval '(setq generated-autoload-file "$(lisp)/loaddefs.el")' -f batch-update-autoloads $$wins
diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el
index 6fe63fcb754..e8d7bea50fa 100644
--- a/lisp/emacs-lisp/eieio-custom.el
+++ b/lisp/emacs-lisp/eieio-custom.el
@@ -326,6 +326,7 @@ User made commands should also call this method when applying changes.
326Argument OBJ is the object that has been customized." 326Argument OBJ is the object that has been customized."
327 nil) 327 nil)
328 328
329;;;###autoload
329(defun customize-object (obj &optional group) 330(defun customize-object (obj &optional group)
330 "Customize OBJ in a custom buffer. 331 "Customize OBJ in a custom buffer.
331Optional argument GROUP is the sub-group of slots to display." 332Optional argument GROUP is the sub-group of slots to display."
@@ -460,4 +461,8 @@ Return the symbol for the group, or nil"
460 461
461(provide 'eieio-custom) 462(provide 'eieio-custom)
462 463
464;; Local variables:
465;; generated-autoload-file: "eieio.el"
466;; End:
467
463;;; eieio-custom.el ends here 468;;; eieio-custom.el ends here
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el
index ddc6616ba28..1b101cef875 100644
--- a/lisp/emacs-lisp/eieio-opt.el
+++ b/lisp/emacs-lisp/eieio-opt.el
@@ -32,6 +32,7 @@
32(require 'eieio) 32(require 'eieio)
33 33
34;;; Code: 34;;; Code:
35;;;###autoload
35(defun eieio-browse (&optional root-class) 36(defun eieio-browse (&optional root-class)
36 "Create an object browser window to show all objects. 37 "Create an object browser window to show all objects.
37If optional ROOT-CLASS, then start with that, otherwise start with 38If optional ROOT-CLASS, then start with that, otherwise start with
@@ -71,8 +72,10 @@ Argument CH-PREFIX is another character prefix to display."
71 72
72;;; CLASS COMPLETION / DOCUMENTATION 73;;; CLASS COMPLETION / DOCUMENTATION
73 74
75;;;###autoload
74(defalias 'describe-class 'eieio-describe-class) 76(defalias 'describe-class 'eieio-describe-class)
75 77
78;;;###autoload
76(defun eieio-describe-class (class &optional headerfcn) 79(defun eieio-describe-class (class &optional headerfcn)
77 "Describe a CLASS defined by a string or symbol. 80 "Describe a CLASS defined by a string or symbol.
78If CLASS is actually an object, then also display current values of that object. 81If CLASS is actually an object, then also display current values of that object.
@@ -238,6 +241,7 @@ Outputs to the standard output."
238 prot (cdr prot) 241 prot (cdr prot)
239 i (1+ i))))) 242 i (1+ i)))))
240 243
244;;;###autoload
241(defun eieio-describe-constructor (fcn) 245(defun eieio-describe-constructor (fcn)
242 "Describe the constructor function FCN. 246 "Describe the constructor function FCN.
243Uses `eieio-describe-class' to describe the class being constructed." 247Uses `eieio-describe-class' to describe the class being constructed."
@@ -301,9 +305,11 @@ are not abstract."
301;;; METHOD COMPLETION / DOC 305;;; METHOD COMPLETION / DOC
302 306
303(defalias 'describe-method 'eieio-describe-generic) 307(defalias 'describe-method 'eieio-describe-generic)
308;;;###autoload
304(defalias 'describe-generic 'eieio-describe-generic) 309(defalias 'describe-generic 'eieio-describe-generic)
305(defalias 'eieio-describe-method 'eieio-describe-generic) 310(defalias 'eieio-describe-method 'eieio-describe-generic)
306 311
312;;;###autoload
307(defun eieio-describe-generic (generic) 313(defun eieio-describe-generic (generic)
308 "Describe the generic function GENERIC. 314 "Describe the generic function GENERIC.
309Also extracts information about all methods specific to this generic." 315Also extracts information about all methods specific to this generic."
@@ -550,6 +556,7 @@ Optional argument HISTORYVAR is the variable to use as history."
550 556
551;;; HELP AUGMENTATION 557;;; HELP AUGMENTATION
552;; 558;;
559;;;###autoload
553(defun eieio-help-mode-augmentation-maybee (&rest unused) 560(defun eieio-help-mode-augmentation-maybee (&rest unused)
554 "For buffers thrown into help mode, augment for EIEIO. 561 "For buffers thrown into help mode, augment for EIEIO.
555Arguments UNUSED are not used." 562Arguments UNUSED are not used."
@@ -693,4 +700,8 @@ INDENT is the current indentation level."
693 700
694(provide 'eieio-opt) 701(provide 'eieio-opt)
695 702
703;; Local variables:
704;; generated-autoload-file: "eieio.el"
705;; End:
706
696;;; eieio-opt.el ends here 707;;; eieio-opt.el ends here
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index d958bfbd45c..2fe33dfce2e 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -2943,15 +2943,65 @@ Optional argument NOESCAPE is passed to `prin1-to-string' when appropriate."
2943;;; Autoloading some external symbols, and hooking into the help system 2943;;; Autoloading some external symbols, and hooking into the help system
2944;; 2944;;
2945 2945
2946(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for EIEIO.") 2946
2947(autoload 'eieio-browse "eieio-opt" "Create an object browser window." t) 2947;;; Start of automatically extracted autoloads.
2948(autoload 'eieio-describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t) 2948
2949(autoload 'eieio-describe-constructor "eieio-opt" "Describe the constructor function FCN." t) 2949;;;### (autoloads (customize-object) "eieio-custom" "eieio-custom.el"
2950(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol." t) 2950;;;;;; "cf1bd64c76a6e6406545e8c5a5530d43")
2951(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t) 2951;;; Generated autoloads from eieio-custom.el
2952(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t) 2952
2953 2953(autoload 'customize-object "eieio-custom" "\
2954(autoload 'customize-object "eieio-custom" "Create a custom buffer editing OBJ.") 2954Customize OBJ in a custom buffer.
2955Optional argument GROUP is the sub-group of slots to display.
2956
2957\(fn OBJ &optional GROUP)" nil nil)
2958
2959;;;***
2960
2961;;;### (autoloads (eieio-help-mode-augmentation-maybee eieio-describe-generic
2962;;;;;; eieio-describe-constructor eieio-describe-class eieio-browse)
2963;;;;;; "eieio-opt" "eieio-opt.el" "1bed0a56310f402683419139ebc18d7f")
2964;;; Generated autoloads from eieio-opt.el
2965
2966(autoload 'eieio-browse "eieio-opt" "\
2967Create an object browser window to show all objects.
2968If optional ROOT-CLASS, then start with that, otherwise start with
2969variable `eieio-default-superclass'.
2970
2971\(fn &optional ROOT-CLASS)" t nil)
2972
2973(defalias 'describe-class 'eieio-describe-class)
2974
2975(autoload 'eieio-describe-class "eieio-opt" "\
2976Describe a CLASS defined by a string or symbol.
2977If CLASS is actually an object, then also display current values of that object.
2978Optional HEADERFCN should be called to insert a few bits of info first.
2979
2980\(fn CLASS &optional HEADERFCN)" t nil)
2981
2982(autoload 'eieio-describe-constructor "eieio-opt" "\
2983Describe the constructor function FCN.
2984Uses `eieio-describe-class' to describe the class being constructed.
2985
2986\(fn FCN)" t nil)
2987
2988(defalias 'describe-generic 'eieio-describe-generic)
2989
2990(autoload 'eieio-describe-generic "eieio-opt" "\
2991Describe the generic function GENERIC.
2992Also extracts information about all methods specific to this generic.
2993
2994\(fn GENERIC)" t nil)
2995
2996(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "\
2997For buffers thrown into help mode, augment for EIEIO.
2998Arguments UNUSED are not used.
2999
3000\(fn &rest UNUSED)" nil nil)
3001
3002;;;***
3003
3004;;; End of automatically extracted autoloads.
2955 3005
2956(provide 'eieio) 3006(provide 'eieio)
2957 3007