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

[Kim F . Storm]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.127 emacs/lisp/wid-edit.el:1.128
*** emacs/lisp/wid-edit.el:1.127        Wed May 19 02:16:56 2004
--- emacs/lisp/wid-edit.el      Tue Jun  8 09:54:59 2004
***************
*** 385,392 ****
      (overlay-put overlay 'evaporate t)
      ;; We want to avoid the face with image buttons.
      (unless (widget-get widget :suppress-face)
!       (overlay-put overlay 'face (widget-apply widget :button-face-get))
!       (overlay-put overlay 'mouse-face widget-mouse-face))
      (overlay-put overlay 'help-echo help-echo)))
  
  (defun widget-mouse-help (window overlay point)
--- 385,392 ----
      (overlay-put overlay 'evaporate t)
      ;; We want to avoid the face with image buttons.
      (unless (widget-get widget :suppress-face)
!       (overlay-put overlay 'face (widget-apply widget :button-face-get)))
!     (overlay-put overlay 'pointer 'hand)
      (overlay-put overlay 'help-echo help-echo)))
  
  (defun widget-mouse-help (window overlay point)
***************
*** 1289,1296 ****
  The value of the :type attribute should be an unconverted widget type."
    (let ((value (widget-get widget :value))
        (type (widget-get widget :type)))
!     (widget-put widget :children 
!                 (list (widget-create-child-value widget 
                                                   (widget-convert type)
                                                   value)))))
  
--- 1289,1296 ----
  The value of the :type attribute should be an unconverted widget type."
    (let ((value (widget-get widget :value))
        (type (widget-get widget :type)))
!     (widget-put widget :children
!                 (list (widget-create-child-value widget
                                                   (widget-convert type)
                                                   value)))))
  
***************
*** 3312,3319 ****
  nil, or a cons-cell containing a sexp and my-lisp.  This will not work
  because the `choice' widget does not allow recursion.
  
! Using the `lazy' widget you can overcome this problem, as in this 
! example: 
  
    (define-widget 'sexp-list 'lazy
      \"A list of sexps.\"
--- 3312,3319 ----
  nil, or a cons-cell containing a sexp and my-lisp.  This will not work
  because the `choice' widget does not allow recursion.
  
! Using the `lazy' widget you can overcome this problem, as in this
! example:
  
    (define-widget 'sexp-list 'lazy
      \"A list of sexps.\"
***************
*** 3322,3328 ****
    :format "%{%t%}: %v"
    ;; We don't convert :type because we want to allow recursive
    ;; datastructures.  This is slow, so we should not create speed
!   ;; critical widgets by deriving from this. 
    :convert-widget 'widget-value-convert-widget
    :value-create 'widget-type-value-create
    :value-get 'widget-child-value-get
--- 3322,3328 ----
    :format "%{%t%}: %v"
    ;; We don't convert :type because we want to allow recursive
    ;; datastructures.  This is slow, so we should not create speed
!   ;; critical widgets by deriving from this.
    :convert-widget 'widget-value-convert-widget
    :value-create 'widget-type-value-create
    :value-get 'widget-child-value-get