Mercurial > hg > xemacs-beta
diff lisp/custom/custom.el @ 34:d620409f5eb8 r19-15b100
Import from CVS: tag r19-15b100
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:53:20 +0200 |
| parents | e04119814345 |
| children | c53a95d3c46d |
line wrap: on
line diff
--- a/lisp/custom/custom.el Mon Aug 13 08:52:58 2007 +0200 +++ b/lisp/custom/custom.el Mon Aug 13 08:53:20 2007 +0200 @@ -4,7 +4,7 @@ ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: help, faces -;; Version: 1.63 +;; Version: 1.64 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ ;;; Commentary: @@ -297,15 +297,17 @@ ;;; Menu support -(defconst custom-help-menu `("Customize" - ,(if (string-match "XEmacs" emacs-version) - '("Emacs" :filter custom-menu-update) - ["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]) +(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 () @@ -319,7 +321,8 @@ (easy-menu-create-keymaps (car custom-help-menu) (cdr custom-help-menu)))))) -(unless (string-match "XEmacs" emacs-version) +(if (string-match "XEmacs" emacs-version) + (autoload 'custom-menu-create "cus-edit") (custom-menu-reset)) ;;; The End.