;;; dgnushack.el --- a hack to set the load path for byte-compiling
;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003,
-;; 2004, 2005, 2006, 2007, 2008
+;; 2004, 2005, 2006, 2007, 2008, 2009, 2010
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
(setq filename (byte-compiler-base-file-name filename))
(setq filename (file-name-sans-versions filename))
(setq filename (file-name-nondirectory filename))
- (if (memq system-type '(win32 w32 mswindows windows-nt))
+ (if (eq system-type 'windows-nt)
(setq filename (downcase filename)))
(cond ((eq system-type 'vax-vms)
(concat (substring filename 0 (string-match ";" filename)) "c"))
(defalias 'device-sound-enabled-p 'ignore)
(defalias 'play-sound-file 'ignore)
-(defalias 'nndb-request-article 'ignore)
(defalias 'efs-re-read-dir 'ignore)
(defalias 'ange-ftp-re-read-dir 'ignore)
(defalias 'define-mail-user-agent 'ignore)
(autoload 'Info-index-next "info" nil t)
(autoload 'Info-menu "info" nil t)
(autoload 'ad-add-advice "advice")
+ (unless (and (emacs-version>= 21 5)
+ (not (featurep 'sxemacs)))
+ ;; calendar/auto-autoloads.el provides it.
+ (autoload 'add-to-invisibility-spec "dummy"))
(autoload 'annotations-at "annotations")
(autoload 'apropos "apropos" nil t)
(autoload 'apropos-command "apropos" nil t)
(autoload 'customize-save-variable "cus-edit" nil t)
(autoload 'customize-set-variable "cus-edit" nil t)
(autoload 'customize-variable "cus-edit" nil t)
+ (autoload 'debug "debug" nil t)
(if (featurep 'mule)
(unless (locate-library "mule-ccl")
(autoload 'define-ccl-program "ccl" nil nil 'macro))
(autoload 'delete-annotation "annotations")
(autoload 'dolist "cl-macs" nil nil 'macro)
(autoload 'enriched-decode "enriched")
+ (autoload 'eudc-expand-inline "eudc" nil t)
(autoload 'executable-find "executable")
(autoload 'font-lock-fontify-buffer "font-lock" nil t)
+ (when (and (emacs-version>= 21 5)
+ (not (featurep 'sxemacs)))
+ (autoload 'get-display-table "disp-table")
+ (autoload 'put-display-table "disp-table"))
(autoload 'info "info" nil t)
(autoload 'mail-extract-address-components "mail-extr")
(autoload 'mail-fetch-field "mail-utils")
(autoload 'make-annotation "annotations")
(autoload 'make-display-table "disp-table")
+ (autoload 'pgg-snarf-keys-region "pgg" nil t)
(autoload 'pp "pp")
(autoload 'ps-despool "ps-print" nil t)
(autoload 'ps-spool-buffer "ps-print" nil t)
(autoload 'smtpmail-send-it "smtpmail")
(autoload 'sort-numeric-fields "sort" nil t)
(autoload 'sort-subr "sort")
+ (autoload 'thing-at-point "thingatpt")
(autoload 'toggle-truncate-lines "view-less" nil t)
(autoload 'trace-function-background "trace" nil t)
(autoload 'unmorse-region "morse" nil t)
(require 'w3-parse)
(error
(message "No w3: %s %s" (cadr code) (or (locate-library "w3-parse") ""))
- (dolist (file '("nnultimate.el" "webmail.el" "nnwfm.el"))
+ (dolist (file '("webmail.el" "nnwfm.el"))
(setq files (delete file files)))))
(condition-case code
(require 'mh-e)
(expand-file-name "auto-autoloads.el")
(expand-file-name "gnus-load.el")))
-(defvar dgnushack-cus-load-file
+(defvar dgnushack-cus-load-file
(if (featurep 'xemacs)
(expand-file-name "custom-load.el")
(expand-file-name "cus-load.el")))
(setq path (cdr path))))))
;;; dgnushack.el ends here
-
-;;; arch-tag: 579f585a-24eb-4e1c-8d34-4808e11b68f2