Mercurial > hg > xemacs-beta

annotate lisp/gnus/lpath.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children ec9a17fef872
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
1 ;; Shut up.
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
2
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
3 (defvar byte-compile-default-warnings)
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
4
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
5 (defun maybe-fbind (args)
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
6 (while args
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
7 (or (fboundp (car args))
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
8 (fset (car args) 'ignore))
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
9 (setq args (cdr args))))
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
10
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
11 (if (string-match "XEmacs" emacs-version)
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
12 (progn
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
13 (defvar track-mouse nil)
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
14 (maybe-fbind '(posn-point event-start x-popup-menu
18
d95e72db5c07 Import from CVS: tag r19-15b92
cvs
parents: 16
diff changeset
15 facemenu-get-face window-at
16
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
16 coordinates-in-window-p compute-motion
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
17 x-defined-colors easy-menu-create-keymaps))
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
18 ;; XEmacs thinks writting compatible code is obsolete.
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
19 (require 'bytecomp)
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
20 (setq byte-compile-default-warnings
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
21 (delq 'obsolete byte-compile-default-warnings)))
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
22 (defvar browse-url-browser-function nil)
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
23 (maybe-fbind '(color-instance-rgb-components make-color-instance
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
24 color-instance-name specifier-instance device-type
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
25 device-class get-popup-menu-response event-object
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
26 x-defined-colors read-color add-submenu set-font-family
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
27 font-create-object set-font-size frame-device find-face
18
d95e72db5c07 Import from CVS: tag r19-15b92
cvs
parents: 16
diff changeset
28 set-extent-property make-extent characterp display-error)))
16
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
29
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
30 (setq load-path (cons "." load-path))
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
31 (require 'custom)
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
32
0293115a14e9 Import from CVS: tag r19-15b91
cvs
parents:
diff changeset
33 (provide 'lpath)