;;; dgnushack.el --- a hack to set the load path for byte-compiling
-;; Copyright (C) 1994-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1994-2015 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Version: 4.19
inhibit-cookies)
(url-retrieve url callback cbargs)))
(unless (boundp 'w3-configuration-directory)
- (defvar w3-configuration-directory "~/.w3/"))
+ (setq w3-configuration-directory "~/.w3/"))
(autoload 'Info-directory "info" nil t)
(autoload 'Info-index "info" nil t)
(autoload 'Info-index-next "info" nil t)
(when (and (featurep 'xemacs)
(dgnushack-emacs-compile-defcustom-p))
- (maybe-fbind '(defined-colors face-attribute network-interface-list))
+ (maybe-fbind '(defined-colors face-attribute))
(maybe-bind '(idna-program installation-directory)))
(when (featurep 'xemacs)
(equal (nth 1 form) ''nconc))
(setq form (cons 'mapcan (cdr last)))))))
+(if (featurep 'emacs)
+ (defun dgnushack-compile-file (file)
+ "Byte-compile FILE after reporting that it's being compiled."
+ (message "Compiling %s..." (file-name-nondirectory file))
+ ;; The Emacs 25 version of it doesn't say much.
+ (byte-compile-file file))
+ (defalias 'dgnushack-compile-file 'byte-compile-file))
+
(defun dgnushack-compile-verbosely ()
"Call dgnushack-compile with warnings ENABLED. If you are compiling
patches to gnus, you should consider modifying make.bat to call
(when (or (featurep 'xemacs)
(or (< emacs-major-version 24)
(< emacs-minor-version 3)))
- (setq files (delete "gnus-icalendar.el" files)))
+ (setq files (delete "gnus-icalendar.el" files))
+ ;; Temporary during development.
+ (setq files (delete "gnus-cloud.el" files)))
(dolist (file files)
(setq file (expand-file-name file srcdir))
(when (and (file-exists-p
(if error-on-warn
(let ((byte-compile-error-on-warn t))
(unless (ignore-errors
- (byte-compile-file file))
+ (dgnushack-compile-file file))
(setq compilesuccess nil)))
(ignore-errors
- (byte-compile-file file)))))
+ (dgnushack-compile-file file)))))
compilesuccess))
(defun dgnushack-recompile ()
(progn ,@body)
(error (message "Error: %S" ,err) nil)))))
-;; XEmacs's `define-obsolete-variable-alias' takes only two arguments:
+;; `define-obsolete-function-alias' and `define-obsolete-variable-alias'
+;; take only two arguments in XEmacs:
+;; (define-obsolete-function-alias OLDFUN NEWFUN)
;; (define-obsolete-variable-alias OLDVAR NEWVAR)
(condition-case nil
- (progn
- (defvar dgnushack-obsolete-name nil)
- (defvar dgnushack-current-name nil)
- (unwind-protect
- (define-obsolete-variable-alias
- 'dgnushack-obsolete-name 'dgnushack-current-name "0")
- (makunbound 'dgnushack-obsolete-name)
- (makunbound 'dgnushack-current-name)))
+ (define-obsolete-function-alias
+ 'dgnushack-obsolete-name 'dgnushack-current-name "0")
+ (wrong-number-of-arguments
+ (defadvice define-obsolete-function-alias (around ignore-rest-args
+ (oldfun newfun &rest args)
+ activate)
+ "Ignore arguments other than the 1st and the 2nd ones."
+ ad-do-it)
+ (put 'define-obsolete-function-alias 'byte-optimizer
+ (lambda (form)
+ (setcdr (nthcdr 2 form) nil)
+ form))))
+(condition-case nil
+ (define-obsolete-variable-alias
+ 'dgnushack-obsolete-name 'dgnushack-current-name "0")
(wrong-number-of-arguments
(defadvice define-obsolete-variable-alias (around ignore-rest-args
(oldvar newvar &rest args)