diff options
| author | Stefan Monnier | 2003-06-16 16:26:34 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-06-16 16:26:34 +0000 |
| commit | cba937fd5cd8c079ee9485b4ec2b1bec27926a0d (patch) | |
| tree | d36f62e93c66943351c3520c07f5b7a7dff519fc | |
| parent | 3066d4ada1ab3f812d0a0de2dcdac45b7692fef4 (diff) | |
| download | emacs-cba937fd5cd8c079ee9485b4ec2b1bec27926a0d.tar.gz emacs-cba937fd5cd8c079ee9485b4ec2b1bec27926a0d.zip | |
(disassemble): Accept plain expressions.
| -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 47a5a0c3428..6b7f9bc1b3e 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; disass.el --- disassembler for compiled Emacs Lisp code | 1 | ;;; disass.el --- disassembler for compiled Emacs Lisp code |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1991 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1986, 1991, 2003 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Doug Cutting <doug@csli.stanford.edu> | 5 | ;; Author: Doug Cutting <doug@csli.stanford.edu> |
| 6 | ;; Jamie Zawinski <jwz@lucid.com> | 6 | ;; Jamie Zawinski <jwz@lucid.com> |
| @@ -57,7 +57,7 @@ redefine OBJECT if it is a symbol." | |||
| 57 | (interactive (list (intern (completing-read "Disassemble function: " | 57 | (interactive (list (intern (completing-read "Disassemble function: " |
| 58 | obarray 'fboundp t)) | 58 | obarray 'fboundp t)) |
| 59 | nil 0 t)) | 59 | nil 0 t)) |
| 60 | (if (eq (car-safe object) 'byte-code) | 60 | (if (consp object) |
| 61 | (setq object (list 'lambda () object))) | 61 | (setq object (list 'lambda () object))) |
| 62 | (or indent (setq indent 0)) ;Default indent to zero | 62 | (or indent (setq indent 0)) ;Default indent to zero |
| 63 | (save-excursion | 63 | (save-excursion |