procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete the explicit autoload calls.

Browse source 
(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.
This commit is contained in:
Richard M. Stallman 1997-04-10 22:39:54 +00:00
parent e688a0806b
commit 8835e400fc
1 changed files with 0 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
lisp/custom.el
View file

@ -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)