Mercurial > emacs
changeset 17374:7cba1521d0ca
Delete the explicit autoload calls.
(custom-help-menu): Don't use easymenu; make the keymap explicitly.
(custom-menu-reset): Function deleted. Don't call it, either.
(custom-help-menu): Variable deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Apr 1997 22:39:54 +0000 |
| parents | 4f931fa4c0be |
| children | b3227e0446cf |
| files | lisp/custom.el |
| diffstat | 1 files changed, 0 insertions(+), 46 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Thu Apr 10 22:37:54 1997 +0000 +++ b/lisp/custom.el Thu Apr 10 22:39:54 1997 +0000 @@ -23,22 +23,6 @@ (define-widget-keywords :prefix :tag :load :link :options :type :group) -;; These autoloads should be deleted when the file is added to Emacs - -(unless (fboundp 'load-gc) - ;; From cus-edit.el - (autoload 'customize "cus-edit" nil t) - (autoload 'customize-variable "cus-edit" nil t) - (autoload 'customize-face "cus-edit" nil t) - (autoload 'customize-apropos "cus-edit" nil t) - (autoload 'customize-customized "cus-edit" nil t) - (autoload 'custom-buffer-create "cus-edit") - (autoload 'custom-menu-update "cus-edit") - (autoload 'custom-make-dependencies "cus-edit") - ;; From cus-face.el - (autoload 'custom-declare-face "cus-face") - (autoload 'custom-set-faces "cus-face")) - ;;; The `defcustom' Macro. (defun custom-declare-variable (symbol value doc &rest args) @@ -295,36 +279,6 @@ :group 'customize :type 'hook) -;;; Menu support - -(defconst custom-help-menu - `("Customize" - ,(if (string-match "XEmacs" emacs-version) - '("Emacs" :filter (lambda (&rest junk) - (cdr (custom-menu-create 'emacs)))) - ["Update menu..." custom-menu-update t]) - ["Group..." customize t] - ["Variable..." customize-variable t] - ["Face..." customize-face t] - ["Saved..." customize-customized t] - ["Apropos..." customize-apropos t]) - "Customize menu") - -(defun custom-menu-reset () - "Reset customize menu." - (remove-hook 'custom-define-hook 'custom-menu-reset) - (if (string-match "XEmacs" emacs-version) - (when (fboundp 'add-submenu) - (add-submenu '("Options") custom-help-menu)) - (define-key global-map [menu-bar help-menu customize-menu] - (cons (car custom-help-menu) - (easy-menu-create-keymaps (car custom-help-menu) - (cdr custom-help-menu)))))) - -(if (string-match "XEmacs" emacs-version) - (autoload 'custom-menu-create "cus-edit") - (custom-menu-reset)) - ;;; The End. (provide 'custom)