1 ;;; dgnushack.el --- a hack to set the load path for byte-compiling
2 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000
3 ;; Free Software Foundation, Inc.
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news, path
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
30 (defalias 'facep 'ignore)
34 (defvar srcdir (or (getenv "srcdir") "."))
36 (push (or (getenv "lispdir")
37 "/usr/share/emacs/site-lisp")
39 (push (or (getenv "W3DIR") (expand-file-name "../../w3/lisp/" srcdir))
42 (unless (featurep 'xemacs)
43 (define-compiler-macro last (&whole form x &optional n)
44 (if (and (fboundp 'last)
45 (subrp (symbol-function 'last)))
61 (while (consp (cdr x))
66 ;; If we are building w3 in a different directory than the source
67 ;; directory, we must read *.el from source directory and write *.elc
68 ;; into the building directory. For that, we define this function
69 ;; before loading bytecomp. Bytecomp doesn't overwrite this function.
70 (defun byte-compile-dest-file (filename)
71 "Convert an Emacs Lisp source file name to a compiled file name.
72 In addition, remove directory name part from FILENAME."
73 (setq filename (byte-compiler-base-file-name filename))
74 (setq filename (file-name-sans-versions filename))
75 (setq filename (file-name-nondirectory filename))
76 (if (memq system-type '(win32 w32 mswindows windows-nt))
77 (setq filename (downcase filename)))
78 (cond ((eq system-type 'vax-vms)
79 (concat (substring filename 0 (string-match ";" filename)) "c"))
80 ((string-match emacs-lisp-file-regexp filename)
81 (concat (substring filename 0 (match-beginning 0)) ".elc"))
82 (t (concat filename ".elc"))))
86 (push "/usr/share/emacs/site-lisp" load-path)
87 (push srcdir load-path)
88 (load (expand-file-name "lpath.el" srcdir) nil t)
90 (defalias 'device-sound-enabled-p 'ignore)
91 (defalias 'play-sound-file 'ignore)
92 (defalias 'nndb-request-article 'ignore)
93 (defalias 'efs-re-read-dir 'ignore)
94 (defalias 'ange-ftp-re-read-dir 'ignore)
95 (defalias 'define-mail-user-agent 'ignore)
98 (unless (featurep 'xemacs)
99 (defalias 'get-popup-menu-response 'ignore)
100 (defalias 'event-object 'ignore)
101 (defalias 'x-defined-colors 'ignore)
102 (defalias 'read-color 'ignore)))
104 (defun dgnushack-compile (&optional warn)
105 ;;(setq byte-compile-dynamic t)
107 (setq byte-compile-warnings
108 '(free-vars unresolved callargs redefine)))
109 (unless (locate-library "cus-edit")
110 (error "You do not seem to have Custom installed.
111 Fetch it from <URL:http://www.dina.kvl.dk/~abraham/custom/>.
112 You also then need to add the following to the lisp/dgnushack.el file:
114 (push \"~/lisp/custom\" load-path)
116 Modify to suit your needs."))
117 (let ((files (directory-files srcdir nil "^[^=].*\\.el$"))
118 ;;(byte-compile-generate-call-tree t)
120 (dolist (file '("dgnushack.el" "lpath.el"))
121 (setq files (delete file files)))
122 (if (featurep 'base64)
123 (setq files (delete "base64.el" files)))
127 (dolist (file '("nnweb.el" "nnlistserv.el" "nnultimate.el"
128 "nnslashdot.el" "nnwarchive.el" "webmail.el"
130 (setq files (delete file files)))))
132 (if (featurep 'xemacs)
133 '("md5.el" "smiley-ems.el")
134 '("gnus-xmas.el" "gnus-picon.el" "messagexmas.el"
135 "nnheaderxm.el" "smiley.el")))
136 (setq files (delete file files)))
139 (setq file (expand-file-name file srcdir))
140 (when (and (file-exists-p (setq elc (concat file "c")))
141 (file-newer-than-file-p file elc))
144 (while (setq file (pop files))
145 (setq file (expand-file-name file srcdir))
146 (when (or (not (file-exists-p (setq elc (concat file "c"))))
147 (file-newer-than-file-p file elc))
149 (byte-compile-file file))))))
151 (defun dgnushack-recompile ()
153 (byte-recompile-directory "." 0))
155 ;;; dgnushack.el ends here