[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.132 emacs/lisp/wid-edit.el:1.133
*** emacs/lisp/wid-edit.el:1.132        Sun Dec  5 14:19:01 2004
--- emacs/lisp/wid-edit.el      Fri Dec 17 15:17:47 2004
***************
*** 327,332 ****
--- 327,333 ----
    (let ((keymap (widget-get widget :keymap))
        (face (or (widget-get widget :value-face) 'widget-field-face))
        (help-echo (widget-get widget :help-echo))
+       (follow-link (widget-get widget :follow-link))
        (rear-sticky
         (or (not widget-field-add-space) (widget-get widget :size))))
      (if (functionp help-echo)
***************
*** 345,350 ****
--- 346,352 ----
        ;; works in the field when, say, Custom uses `suppress-keymap'.
        (overlay-put overlay 'local-map keymap)
        (overlay-put overlay 'face face)
+       (overlay-put overlay 'follow-link follow-link)
        (overlay-put overlay 'help-echo help-echo))
        (setq to (1- to))
        (setq rear-sticky t))
***************
*** 354,359 ****
--- 356,362 ----
        (overlay-put overlay 'field widget)
        (overlay-put overlay 'local-map keymap)
        (overlay-put overlay 'face face)
+       (overlay-put overlay 'follow-link follow-link)
        (overlay-put overlay 'help-echo help-echo)))
    (widget-specify-secret widget))
  
***************
*** 378,383 ****
--- 381,387 ----
  (defun widget-specify-button (widget from to)
    "Specify button for WIDGET between FROM and TO."
    (let ((overlay (make-overlay from to nil t nil))
+       (follow-link (widget-get widget :follow-link))
        (help-echo (widget-get widget :help-echo)))
      (widget-put widget :button-overlay overlay)
      (if (functionp help-echo)
***************
*** 389,394 ****
--- 393,399 ----
      (unless (widget-get widget :suppress-face)
        (overlay-put overlay 'face (widget-apply widget :button-face-get)))
      (overlay-put overlay 'pointer 'hand)
+     (overlay-put overlay 'follow-link follow-link)
      (overlay-put overlay 'help-echo help-echo)))
  
  (defun widget-mouse-help (window overlay point)
***************
*** 1705,1710 ****
--- 1710,1716 ----
    "An embedded link."
    :button-prefix 'widget-link-prefix
    :button-suffix 'widget-link-suffix
+   :follow-link "\C-m"
    :help-echo "Follow the link."
    :format "%[%t%]")