Mercurial > hg > xemacs-beta
diff man/widget.texi @ 209:41ff10fd062f r20-4b3
Import from CVS: tag r20-4b3
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:04:58 +0200 |
parents | f53b5ca2e663 |
children | 8bec6624d99b |
line wrap: on
line diff
--- a/man/widget.texi Mon Aug 13 10:03:54 2007 +0200 +++ b/man/widget.texi Mon Aug 13 10:04:58 2007 +0200 @@ -13,8 +13,6 @@ @comment node-name, next, previous, up @top The Emacs Widget Library -Version: 1.9960 - @menu * Introduction:: * User Interface:: @@ -287,15 +285,10 @@ (defun widget-example () "Create the widgets from the Widget manual." (interactive) - (switch-to-buffer "*Widget Example*") + (kill-buffer (get-buffer-create "*Widget Example*")) + (switch-to-buffer (get-buffer-create "*Widget Example*")) (kill-all-local-variables) (make-local-variable 'widget-example-repeat) - (let ((inhibit-read-only t)) - (erase-buffer)) - (let ((all (overlay-lists))) - ;; Delete all the overlays. - (mapcar 'delete-overlay (car all)) - (mapcar 'delete-overlay (cdr all))) (widget-insert "Here is some documentation.\n\nName: ") (widget-create 'editable-field :size 13