diff options
| author | Eli Zaretskii | 2007-02-10 11:21:30 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2007-02-10 11:21:30 +0000 |
| commit | d9f114a3de88526b4776e3bc2ac9dc04f641afae (patch) | |
| tree | 958d76e9541e5ccc12e0d291423fe2303c701d19 | |
| parent | 493cf720aa12a23a2b266f75d959ba2239da2c5f (diff) | |
| download | emacs-d9f114a3de88526b4776e3bc2ac9dc04f641afae.tar.gz emacs-d9f114a3de88526b4776e3bc2ac9dc04f641afae.zip | |
(Programming Example): Put constant strings in :format.
| -rw-r--r-- | man/widget.texi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/man/widget.texi b/man/widget.texi index a55c2d529d3..22e5ce13631 100644 --- a/man/widget.texi +++ b/man/widget.texi | |||
| @@ -349,10 +349,10 @@ Interface}). | |||
| 349 | (let ((inhibit-read-only t)) | 349 | (let ((inhibit-read-only t)) |
| 350 | (erase-buffer)) | 350 | (erase-buffer)) |
| 351 | (remove-overlays) | 351 | (remove-overlays) |
| 352 | (widget-insert "Here is some documentation.\n\nName: ") | 352 | (widget-insert "Here is some documentation.\n\n") |
| 353 | (widget-create 'editable-field | 353 | (widget-create 'editable-field |
| 354 | :size 13 | 354 | :size 13 |
| 355 | :format "%v " ; Text after the field! | 355 | :format "Name: %v " ; Text after the field! |
| 356 | "My Name") | 356 | "My Name") |
| 357 | (widget-create 'menu-choice | 357 | (widget-create 'menu-choice |
| 358 | :tag "Choose" | 358 | :tag "Choose" |
| @@ -364,8 +364,8 @@ Interface}). | |||
| 364 | '(item :tag "This option" :value "This") | 364 | '(item :tag "This option" :value "This") |
| 365 | '(choice-item "That option") | 365 | '(choice-item "That option") |
| 366 | '(editable-field :menu-tag "No option" "Thus option")) | 366 | '(editable-field :menu-tag "No option" "Thus option")) |
| 367 | (widget-insert "Address: ") | ||
| 368 | (widget-create 'editable-field | 367 | (widget-create 'editable-field |
| 368 | :format "Address: %v" | ||
| 369 | "Some Place\nIn some City\nSome country.") | 369 | "Some Place\nIn some City\nSome country.") |
| 370 | (widget-insert "\nSee also ") | 370 | (widget-insert "\nSee also ") |
| 371 | (widget-create 'link | 371 | (widget-create 'link |