Mercurial > hg > xemacs-beta

comparison lisp/gnus/dgnushack.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 4be1180a9e89
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
45 (fset 'get-popup-menu-response 'ignore) 45 (fset 'get-popup-menu-response 'ignore)
46 (fset 'event-object 'ignore) 46 (fset 'event-object 'ignore)
47 (fset 'x-defined-colors 'ignore) 47 (fset 'x-defined-colors 'ignore)
48 (fset 'read-color 'ignore))) 48 (fset 'read-color 'ignore)))
49 49
50 (setq byte-compile-warnings
51 '(free-vars unresolved callargs redefine))
52
50 (defun dgnushack-compile () 53 (defun dgnushack-compile ()
51 ;;(setq byte-compile-dynamic t) 54 ;;(setq byte-compile-dynamic t)
52 (let ((files (directory-files "." nil ".el$")) 55 (let ((files (directory-files "." nil ".el$"))
53 (xemacs (string-match "XEmacs" emacs-version)) 56 (xemacs (string-match "XEmacs" emacs-version))
54 ;;(byte-compile-generate-call-tree t) 57 ;;(byte-compile-generate-call-tree t)
55 byte-compile-warnings file elc) 58 byte-compile-warnings file elc)
56 (condition-case () 59 (condition-case ()
57 (require 'w3-forms) 60 (require 'w3-forms)
58 (error (setq files (delete "nnweb.el" files)))) 61 (error (setq files (delete "nnweb.el" files))))
59 (while (setq file (pop files)) 62 (while (setq file (pop files))
60 (cond 63 (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el"
61 ((or (string= file "custom.el") (string= file "browse-url.el"))
62 (setq byte-compile-warnings nil))
63 (t
64 (setq byte-compile-warnings
65 '(free-vars unresolved callargs redefine obsolete))))
66 (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el"
67 "messagexmas.el" "nnheaderxm.el" 64 "messagexmas.el" "nnheaderxm.el"
68 "smiley.el"))) 65 "smiley.el")))
69 xemacs) 66 xemacs)
70 (when (or (not (file-exists-p (setq elc (concat file "c")))) 67 (when (or (not (file-exists-p (setq elc (concat file "c"))))
71 (file-newer-than-file-p file elc)) 68 (file-newer-than-file-p file elc))
74 71
75 (defun dgnushack-recompile () 72 (defun dgnushack-recompile ()
76 (require 'gnus) 73 (require 'gnus)
77 (byte-recompile-directory "." 0)) 74 (byte-recompile-directory "." 0))
78 75
79 ;;; dgnushack.el ends here 76 ;;; dgnushack.el ends here
80 77