diff options
| author | Richard M. Stallman | 1999-02-26 06:57:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-26 06:57:28 +0000 |
| commit | 6c8719f126d9401e630fc7b9724f43af3d3db800 (patch) | |
| tree | 7c746744a4ff6d3b6aab2d69b1f415c6a4b75908 | |
| parent | 9877d20507782ef29cfa350b0c72ec58a3b8b9f6 (diff) | |
| download | emacs-6c8719f126d9401e630fc7b9724f43af3d3db800.tar.gz emacs-6c8719f126d9401e630fc7b9724f43af3d3db800.zip | |
(describe-function-1): Don't print a whole lambda-function.
| -rw-r--r-- | lisp/help.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 833239825e1..71e3d6fa969 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -674,7 +674,7 @@ It can also be nil, if the definition is not associated with any file." | |||
| 674 | (t t)))) | 674 | (t t)))) |
| 675 | (if (listp arglist) | 675 | (if (listp arglist) |
| 676 | (progn | 676 | (progn |
| 677 | (princ (cons function | 677 | (princ (cons (if (symbolp function) function "anonymous") |
| 678 | (mapcar (lambda (arg) | 678 | (mapcar (lambda (arg) |
| 679 | (if (memq arg '(&optional &rest)) | 679 | (if (memq arg '(&optional &rest)) |
| 680 | arg | 680 | arg |