Mercurial > hg > xemacs-beta
comparison lisp/gnus/lpath.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:13:56 +0200 |
| parents | |
| children | 360340f9fd5f |
comparison
equal
deleted
inserted
replaced
| 97:498bf5da1c90 | 98:0d2f883870bc |
|---|---|
| 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) |