[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Miles Bader]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.103 emacs/lisp/wid-edit.el:1.104
*** emacs/lisp/wid-edit.el:1.103        Sat Dec  1 23:49:43 2001
--- emacs/lisp/wid-edit.el      Thu Dec 27 10:07:21 2001
***************
*** 2001,2021 ****
  (defun widget-toggle-value-create (widget)
    "Insert text representing the `on' and `off' states."
    (if (widget-value widget)
!       (progn
        (and (display-graphic-p)
!            (listp (widget-get widget :on-glyph))
!            (widget-put widget :on-glyph
!                        (eval (widget-get widget :on-glyph))))
        (widget-image-insert widget
                             (widget-get widget :on)
!                            (widget-get widget :on-glyph)))
!     (and (display-graphic-p)
!        (listp (widget-get widget :off-glyph))
!        (widget-put widget :off-glyph
!                    (eval (widget-get widget :off-glyph))))
!     (widget-image-insert widget
!                        (widget-get widget :off)
!                        (widget-get widget :off-glyph))))
  
  (defun widget-toggle-action (widget &optional event)
    ;; Toggle value.
--- 2001,2020 ----
  (defun widget-toggle-value-create (widget)
    "Insert text representing the `on' and `off' states."
    (if (widget-value widget)
!       (let ((image (widget-get widget :on-glyph)))
        (and (display-graphic-p)
!            (listp image)
!            (not (eq (car image) 'image))
!            (widget-put widget :on-glyph (setq image (eval image))))
        (widget-image-insert widget
                             (widget-get widget :on)
!                            image))
!     (let ((image (widget-get widget :off-glyph)))
!       (and (display-graphic-p)
!          (listp image)
!          (not (eq (car image) 'image))
!          (widget-put widget :off-glyph (setq image (eval image))))
!       (widget-image-insert widget (widget-get widget :off) image))))
  
  (defun widget-toggle-action (widget &optional event)
    ;; Toggle value.