Mercurial > emacs

changeset 51581:7ca4059e8636

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(disassemble): Accept plain expressions.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 16 Jun 2003 16:26:34 +0000
parents d9592ff1371e
children 7e55c8dd414b
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	Mon Jun 16 15:16:59 2003 +0000
+++ b/lisp/emacs-lisp/disass.el	Mon Jun 16 16:26:34 2003 +0000
@@ -1,6 +1,6 @@
 ;;; disass.el --- disassembler for compiled Emacs Lisp code
 
-;; Copyright (C) 1986, 1991 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1991, 2003  Free Software Foundation, Inc.
 
 ;; Author: Doug Cutting <doug@csli.stanford.edu>
 ;;	Jamie Zawinski <jwz@lucid.com>
@@ -57,7 +57,7 @@
   (interactive (list (intern (completing-read "Disassemble function: "
 					      obarray 'fboundp t))
 		     nil 0 t))
-  (if (eq (car-safe object) 'byte-code)
+  (if (consp object)
       (setq object (list 'lambda () object)))
   (or indent (setq indent 0))		;Default indent to zero
   (save-excursion