Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-edit.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children d620409f5eb8
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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.59 7 ;; Version: 1.63
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 ;; See `custom.el'. 12 ;; See `custom.el'.
1833 :custom-menu (nth 0 entry))) 1833 :custom-menu (nth 0 entry)))
1834 (get symbol 'custom-group)))) 1834 (get symbol 'custom-group))))
1835 item))) 1835 item)))
1836 1836
1837 ;;;###autoload 1837 ;;;###autoload
1838 (defun custom-menu-update () 1838 (defun custom-menu-update (event)
1839 "Update customize menu." 1839 "Update customize menu."
1840 (interactive) 1840 (interactive "e")
1841 (add-hook 'custom-define-hook 'custom-menu-reset) 1841 (add-hook 'custom-define-hook 'custom-menu-reset)
1842 (let ((menu `(,(car custom-help-menu) 1842 (let* ((emacs (widget-apply '(custom-group) :custom-menu 'emacs))
1843 ,(widget-apply '(custom-group) :custom-menu 'emacs) 1843 (menu `(,(car custom-help-menu)
1844 ,emacs
1844 ,@(cdr (cdr custom-help-menu))))) 1845 ,@(cdr (cdr custom-help-menu)))))
1845 (if (fboundp 'add-submenu) 1846 (if (fboundp 'add-submenu)
1846 (add-submenu '("Options") menu) 1847 (progn
1847 (define-key global-map [menu-bar help-menu customize-menu] 1848 (add-submenu '("Options") menu)
1848 (cons (car menu) (easy-menu-create-keymaps (car menu) (cdr menu))))))) 1849 (cdr emacs))
1850 (let ((map (easy-menu-create-keymaps (car menu) (cdr menu))))
1851 (define-key global-map [menu-bar help-menu customize-menu]
1852 (cons (car menu) map))
1853 (when (fboundp 'x-popup-menu)
1854 (x-popup-menu event map))))))
1849 1855
1850 ;;; Dependencies. 1856 ;;; Dependencies.
1851 1857
1852 ;;;###autoload 1858 ;;;###autoload
1853 (defun custom-make-dependencies () 1859 (defun custom-make-dependencies ()