# HG changeset patch # User Eli Zaretskii # Date 1171106490 0 # Node ID 5c8b0041ee8af65f82e306ac2ef9b9d05e1c898b # Parent 8cc088fc5fb2c6d28f8cf595d597c44626f324d5 (Programming Example): Put constant strings in :format. diff -r 8cc088fc5fb2 -r 5c8b0041ee8a man/widget.texi --- a/man/widget.texi Sat Feb 10 11:12:42 2007 +0000 +++ b/man/widget.texi Sat Feb 10 11:21:30 2007 +0000 @@ -349,10 +349,10 @@ (let ((inhibit-read-only t)) (erase-buffer)) (remove-overlays) - (widget-insert "Here is some documentation.\n\nName: ") + (widget-insert "Here is some documentation.\n\n") (widget-create 'editable-field :size 13 - :format "%v " ; Text after the field! + :format "Name: %v " ; Text after the field! "My Name") (widget-create 'menu-choice :tag "Choose" @@ -364,8 +364,8 @@ '(item :tag "This option" :value "This") '(choice-item "That option") '(editable-field :menu-tag "No option" "Thus option")) - (widget-insert "Address: ") (widget-create 'editable-field + :format "Address: %v" "Some Place\nIn some City\nSome country.") (widget-insert "\nSee also ") (widget-create 'link