masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-15 08:21:18 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; Fix last change in widget.texi

Browse source 
* doc/misc/widget.texi (url-link, toggle, Defining New Widgets):
Divide @example's into @group's.  (Bug#66229)
This commit is contained in:
Eli Zaretskii 2024-01-11 08:22:14 +02:00
parent 63411709a8
commit 70a09325d6
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
doc/misc/widget.texi
View file

@ -1498,6 +1498,7 @@ specified.
Example: Example:
@lisp @lisp
@group
(widget-create 'url-link (widget-create 'url-link
:button-prefix "" :button-prefix ""
:button-suffix "" :button-suffix ""
@ -1515,6 +1516,7 @@ Example:
;; And then call the original function. ;; And then call the original function.
(widget-url-link-action widget)) (widget-url-link-action widget))
"https://www.gnu.org/software/emacs/manual/html_mono/widget.html") "https://www.gnu.org/software/emacs/manual/html_mono/widget.html")
@end group
@end lisp @end lisp
@node info-link @node info-link
@ -2138,6 +2140,7 @@ correspond to a @code{t} or @code{nil} value, respectively.
Example: Example:
@lisp @lisp
@group
(widget-insert "Press the button to activate/deactivate the field: ") (widget-insert "Press the button to activate/deactivate the field: ")
(widget-create 'toggle (widget-create 'toggle
:notify (lambda (widget &rest _ignored) :notify (lambda (widget &rest _ignored)
@ -2146,6 +2149,8 @@ Example:
:activate :activate
:deactivate)))) :deactivate))))
(widget-insert "\n") (widget-insert "\n")
@end group
@group
(setq widget-example-field (setq widget-example-field
(widget-create 'editable-field (widget-create 'editable-field
:deactivate (lambda (widget) :deactivate (lambda (widget)
@ -2154,6 +2159,7 @@ Example:
(widget-field-start widget) (widget-field-start widget)
(widget-get widget :to))))) (widget-get widget :to)))))
(widget-apply widget-example-field :deactivate))) (widget-apply widget-example-field :deactivate)))
@end group
@end lisp @end lisp
@ -3066,18 +3072,23 @@ The predefined functions @code{widget-types-convert-widget} and
Example: Example:
@lisp @lisp
@group
(defvar widget-ranged-integer-map (defvar widget-ranged-integer-map
(let ((map (copy-keymap widget-keymap))) (let ((map (copy-keymap widget-keymap)))
(define-key map [up] #'widget-ranged-integer-increase) (define-key map [up] #'widget-ranged-integer-increase)
(define-key map [down] #'widget-ranged-integer-decrease) (define-key map [down] #'widget-ranged-integer-decrease)
map)) map))
@end group
@group
(define-widget 'ranged-integer 'integer (define-widget 'ranged-integer 'integer
"A ranged integer widget." "A ranged integer widget."
:min-value most-negative-fixnum :min-value most-negative-fixnum
:max-value most-positive-fixnum :max-value most-positive-fixnum
:keymap widget-ranged-integer-map) :keymap widget-ranged-integer-map)
@end group
@group
(defun widget-ranged-integer-change (widget how) (defun widget-ranged-integer-change (widget how)
"Change the value of the ranged-integer WIDGET, according to HOW." "Change the value of the ranged-integer WIDGET, according to HOW."
(let* ((value (widget-value widget)) (let* ((value (widget-value widget))
@ -3093,16 +3104,21 @@ Example:
(t (error "HOW has a bad value")))) (t (error "HOW has a bad value"))))
(inhibit-read-only t)) (inhibit-read-only t))
(widget-value-set widget newval))) (widget-value-set widget newval)))
@end group
@group
(defun widget-ranged-integer-increase (widget) (defun widget-ranged-integer-increase (widget)
"Increase the value of the ranged-integer WIDGET." "Increase the value of the ranged-integer WIDGET."
(interactive (list (widget-at))) (interactive (list (widget-at)))
(widget-ranged-integer-change widget 'up)) (widget-ranged-integer-change widget 'up))
@end group
@group
(defun widget-ranged-integer-decrease (widget) (defun widget-ranged-integer-decrease (widget)
"Decrease the value of the ranged-integer WIDGET." "Decrease the value of the ranged-integer WIDGET."
(interactive (list (widget-at))) (interactive (list (widget-at)))
(widget-ranged-integer-change widget 'down)) (widget-ranged-integer-change widget 'down))
@end group
@end lisp @end lisp
@node Inspecting Widgets @node Inspecting Widgets