Mercurial > hg > xemacs-beta

comparison lisp/custom/custom-edit.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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.40 7 ;; Version: 1.44
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'.
909 (if (eq (widget-get widget :custom-state) 'hidden) 909 (if (eq (widget-get widget :custom-state) 'hidden)
910 (progn 910 (progn
911 (widget-put widget :custom-state 'unknown) 911 (widget-put widget :custom-state 'unknown)
912 (custom-redraw widget)) 912 (custom-redraw widget))
913 (let* ((completion-ignore-case t) 913 (let* ((completion-ignore-case t)
914 (answer (widget-choose (capitalize 914 (answer (widget-choose (custom-unlispify-tag-name
915 (symbol-name (widget-get widget :value))) 915 (widget-get widget :value))
916 custom-variable-menu 916 custom-variable-menu
917 event))) 917 event)))
918 (if answer 918 (if answer
919 (funcall answer widget))))) 919 (funcall answer widget)))))
920 920
1073 "Customize face." 1073 "Customize face."
1074 :format "%l%{%t%}: %s%m%h%a%v" 1074 :format "%l%{%t%}: %s%m%h%a%v"
1075 :format-handler 'custom-face-format-handler 1075 :format-handler 'custom-face-format-handler
1076 :sample-face 'custom-face-tag-face 1076 :sample-face 'custom-face-tag-face
1077 :help-echo "Push me to set or reset this face." 1077 :help-echo "Push me to set or reset this face."
1078 :documentation-property 'face-documentation 1078 :documentation-property '(lambda (face)
1079 (get-face-documentation face))
1079 :value-create 'custom-face-value-create 1080 :value-create 'custom-face-value-create
1080 :action 'custom-face-action 1081 :action 'custom-face-action
1081 :custom-set 'custom-face-set 1082 :custom-set 'custom-face-set
1082 :custom-save 'custom-face-save 1083 :custom-save 'custom-face-save
1083 :custom-reset-current 'custom-redraw 1084 :custom-reset-current 'custom-redraw
1151 (progn 1152 (progn
1152 (widget-put widget :custom-state 'unknown) 1153 (widget-put widget :custom-state 'unknown)
1153 (custom-redraw widget)) 1154 (custom-redraw widget))
1154 (let* ((completion-ignore-case t) 1155 (let* ((completion-ignore-case t)
1155 (symbol (widget-get widget :value)) 1156 (symbol (widget-get widget :value))
1156 (answer (widget-choose (capitalize (symbol-name symbol)) 1157 (answer (widget-choose (custom-unlispify-tag-name symbol)
1157 custom-face-menu event))) 1158 custom-face-menu event)))
1158 (if answer 1159 (if answer
1159 (funcall answer widget))))) 1160 (funcall answer widget)))))
1160 1161
1161 (defun custom-face-set (widget) 1162 (defun custom-face-set (widget)
1374 (if (eq (widget-get widget :custom-state) 'hidden) 1375 (if (eq (widget-get widget :custom-state) 'hidden)
1375 (progn 1376 (progn
1376 (widget-put widget :custom-state 'unknown) 1377 (widget-put widget :custom-state 'unknown)
1377 (custom-redraw widget)) 1378 (custom-redraw widget))
1378 (let* ((completion-ignore-case t) 1379 (let* ((completion-ignore-case t)
1379 (answer (widget-choose (capitalize 1380 (answer (widget-choose (custom-unlispify-tag-name
1380 (symbol-name (widget-get widget :value))) 1381 (widget-get widget :value))
1381 custom-group-menu 1382 custom-group-menu
1382 event))) 1383 event)))
1383 (if answer 1384 (if answer
1384 (funcall answer widget))))) 1385 (funcall answer widget)))))
1385 1386