diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2015-11-01 01:42:21 -0400 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2015-11-01 01:42:21 -0400 |
| commit | 39372e1a1032521be74575bb06f95a3898fbae30 (patch) | |
| tree | 754bd242a23d2358ea116126fcb0a629947bd9ec /lisp/widget.el | |
| parent | 6a3121904d76e3b2f63007341d48c5c1af55de80 (diff) | |
| parent | e11aaee266da52937a3a031cb108fe13f68958c3 (diff) | |
| download | emacs-39372e1a1032521be74575bb06f95a3898fbae30.tar.gz | |
merge from trunk
Diffstat (limited to 'lisp/widget.el')
| -rw-r--r-- | lisp/widget.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/widget.el b/lisp/widget.el index 917dde61872..aadb063161c 100644 --- a/lisp/widget.el +++ b/lisp/widget.el @@ -1,10 +1,9 @@ ;;; widget.el --- a library of user interface components ;; -;; Copyright (C) 1996-1997, 2001-2013 Free Software Foundation, Inc. +;; Copyright (C) 1996-1997, 2001-2015 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: help, extensions, faces, hypermedia -;; Version: 1.9920 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ ;; Package: emacs @@ -81,9 +80,12 @@ create identical widgets: * (widget-create NAME) -* (apply 'widget-create CLASS ARGS) +* (apply \\='widget-create CLASS ARGS) The third argument DOC is a documentation string for the widget." + ;; + (unless (or (null doc) (stringp doc)) + (error "widget documentation must be nil or a string.")) (put name 'widget-type (cons class args)) (put name 'widget-documentation (purecopy doc)) name) |