;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, extensions, faces, hypermedia
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, extensions, faces, hypermedia
;; Doing this is unnecessary in Emacs 20. Kept as dummy in case
;; external libraries call it. We save a kb or two of purespace by
;; dummying-out such definitions generally.
;; Doing this is unnecessary in Emacs 20. Kept as dummy in case
;; external libraries call it. We save a kb or two of purespace by
;; dummying-out such definitions generally.
;; ;; Don't use backquote, since that makes trouble trying to
;; ;; re-bootstrap from just the .el files.
;; (list 'eval-and-compile
;; ;; Don't use backquote, since that makes trouble trying to
;; ;; re-bootstrap from just the .el files.
;; (list 'eval-and-compile
;; :button-face-get :button-face :value-face :keymap :entry-from
;; :entry-to :help-echo :documentation-property :tab-order)
;; :button-face-get :button-face :value-face :keymap :entry-from
;; :entry-to :help-echo :documentation-property :tab-order)
(put name 'widget-type (cons class args))
(put name 'widget-documentation (purecopy doc))
name)
;; This is used by external widget code (in W3, at least).
(put name 'widget-type (cons class args))
(put name 'widget-documentation (purecopy doc))
name)
;; This is used by external widget code (in W3, at least).