Mercurial > hg > xemacs-beta

comparison lisp/gnus/dgnushack.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 4103f0995bd7
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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 obsolete))
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