cgit.sxemacs.org Git - gnus/blob - lisp/lpath.el

   1 ;; Shut up.
   2
   3 (defun maybe-fbind (args)
   4   (while args
   5     (or (fboundp (car args))
   6         (defalias (car args) 'ignore))
   7     (setq args (cdr args))))
   8
   9 (defun maybe-bind (args)
  10   (mapcar (lambda (var) (unless (boundp var) (set var nil))) args))
  11
  12 (unless (featurep 'xemacs)
  13   (maybe-fbind '(pgg-display-output-buffer url-generic-parse-url))
  14   (maybe-bind '(help-xref-stack-item url-version))
  15
  16   (when (<= emacs-major-version 23)
  17     (maybe-bind '(mail-encode-mml)))
  18
  19   (when (<= emacs-major-version 22)
  20     (defun ecomplete-add-item (type key text))
  21     (defun ecomplete-save nil)
  22     (defun hashcash-wait-async (&optional buffer))
  23     (defun mail-add-payment (&optional arg async))
  24     (defun mail-add-payment-async (&optional arg))
  25     (defun netrc-get (alist type))
  26     (defun netrc-machine (list machine &optional port defaultport))
  27     (defun netrc-machine-user-or-password (mode authinfo-file-or-list machines