Mercurial > hg > xemacs-beta

comparison lisp/custom/custom.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, faces 6 ;; Keywords: help, faces
7 ;; Version: 1.50 7 ;; Version: 1.59
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; If you want to use this code, please visit the URL above. 12 ;; If you want to use this code, please visit the URL above.
309 (defun custom-menu-reset () 309 (defun custom-menu-reset ()
310 "Reset customize menu." 310 "Reset customize menu."
311 (remove-hook 'custom-define-hook 'custom-menu-reset) 311 (remove-hook 'custom-define-hook 'custom-menu-reset)
312 (if (string-match "XEmacs" emacs-version) 312 (if (string-match "XEmacs" emacs-version)
313 (when (fboundp 'add-submenu) 313 (when (fboundp 'add-submenu)
314 (add-submenu '("Help") custom-help-menu)) 314 (add-submenu '("Options") custom-help-menu))
315 (define-key global-map [menu-bar help-menu customize-menu] 315 (define-key global-map [menu-bar help-menu customize-menu]
316 (cons (car custom-help-menu) 316 (cons (car custom-help-menu)
317 (easy-menu-create-keymaps (car custom-help-menu) 317 (easy-menu-create-keymaps (car custom-help-menu)
318 (cdr custom-help-menu)))))) 318 (cdr custom-help-menu))))))
319 319
320 (unless (string-match "XEmacs" emacs-version)
321 (custom-menu-reset))
322
320 ;;; The End. 323 ;;; The End.
321 324
322 (provide 'custom) 325 (provide 'custom)
323 326
324 ;; custom.el ends here 327 ;; custom.el ends here