diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-04-21 19:14:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-04-21 19:14:04 +0000 |
| commit | 01695b47c63a735a16bc00c723bd22701311728d (patch) | |
| tree | 3e2a0141d2c87280c0401dadb3df40819b31ec90 | |
| parent | 827ec4be4ddc812504904e107317cda4c8ebb41a (diff) | |
| download | emacs-01695b47c63a735a16bc00c723bd22701311728d.tar.gz | |
(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 @@ ;; Author: Doug Cutting <doug@csli.stanford.edu> ;; Jamie Zawinski <jwz@lucid.com> -;; Maintainer: Jamie Zawinski <jwz@lucid.com> +;; Maintainer: FSF ;; Keywords: internal ;; This file is part of GNU Emacs. @@ -57,7 +57,7 @@ redefine OBJECT if it is a symbol." (interactive (list (intern (completing-read "Disassemble function: " obarray 'fboundp t)) nil 0 t)) - (if (consp object) + (if (and (consp object) (not (eq (car object) 'lambda))) (setq object (list 'lambda () object))) (or indent (setq indent 0)) ;Default indent to zero (save-excursion |