cgit.sxemacs.org Git - packages/blob - xemacs-packages/gnus/lisp/dgnushack-xemacs.el

   1 ;;; dgnushack-xemacs.el --- a version of dgnushack.el for XEmacs package
   2 (defalias 'facep 'ignore)
   3
   4 (defalias 'device-sound-enabled-p 'ignore)
   5 (defalias 'play-sound-file 'ignore)
   6 (defalias 'nndb-request-article 'ignore)
   7 (defalias 'efs-re-read-dir 'ignore)
   8 (defalias 'ange-ftp-re-read-dir 'ignore)
   9 (defalias 'define-mail-user-agent 'ignore)
  10
  11
  12 (eval-and-compile
  13   (when (featurep 'xemacs)
  14     ;; XEmacs 21.1 needs some extra hand holding
  15     (when (eq emacs-minor-version 1)
  16       (autoload 'custom-declare-face "cus-face" nil t)
  17       (autoload 'cl-compile-time-init "cl-macs" nil t)
  18       (autoload 'defadvice "advice" nil nil 'macro))
  19     (unless (fboundp 'defadvice)
  20       (autoload 'defadvice "advice" nil nil 'macro))
  21     (autoload 'Info-directory "info" nil t)
  22     (autoload 'Info-menu "info" nil t)
  23     (autoload 'annotations-at "annotations")
  24     (autoload 'apropos "apropos" nil t)
  25     (autoload 'apropos-command "apropos" nil t)
  26     (autoload 'bbdb-complete-name "bbdb-com" nil t)
  27     (autoload 'browse-url "browse-url" nil t)
  28     (autoload 'customize-apropos "cus-edit" nil t)
  29     (autoload 'customize-save-variable "cus-edit" nil t)
  30     (autoload 'customize-variable "cus-edit" nil t)
  31     (autoload 'delete-annotation "annotations")
  32     (autoload 'dolist "cl-macs" nil nil 'macro)
  33     (autoload 'enriched-decode "enriched")
  34     (autoload 'info "info" nil t)
  35     (autoload 'make-annotation "annotations")
  36     (autoload 'make-display-table "disp-table")
  37     (autoload 'pp "pp")
  38     (autoload 'ps-despool "ps-print" nil t)
  39     (autoload 'ps-spool-buffer "ps-print" nil t)
  40     (autoload 'ps-spool-buffer-with-faces "ps-print" nil t)
  41     (autoload 'read-passwd "passwd")
  42     (autoload 'regexp-opt "regexp-opt")
  43     (autoload 'reporter-submit-bug-report "reporter")
  44     (if (emacs-version>= 21 5)
  45         (autoload 'setenv "process" nil t)
  46       (autoload 'setenv "env" nil t))
  47     (autoload 'smtpmail-send-it "smtpmail")
  48     (autoload 'sort-numeric-fields "sort" nil t)
  49     (autoload 'sort-subr "sort")
  50     (autoload 'trace-function-background "trace" nil t)
  51     (autoload 'w3-do-setup "w3")
  52     (autoload 'w3-prepare-buffer "w3-display")
  53     (autoload 'w3-region "w3-display" nil t)
  54     (defalias 'match-string-no-properties 'match-string)
  55     (defalias 'frame-char-height 'frame-height)
  56     (defalias 'frame-char-width 'frame-width)
  57     (defalias 'frame-parameter 'frame-property)
  58     (defalias 'make-overlay 'ignore)
  59     (defalias 'overlay-end 'ignore)
  60     (defalias 'overlay-get 'ignore)
  61     (defalias 'overlay-put 'ignore)
  62     (defalias 'overlay-start 'ignore)
  63     (defalias 'overlays-in 'ignore)
  64     (defalias 'replace-dehighlight 'ignore)
  65     (defalias 'replace-highlight 'ignore)
  66     (defalias 'w3-coding-system-for-mime-charset 'ignore)))
  67
  68 ;;; dgnushack-xemacs.el ends here