X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fdisass.el;h=60bef2cec0ed4d6d414a06df649d4abebc8cb8d5;hp=2185d194269860181f5b142408fa3a1874c9e0c2;hb=4217f715cf3120a5591ce18f6ad90be7d6df465d;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910

diff --git a/lisp/disass.el b/lisp/disass.el
index 2185d19..60bef2c 100644
--- a/lisp/disass.el
+++ b/lisp/disass.el
@@ -3,8 +3,8 @@
 ;;; Copyright (C) 1986, 1991-1994 Free Software Foundation, Inc.
 
 ;; Author: Doug Cutting <doug@csli.stanford.edu>
-;;	Jamie Zawinski <jwz@netscape.com>
-;; Maintainer: Jamie Zawinski <jwz@netscape.com>
+;;	Jamie Zawinski <jwz@jwz.org>
+;; Maintainer: XEmacs Development Team
 ;; Keywords: internal
 
 ;; This file is part of XEmacs.
@@ -39,18 +39,12 @@
 
 ;;; Code:
 
-;;; The variable byte-code-vector is defined by the new bytecomp.el.
-;;; The function byte-decompile-lapcode is defined in byte-opt.el.
-;;; Since we don't use byte-decompile-lapcode, let's try not loading byte-opt.
-;;; The variable byte-code-vector is defined by the new bytecomp.el.
-;;; The function byte-decompile-lapcode is defined in byte-optimize.el.
 (require 'byte-optimize)
 
 (defvar disassemble-column-1-indent 8 "*")
 (defvar disassemble-column-2-indent 10 "*")
 (defvar disassemble-recursive-indent 3 "*")
 
-
 ;;;###autoload
 (defun disassemble (object &optional buffer indent interactive-p)
   "Print disassembled code for OBJECT in (optional) BUFFER.
@@ -75,8 +69,8 @@ redefine OBJECT if it is a symbol."
 
 
 (defun disassemble-internal (obj indent interactive-p)
-  (let ((macro 'nil)
-	(name 'nil)
+  (let ((macro nil)
+	(name nil)
 	args)
     (while (symbolp obj)
       (setq name obj
@@ -169,8 +163,8 @@ redefine OBJECT if it is a symbol."
 
 
 (defun disassemble-1 (obj indent)
-  "Prints the byte-code call OBJ in the current buffer.
-OBJ should be a call to BYTE-CODE generated by the byte compiler."
+  "Print the byte-code call OBJ in the current buffer.
+OBJ should be a compiled-function object generated by the byte compiler."
   (let (bytes constvec)
     (if (consp obj)
 	(setq bytes (car (cdr obj))		; the byte code
@@ -254,10 +248,10 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
 		       ((eq (car-safe (car-safe arg)) 'byte-code)
 			(insert "(<byte code>...)\n")
 			(mapcar		;recurse on list of byte-code objects
-			 '(lambda (obj)
-			    (disassemble-1
-			     obj
-			     (+ indent disassemble-recursive-indent)))
+			 #'(lambda (obj)
+			     (disassemble-1
+			      obj
+			      (+ indent disassemble-recursive-indent)))
 			 arg))
 		       (t
 			;; really just a constant