* many files: Remove trailing whitespaces, replace spc+tab with
[gnus] / lisp / dgnushack.el
index 62b75df..7964a0e 100644 (file)
        (t (concat filename ".elc"))))
 
 (require 'bytecomp)
+;; To avoid having defsubsts and inlines happen.
+;(if (featurep 'xemacs)
+;    (require 'byte-optimize)
+;  (require 'byte-opt))
+;(defun byte-optimize-inline-handler (form)
+;  "byte-optimize-handler for the `inline' special-form."
+;  (cons 'progn (cdr form)))
+;(defalias 'byte-compile-file-form-defsubst 'byte-compile-file-form-defun)
 
 (push srcdir load-path)
 (load (expand-file-name "lpath.el" srcdir) nil t)
@@ -249,9 +257,8 @@ Modify to suit your needs."))
        (setq files (delete "nnrss.el" files))))
     (dolist (file
             (if (featurep 'xemacs)
-                '("md5.el" "smiley-ems.el")
-              '("gnus-xmas.el" "gnus-picon.el" "messagexmas.el"
-                "nnheaderxm.el" "smiley.el")))
+                '("md5.el")
+              '("gnus-xmas.el" "messagexmas.el" "nnheaderxm.el")))
       (setq files (delete file files)))
 
     (dolist (file files)