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

   1 ;; Shut up.
   2
   3 (defvar byte-compile-default-warnings)
   4
   5 (defun maybe-fbind (args)
   6   (while args
   7     (or (fboundp (car args))
   8         (fset (car args) 'ignore))
   9     (setq args (cdr args))))
  10
  11 (if (string-match "XEmacs" emacs-version)
  12     (progn
  13       (defvar track-mouse nil)
  14       (maybe-fbind '(posn-point event-start x-popup-menu
  15                      facemenu-get-face window-at
  16                      coordinates-in-window-p compute-motion
  17                      x-defined-colors easy-menu-create-keymaps))
  18       ;; XEmacs thinks writting compatible code is obsolete.
  19       (require 'bytecomp)
  20       (setq byte-compile-default-warnings
  21             (delq 'obsolete byte-compile-default-warnings)))
  22   (defvar browse-url-browser-function nil)
  23   (maybe-fbind '(color-instance-rgb-components make-color-instance
  24                  color-instance-name specifier-instance device-type
  25                  device-class get-popup-menu-response event-object
  26                  x-defined-colors read-color add-submenu set-font-family
  27                  font-create-object set-font-size frame-device find-face
  28                  set-extent-property make-extent characterp display-error)))
  29
  30 (setq load-path (cons "." load-path))
  31 (require 'custom)
  32
  33 (provide 'lpath)