Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d227e322
Commit
d227e322
authored
Dec 22, 2012
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* doc/misc/widget.texi (Programming Example): Break some long lines.
parent
2ecfdaa6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
9 deletions
+14
-9
doc/misc/ChangeLog
doc/misc/ChangeLog
+2
-0
doc/misc/widget.texi
doc/misc/widget.texi
+12
-9
No files found.
doc/misc/ChangeLog
View file @
d227e322
2012-12-22 Glenn Morris <rgm@gnu.org>
* widget.texi (Programming Example): Break some long lines.
* wisent.texi (Wisent Overview): Fix xref.
(Grammar format, Understanding the automaton): Avoid overfill.
...
...
doc/misc/widget.texi
View file @
d227e322
...
...
@@ -364,13 +364,14 @@ Interface}).
(
setq
widget
-
example
-
repeat
(
widget
-
create
'editable-list
:entry-format "%i %d %v"
:notify (lambda (widget &rest ignore)
(let ((old (widget-get widget
'
:
example
-
length
))
(
new
(
length
(
widget
-
value
widget
))))
(
unless
(
eq
old
new
)
(
widget
-
put
widget
':example-length new)
(message "You can count to %d." new))))
:notify
(lambda (widget &rest ignore)
(let ((old (widget-get widget
'
:
example
-
length
))
(
new
(
length
(
widget
-
value
widget
))))
(
unless
(
eq
old
new
)
(
widget
-
put
widget
':example-length new)
(message "You can count to %d." new))))
:value '
(
"One"
"Eh, two?"
"Five!"
)
'(editable-field :value "three")))
(widget-insert "\n\nSelect multiple:\n\n")
...
...
@@ -387,11 +388,13 @@ Interface}).
:notify (lambda (widget &rest ignore)
(message "You selected %s"
(widget-value widget)))
'
(
item
"One"
)
'(item "Another One.") '
(
item
"A Final One."
))
'
(
item
"One"
)
'(item "Another One.")
'
(
item
"A Final One."
))
(
widget
-
insert
"
\n
"
)
(
widget
-
create
'push-button
:notify (lambda (&rest ignore)
(if (= (length (widget-value widget-example-repeat))
(if (= (length
(widget-value widget-example-repeat))
3)
(message "Congratulation!")
(error "Three was the count!")))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment