Commits

Anonymous committed e162c13

Give byte-compile-compiled-obj-to-list a sane definition, eieio-comp.el

Comments (0)

Files changed (2)

+2010-03-28  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* eieio-comp.el:
+	Give byte-compile-compiled-obj-to-list a sane definition, if it's
+	not bound, now that it's no longer always available in bytecomp.el.
+
 2008-02-19  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.06 released.
 ;; Some compatibility stuff
 (eval-and-compile
   (if (not (fboundp 'byte-compile-compiled-obj-to-list))
-      (defun byte-compile-compiled-obj-to-list (moose) nil))
-
+      ;; XEmacs change; b-c-c-o-t-l has been removed in 21.5
+      (defun byte-compile-compiled-obj-to-list (compiled-function)
+        (nconc (list
+                (compiled-function-arglist compiled-function)
+                (compiled-function-instructions compiled-function)
+                (compiled-function-constants compiled-function)
+                (compiled-function-stack-depth compiled-function)
+                (compiled-function-doc-string compiled-function))
+               (if (commandp compiled-function)
+                   (list (nth 1 (compiled-function-interactive
+                                 compiled-function)))))))
   (if (not (boundp 'byte-compile-outbuffer))
       (defvar byte-compile-outbuffer nil))
   )