# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1082574844 0
# Node ID 3b81dccc5b32c48694aa1178003245a83719c70a
# Parent  f3cd7742ff364684d6cfc7b962b3364d54919ce5
(disassemble): Handle lambda-exp as arg.

diff -r f3cd7742ff36 -r 3b81dccc5b32 lisp/emacs-lisp/disass.el
--- a/lisp/emacs-lisp/disass.el	Wed Apr 21 19:13:00 2004 +0000
+++ b/lisp/emacs-lisp/disass.el	Wed Apr 21 19:14:04 2004 +0000
@@ -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 @@
   (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