Source

eieio / eieio-comp.el

Diff from to

eieio-comp.el

 ;;; eieio-comp.el -- eieio routines to help with byte compilation
 
 ;;;
-;; Copyright (C) 1995,1996, 1998, 1999, 2000, 2001 Eric M. Ludlam
+;; Copyright (C) 1995,1996, 1998, 1999, 2000, 2001, 2002 Eric M. Ludlam
 ;;
 ;; Author: <zappo@gnu.org>
 ;; RCS: $Id$
 			   ((eq ':PRIMARY (car form))
 			    (setq form (cdr form))
 			    ":PRIMARY ")
+			   ((eq ':STATIC (car form))
+			    (setq form (cdr form))
+			    ":STATIC ")
 			   (t ""))))
 	 (params (car form))
 	 (lamparams (byte-compile-defmethod-param-convert params))
 
 
 (defun eieio-byte-compile-princ-code (code outbuffer)
-  "XEmacs and GNU Emacs do their things differently.
+  "Xemacs and GNU Emacs do their things differently.
 Lets do it right on both platforms
 Argument CODE is the code to output.
 Argument OUTBUFFER is the buffer to dump the created code to."
-  (if (eval-when-compile (not (string-match "XEmacs" emacs-version)))
+  (if (eval-when-compile (not (featurep 'xemacs)))
       ;; FSF emacs
       (prin1 code outbuffer)
     ;; XEmacs