Mercurial > hg > xemacs-beta

diff lisp/custom/custom.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 8ff55ebd4be9
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/custom/custom.el	Mon Aug 13 09:17:27 2007 +0200
+++ b/lisp/custom/custom.el	Mon Aug 13 09:18:39 2007 +0200
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: help, faces
-;; Version: 1.50
+;; Version: 1.59
 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
 
 ;;; Commentary:
@@ -311,12 +311,15 @@
   (remove-hook 'custom-define-hook 'custom-menu-reset)
   (if (string-match "XEmacs" emacs-version)
       (when (fboundp 'add-submenu)
-	(add-submenu '("Help") custom-help-menu))
+	(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))))))
 
+(unless (string-match "XEmacs" emacs-version)
+  (custom-menu-reset))
+
 ;;; The End.
 
 (provide 'custom)