Mercurial > hg > xemacs-beta

comparison lisp/custom/custom.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 48d667d6f17f
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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 ;; 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.
295 :group 'customize 295 :group 'customize
296 :type 'hook) 296 :type 'hook)
297 297
298 ;;; Menu support 298 ;;; Menu support
299 299
300 (defconst custom-help-menu '("Customize" 300 (defconst custom-help-menu `("Customize"
301 ["Update menu..." custom-menu-update t] 301 ,(if (string-match "XEmacs" emacs-version)
302 '("Emacs" :filter custom-menu-update)
303 ["Update menu..." custom-menu-update t])
302 ["Group..." customize t] 304 ["Group..." customize t]
303 ["Variable..." customize-variable t] 305 ["Variable..." customize-variable t]
304 ["Face..." customize-face t] 306 ["Face..." customize-face t]
305 ["Saved..." customize-customized t] 307 ["Saved..." customize-customized t]
306 ["Apropos..." customize-apropos t]) 308 ["Apropos..." customize-apropos t])