Mercurial > hg > xemacs-beta
comparison lisp/gnus/dgnushack.el @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:45:50 +0200 |
| parents | |
| children | ac2d302a0011 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 1 ;;; dgnushack.el --- a hack to set the load path for byte-compiling | |
| 2 ;; Copyright (C) 1994,95,96 Free Software Foundation, Inc. | |
| 3 | |
| 4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> | |
| 5 ;; Version: 4.19 | |
| 6 ;; Keywords: news, path | |
| 7 | |
| 8 ;; This file is part of GNU Emacs. | |
| 9 | |
| 10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
| 11 ;; it under the terms of the GNU General Public License as published by | |
| 12 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 ;; any later version. | |
| 14 | |
| 15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 18 ;; GNU General Public License for more details. | |
| 19 | |
| 20 ;; You should have received a copy of the GNU General Public License | |
| 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
| 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 23 ;; Boston, MA 02111-1307, USA. | |
| 24 | |
| 25 ;;; Commentary: | |
| 26 | |
| 27 ;;; Code: | |
| 28 | |
| 29 (require 'cl) | |
| 30 (setq load-path (cons "." load-path)) | |
| 31 | |
| 32 (setq custom-file "/THIS FILE DOES NOT eXiST!") | |
| 33 | |
| 34 (defun dgnushack-compile () | |
| 35 ;(setq byte-compile-dynamic t) | |
| 36 (let ((files (directory-files "." nil ".el$")) | |
| 37 (xemacs (string-match "XEmacs" emacs-version)) | |
| 38 byte-compile-warnings file) | |
| 39 (while files | |
| 40 (setq file (car files) | |
| 41 files (cdr files)) | |
| 42 (cond | |
| 43 ((or (string= file "custom.el") (string= file "browse-url.el")) | |
| 44 (setq byte-compile-warnings nil)) | |
| 45 (xemacs | |
| 46 (setq byte-compile-warnings | |
| 47 '(free-vars unresolved callargs redefine))) | |
| 48 (t | |
| 49 (setq byte-compile-warnings | |
| 50 '(free-vars unresolved callargs redefine obsolete)))) | |
| 51 (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el" | |
| 52 "messagexmas.el" "nnheaderxm.el" | |
| 53 "smiley.el"))) | |
| 54 xemacs) | |
| 55 (condition-case () | |
| 56 (byte-compile-file file) | |
| 57 (error nil)))))) | |
| 58 | |
| 59 (defun dgnushack-recompile () | |
| 60 (require 'gnus) | |
| 61 (byte-recompile-directory "." 0)) | |
| 62 | |
| 63 ;;; dgnushack.el ends here | |
| 64 |