procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(disassemble): Accept plain expressions.

Browse source
This commit is contained in:
Stefan Monnier 2003-06-16 16:26:34 +00:00
parent 3066d4ada1
commit cba937fd5c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/disass.el
View file

@ -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 @@ redefine OBJECT if it is a symbol."
(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