(U+6215): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / lisp / disass.el

diff --git a/lisp/disass.el b/lisp/disass.el
index 2185d19..60bef2c 100644 (file)
--- 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