Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-edit.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents c53a95d3c46d
children 8d2a9b52c682 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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.64 7 ;; Version: 1.65
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'.
1806 (if (string-match "XEmacs" emacs-version) 1806 (if (string-match "XEmacs" emacs-version)
1807 ;; XEmacs can create menus dynamically. 1807 ;; XEmacs can create menus dynamically.
1808 (defun custom-group-menu-create (widget symbol) 1808 (defun custom-group-menu-create (widget symbol)
1809 "Ignoring WIDGET, create a menu entry for customization group SYMBOL." 1809 "Ignoring WIDGET, create a menu entry for customization group SYMBOL."
1810 `( ,(custom-unlispify-menu-entry symbol t) 1810 `( ,(custom-unlispify-menu-entry symbol t)
1811 :filter (lambda (&rest junk) 1811 :filter (lambda (&rest junk)
1812 (cdr (custom-menu-create ',symbol))))) 1812 (cdr (custom-menu-create ',symbol)))))
1813 ;; But emacs can't. 1813 ;; But emacs can't.
1814 (defun custom-group-menu-create (widget symbol) 1814 (defun custom-group-menu-create (widget symbol)
1815 "Ignoring WIDGET, create a menu entry for customization group SYMBOL." 1815 "Ignoring WIDGET, create a menu entry for customization group SYMBOL."
1816 ;; Limit the nesting. 1816 ;; Limit the nesting.
1817 (let ((custom-menu-nesting (1- custom-menu-nesting))) 1817 (let ((custom-menu-nesting (1- custom-menu-nesting)))