Mercurial > emacs
comparison lisp/minibuffer.el @ 94017:f2ded84f543c
(lazy-completion-table): Fix debug spec.
| author | Johan Bockgård <bojohan@gnu.org> |
|---|---|
| date | Fri, 11 Apr 2008 23:42:25 +0000 |
| parents | bd1b8b62427b |
| children | ec343c7600a2 |
comparison
equal
deleted
inserted
replaced
| 94016:df72d7bb5d67 | 94017:f2ded84f543c |
|---|---|
| 78 If completion is requested in the minibuffer, FUN will be called in the buffer | 78 If completion is requested in the minibuffer, FUN will be called in the buffer |
| 79 from which the minibuffer was entered. The return value of | 79 from which the minibuffer was entered. The return value of |
| 80 `lazy-completion-table' must be used to initialize the value of VAR. | 80 `lazy-completion-table' must be used to initialize the value of VAR. |
| 81 | 81 |
| 82 You should give VAR a non-nil `risky-local-variable' property." | 82 You should give VAR a non-nil `risky-local-variable' property." |
| 83 (declare (debug (symbol lambda-expr))) | 83 (declare (debug (symbolp lambda-expr))) |
| 84 (let ((str (make-symbol "string"))) | 84 (let ((str (make-symbol "string"))) |
| 85 `(completion-table-dynamic | 85 `(completion-table-dynamic |
| 86 (lambda (,str) | 86 (lambda (,str) |
| 87 (when (functionp ,var) | 87 (when (functionp ,var) |
| 88 (setq ,var (,fun))) | 88 (setq ,var (,fun))) |