Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 434:9d177e8d4150 r21-2-25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-25
author cvs
date Mon, 13 Aug 2007 11:30:53 +0200
parents 3ecd8885ac67
children 84b14dcb0985
comparison
equal deleted inserted replaced
433:892ca416f0fb 434:9d177e8d4150
1031 (defun custom-buffer-create-buttons () 1031 (defun custom-buffer-create-buttons ()
1032 (message "Creating customization buttons...") 1032 (message "Creating customization buttons...")
1033 (widget-insert "\nOperate on everything in this buffer:\n ") 1033 (widget-insert "\nOperate on everything in this buffer:\n ")
1034 (widget-create 'push-button 1034 (widget-create 'push-button
1035 :tag "Set" 1035 :tag "Set"
1036 :tag-glyph '("set-up" "set-down")
1037 :help-echo "\ 1036 :help-echo "\
1038 Make your editing in this buffer take effect for this session" 1037 Make your editing in this buffer take effect for this session"
1039 :action (lambda (widget &optional event) 1038 :action (lambda (widget &optional event)
1040 (Custom-set))) 1039 (Custom-set)))
1041 (widget-insert " ") 1040 (widget-insert " ")
1042 (widget-create 'push-button 1041 (widget-create 'push-button
1043 :tag "Save" 1042 :tag "Save"
1044 :tag-glyph '("save-up" "save-down")
1045 :help-echo "\ 1043 :help-echo "\
1046 Make your editing in this buffer take effect for future Emacs sessions" 1044 Make your editing in this buffer take effect for future Emacs sessions"
1047 :action (lambda (widget &optional event) 1045 :action (lambda (widget &optional event)
1048 (Custom-save))) 1046 (Custom-save)))
1049 (if custom-reset-button-menu 1047 (if custom-reset-button-menu
1075 Reset all values in this buffer to their standard settings" 1073 Reset all values in this buffer to their standard settings"
1076 :action 'Custom-reset-standard)) 1074 :action 'Custom-reset-standard))
1077 (widget-insert " ") 1075 (widget-insert " ")
1078 (widget-create 'push-button 1076 (widget-create 'push-button
1079 :tag "Done" 1077 :tag "Done"
1080 :tag-glyph '("done-up" "done-down")
1081 :help-echo "Remove the buffer" 1078 :help-echo "Remove the buffer"
1082 :action (lambda (widget &optional event) 1079 :action (lambda (widget &optional event)
1083 (Custom-buffer-done))) 1080 (Custom-buffer-done)))
1084 (widget-insert "\n")) 1081 (widget-insert "\n"))
1085 1082