Mercurial > hg > xemacs-beta

comparison lisp/custom/custom.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents fe104dbd9147
children 8619ce7e4c50
comparison
equal deleted inserted replaced
111:164ab62060bf 112:48d667d6f17f
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.63 7 ;; Version: 1.64
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
301 ,(if (string-match "XEmacs" emacs-version) 301 `("Customize"
302 '("Emacs" :filter custom-menu-update) 302 ,(if (string-match "XEmacs" emacs-version)
303 ["Update menu..." custom-menu-update t]) 303 '("Emacs" :filter (lambda (&rest junk)
304 ["Group..." customize t] 304 (cdr (custom-menu-create 'emacs))))
305 ["Variable..." customize-variable t] 305 ["Update menu..." custom-menu-update t])
306 ["Face..." customize-face t] 306 ["Group..." customize t]
307 ["Saved..." customize-customized t] 307 ["Variable..." customize-variable t]
308 ["Apropos..." customize-apropos t]) 308 ["Face..." customize-face t]
309 ["Saved..." customize-customized t]
310 ["Apropos..." customize-apropos t])
309 "Customize menu") 311 "Customize menu")
310 312
311 (defun custom-menu-reset () 313 (defun custom-menu-reset ()
312 "Reset customize menu." 314 "Reset customize menu."
313 (remove-hook 'custom-define-hook 'custom-menu-reset) 315 (remove-hook 'custom-define-hook 'custom-menu-reset)
317 (define-key global-map [menu-bar help-menu customize-menu] 319 (define-key global-map [menu-bar help-menu customize-menu]
318 (cons (car custom-help-menu) 320 (cons (car custom-help-menu)
319 (easy-menu-create-keymaps (car custom-help-menu) 321 (easy-menu-create-keymaps (car custom-help-menu)
320 (cdr custom-help-menu)))))) 322 (cdr custom-help-menu))))))
321 323
322 (unless (string-match "XEmacs" emacs-version) 324 (if (string-match "XEmacs" emacs-version)
325 (autoload 'custom-menu-create "cus-edit")
323 (custom-menu-reset)) 326 (custom-menu-reset))
324 327
325 ;;; The End. 328 ;;; The End.
326 329
327 (provide 'custom) 330 (provide 'custom)