Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-edit.el @ 157:6b37e6ddd302 r20-3b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b5
author cvs
date Mon, 13 Aug 2007 09:40:41 +0200
parents 43dd3413c7c7
children 28f395d8dc7a
comparison
equal deleted inserted replaced
156:60baf0b43294 157:6b37e6ddd302
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.9907 7 ;; Version: 1.9908
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
957 (message "Creating customization items...") 957 (message "Creating customization items...")
958 (setq custom-options 958 (setq custom-options
959 (if (= (length options) 1) 959 (if (= (length options) 1)
960 (mapcar (lambda (entry) 960 (mapcar (lambda (entry)
961 (widget-create (nth 1 entry) 961 (widget-create (nth 1 entry)
962 :documentation-shown t
962 :custom-state 'unknown 963 :custom-state 'unknown
963 :tag (custom-unlispify-tag-name 964 :tag (custom-unlispify-tag-name
964 (nth 0 entry)) 965 (nth 0 entry))
965 :value (nth 0 entry))) 966 :value (nth 0 entry)))
966 options) 967 options)
2554 "Keymap for `custom-mode'.") 2555 "Keymap for `custom-mode'.")
2555 2556
2556 (unless custom-mode-map 2557 (unless custom-mode-map
2557 (setq custom-mode-map (make-sparse-keymap)) 2558 (setq custom-mode-map (make-sparse-keymap))
2558 (set-keymap-parent custom-mode-map widget-keymap) 2559 (set-keymap-parent custom-mode-map widget-keymap)
2560 (suppress-keymap custom-mode-map)
2559 (define-key custom-mode-map "q" 'bury-buffer)) 2561 (define-key custom-mode-map "q" 'bury-buffer))
2560 2562
2561 (easy-menu-define custom-mode-customize-menu 2563 (easy-menu-define custom-mode-customize-menu
2562 custom-mode-map 2564 custom-mode-map
2563 "Menu used to customize customization buffers." 2565 "Menu used to customize customization buffers."