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

[Per Abrahamsen]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.105 emacs/lisp/wid-edit.el:1.106
*** emacs/lisp/wid-edit.el:1.105        Mon Dec 31 15:30:50 2001
--- emacs/lisp/wid-edit.el      Thu Feb 14 11:47:11 2002
***************
*** 1,6 ****
  ;;; wid-edit.el --- Functions for creating and using widgets 
-*-byte-compile-dynamic: t;-*-
  ;;
! ;; Copyright (C) 1996, 1997, 1999, 2000, 2001 Free Software Foundation, Inc.
  ;;
  ;; Author: Per Abrahamsen <address@hidden>
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; wid-edit.el --- Functions for creating and using widgets 
-*-byte-compile-dynamic: t;-*-
  ;;
! ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002 Free Software Foundation, 
Inc.
  ;;
  ;; Author: Per Abrahamsen <address@hidden>
  ;; Maintainer: FSF
***************
*** 468,473 ****
--- 468,481 ----
    "Return the type of WIDGET, a symbol."
    (car widget))
  
+ ;;;###autoload
+ (defun widgetp (widget)
+   "Return non-nil iff WIDGET is a widget."
+   (if (symbolp widget)
+       (get widget 'widget-type)
+     (and (consp widget)
+        (get (widget-type widget) 'widget-type))))
+ 
  (defun widget-get-indirect (widget property)
    "In WIDGET, get the value of PROPERTY.
  If the value is a symbol, return its binding.
***************
*** 747,752 ****
--- 755,761 ----
      ;; Return the newly create widget.
      widget))
  
+ ;;;###autoload
  (defun widget-insert (&rest args)
    "Call `insert' with ARGS even if surrounding text is read only."
    (let ((inhibit-read-only t)
***************
*** 801,806 ****
--- 810,816 ----
  
  ;;; Keymap and Commands.
  
+ ;;;###autoload
  (defvar widget-keymap
    (let ((map (make-sparse-keymap)))
      (define-key map "\t" 'widget-forward)
***************
*** 1083,1088 ****
--- 1093,1099 ----
    (or (get-char-property (or pos (point)) 'button)
        (widget-field-at pos)))
  
+ ;;;###autoload
  (defun widget-setup ()
    "Setup current buffer so editing string widgets works."
    (let ((inhibit-read-only t)