emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111069: * doc/misc/widget.texi (P


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/emacs-24 r111069: * doc/misc/widget.texi (Programming Example): Break some long lines.
Date: Sat, 22 Dec 2012 14:04:09 -0800
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 111069
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Sat 2012-12-22 14:04:09 -0800
message:
  * doc/misc/widget.texi (Programming Example): Break some long lines.
modified:
  doc/misc/ChangeLog
  doc/misc/widget.texi
=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog        2012-12-22 21:58:06 +0000
+++ b/doc/misc/ChangeLog        2012-12-22 22:04:09 +0000
@@ -1,5 +1,7 @@
 2012-12-22  Glenn Morris  <address@hidden>
 
+       * widget.texi (Programming Example): Break some long lines.
+
        * wisent.texi (Wisent Overview): Fix xref.
        (Grammar format, Understanding the automaton): Avoid overfill.
 

=== modified file 'doc/misc/widget.texi'
--- a/doc/misc/widget.texi      2012-12-22 16:25:40 +0000
+++ b/doc/misc/widget.texi      2012-12-22 22:04:09 +0000
@@ -364,13 +364,14 @@
   (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 @@
                  :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!")))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]