Mercurial > emacs
comparison lisp/wid-edit.el @ 59131:52e7defa0669
(function): Use restricted-sexp as parent.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 27 Dec 2004 16:38:57 +0000 |
parents | fa849ef3cf2c |
children | 08c82797edef 95879cc1ed20 |
comparison
equal
deleted
inserted
replaced
59130:ba97b7508fd1 | 59131:52e7defa0669 |
---|---|
3057 (error "No value")))) | 3057 (error "No value")))) |
3058 | 3058 |
3059 (defvar widget-function-prompt-value-history nil | 3059 (defvar widget-function-prompt-value-history nil |
3060 "History of input to `widget-function-prompt-value'.") | 3060 "History of input to `widget-function-prompt-value'.") |
3061 | 3061 |
3062 (define-widget 'function 'sexp | 3062 (define-widget 'function 'restricted-sexp |
3063 "A Lisp function." | 3063 "A Lisp function." |
3064 :complete-function (lambda () | 3064 :complete-function (lambda () |
3065 (interactive) | 3065 (interactive) |
3066 (lisp-complete-symbol 'fboundp)) | 3066 (lisp-complete-symbol 'fboundp)) |
3067 :prompt-value 'widget-field-prompt-value | 3067 :prompt-value 'widget-field-prompt-value |