diff options
| author | Glenn Morris | 2011-02-18 00:00:08 -0800 |
|---|---|---|
| committer | Glenn Morris | 2011-02-18 00:00:08 -0800 |
| commit | 002b46b7b4ce36db8f38eb86dcd3039e621603d5 (patch) | |
| tree | d161290aca85cb68ead1a1551eded111be2467c3 | |
| parent | f31f846933e75007e9750ac6f6cd209a26c3daf1 (diff) | |
| download | emacs-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/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/Makefile.in | 3 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio-custom.el | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio-opt.el | 11 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 68 |
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 @@ | |||
| 1 | 2011-02-18 Glenn Morris <rgm@gnu.org> | 1 | 2011-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 | |||
| 147 | autoloads: $(LOADDEFS) doit | 147 | autoloads: $(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. | |||
| 326 | Argument OBJ is the object that has been customized." | 326 | Argument 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. |
| 331 | Optional argument GROUP is the sub-group of slots to display." | 332 | Optional 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. |
| 37 | If optional ROOT-CLASS, then start with that, otherwise start with | 38 | If 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. |
| 78 | If CLASS is actually an object, then also display current values of that object. | 81 | If 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. |
| 243 | Uses `eieio-describe-class' to describe the class being constructed." | 247 | Uses `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. |
| 309 | Also extracts information about all methods specific to this generic." | 315 | Also 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. |
| 555 | Arguments UNUSED are not used." | 562 | Arguments 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.") | 2954 | Customize OBJ in a custom buffer. |
| 2955 | Optional 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" "\ | ||
| 2967 | Create an object browser window to show all objects. | ||
| 2968 | If optional ROOT-CLASS, then start with that, otherwise start with | ||
| 2969 | variable `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" "\ | ||
| 2976 | Describe a CLASS defined by a string or symbol. | ||
| 2977 | If CLASS is actually an object, then also display current values of that object. | ||
| 2978 | Optional 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" "\ | ||
| 2983 | Describe the constructor function FCN. | ||
| 2984 | Uses `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" "\ | ||
| 2991 | Describe the generic function GENERIC. | ||
| 2992 | Also 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" "\ | ||
| 2997 | For buffers thrown into help mode, augment for EIEIO. | ||
| 2998 | Arguments 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 | ||