diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-10 22:39:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-10 22:39:54 +0000 |
| commit | 0af700aa3cb8a504594deba813630f301032f4b0 (patch) | |
| tree | 5c5e159dc67042d200a88637e62302201e2ffb66 /lisp/custom.el | |
| parent | 44b2b3a5ee1c20b9e4b19fedbbd638c8ecced716 (diff) | |
| download | emacs-0af700aa3cb8a504594deba813630f301032f4b0.tar.gz | |
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.
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index 6d247ebb379..57026fc8f4a 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -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 @@ the default value for the SYMBOL." :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) |