Mercurial > hg > xemacs-beta

comparison lisp/gnus/dgnushack.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents ac2d302a0011
children 4103f0995bd7
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; dgnushack.el --- a hack to set the load path for byte-compiling 1 ;;; dgnushack.el --- a hack to set the load path for byte-compiling
2 ;; Copyright (C) 1994,95,96 Free Software Foundation, Inc. 2 ;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc.
3 3
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
5 ;; Version: 4.19 5 ;; Version: 4.19
6 ;; Keywords: news, path 6 ;; Keywords: news, path
7 7
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;;; Code: 27 ;;; Code:
28 28
29 (fset 'facep 'ignore)
30
29 (require 'cl) 31 (require 'cl)
30 (setq load-path (cons "." load-path)) 32 (require 'bytecomp)
31 33 (push "." load-path)
32 (setq custom-file "/THIS FILE DOES NOT eXiST!") 34 (require 'lpath)
33 35
34 (defalias 'device-sound-enabled-p 'ignore) 36 (defalias 'device-sound-enabled-p 'ignore)
35 (defalias 'play-sound-file 'ignore) 37 (defalias 'play-sound-file 'ignore)
36 (defalias 'nndb-request-article 'ignore) 38 (defalias 'nndb-request-article 'ignore)
37 (defalias 'efs-re-read-dir 'ignore) 39 (defalias 'efs-re-read-dir 'ignore)
38 (defalias 'ange-ftp-re-read-dir 'ignore) 40 (defalias 'ange-ftp-re-read-dir 'ignore)
41 (defalias 'define-mail-user-agent 'ignore)
42
43 (eval-and-compile
44 (unless (string-match "XEmacs" emacs-version)
45 (fset 'get-popup-menu-response 'ignore)
46 (fset 'event-object 'ignore)
47 (fset 'x-defined-colors 'ignore)
48 (fset 'read-color 'ignore)))
39 49
40 (defun dgnushack-compile () 50 (defun dgnushack-compile ()
41 ;(setq byte-compile-dynamic t) 51 ;;(setq byte-compile-dynamic t)
42 (let ((files (directory-files "." nil ".el$")) 52 (let ((files (directory-files "." nil ".el$"))
43 (xemacs (string-match "XEmacs" emacs-version)) 53 (xemacs (string-match "XEmacs" emacs-version))
44 byte-compile-warnings file) 54 ;;(byte-compile-generate-call-tree t)
45 (while files 55 byte-compile-warnings file elc)
46 (setq file (car files) 56 (condition-case ()
47 files (cdr files)) 57 (require 'w3-forms)
58 (error (setq files (delete "nnweb.el" files))))
59 (while (setq file (pop files))
48 (cond 60 (cond
49 ((or (string= file "custom.el") (string= file "browse-url.el")) 61 ((or (string= file "custom.el") (string= file "browse-url.el"))
50 (setq byte-compile-warnings nil)) 62 (setq byte-compile-warnings nil))
51 (xemacs 63 (xemacs
52 (setq byte-compile-warnings 64 (setq byte-compile-warnings
56 '(free-vars unresolved callargs redefine obsolete)))) 68 '(free-vars unresolved callargs redefine obsolete))))
57 (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el" 69 (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el"
58 "messagexmas.el" "nnheaderxm.el" 70 "messagexmas.el" "nnheaderxm.el"
59 "smiley.el"))) 71 "smiley.el")))
60 xemacs) 72 xemacs)
61 (condition-case () 73 (when (or (not (file-exists-p (setq elc (concat file "c"))))
62 (byte-compile-file file) 74 (file-newer-than-file-p file elc))
63 (error nil)))))) 75 (ignore-errors
76 (byte-compile-file file)))))))
64 77
65 (defun dgnushack-recompile () 78 (defun dgnushack-recompile ()
66 (require 'gnus) 79 (require 'gnus)
67 (byte-recompile-directory "." 0)) 80 (byte-recompile-directory "." 0))
68 81