Mercurial > emacs
changeset 55044:3b81dccc5b32
(disassemble): Handle lambda-exp as arg.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 21 Apr 2004 19:14:04 +0000 |
parents | f3cd7742ff36 |
children | 3baddb82ae01 |
files | lisp/emacs-lisp/disass.el |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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