diff options
| author | Richard M. Stallman | 2004-04-21 19:14:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-04-21 19:14:04 +0000 |
| commit | dc0485c4f86e8754635ecd2003188d3894c23974 (patch) | |
| tree | 6b7bc5ac8f956c38b09fef4c9082c0756aa409a0 | |
| parent | a4f66531945826f4a12d6c41bfa80ef89eff33ed (diff) | |
| download | emacs-dc0485c4f86e8754635ecd2003188d3894c23974.tar.gz emacs-dc0485c4f86e8754635ecd2003188d3894c23974.zip | |
(disassemble): Handle lambda-exp as arg.
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index d8890bd0239..ed632b14cd4 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | 4 | ||
| 5 | ;; Author: Doug Cutting <doug@csli.stanford.edu> | 5 | ;; Author: Doug Cutting <doug@csli.stanford.edu> |
| 6 | ;; Jamie Zawinski <jwz@lucid.com> | 6 | ;; Jamie Zawinski <jwz@lucid.com> |
| 7 | ;; Maintainer: Jamie Zawinski <jwz@lucid.com> | 7 | ;; Maintainer: FSF |
| 8 | ;; Keywords: internal | 8 | ;; Keywords: internal |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -57,7 +57,7 @@ redefine OBJECT if it is a symbol." | |||
| 57 | (interactive (list (intern (completing-read "Disassemble function: " | 57 | (interactive (list (intern (completing-read "Disassemble function: " |
| 58 | obarray 'fboundp t)) | 58 | obarray 'fboundp t)) |
| 59 | nil 0 t)) | 59 | nil 0 t)) |
| 60 | (if (consp object) | 60 | (if (and (consp object) (not (eq (car object) 'lambda))) |
| 61 | (setq object (list 'lambda () object))) | 61 | (setq object (list 'lambda () object))) |
| 62 | (or indent (setq indent 0)) ;Default indent to zero | 62 | (or indent (setq indent 0)) ;Default indent to zero |
| 63 | (save-excursion | 63 | (save-excursion |