|
98
|
1 ;; Shut up.
|
|
|
2
|
|
|
3 (defvar byte-compile-default-warnings)
|
|
|
4
|
|
|
5 (defun maybe-fbind (args)
|
|
108
|
6 (while args
|
|
98
|
7 (or (fboundp (car args))
|
|
|
8 (fset (car args) 'ignore))
|
|
|
9 (setq args (cdr args))))
|
|
|
10
|
|
108
|
11 (defun maybe-bind (args)
|
|
|
12 (mapcar (lambda (var) (unless (boundp var) (set var nil))) args))
|
|
|
13
|
|
98
|
14 (if (string-match "XEmacs" emacs-version)
|
|
108
|
15 (progn
|
|
98
|
16 (defvar track-mouse nil)
|
|
108
|
17 (maybe-fbind '(posn-point
|
|
|
18 event-start x-popup-menu
|
|
|
19 facemenu-get-face window-at coordinates-in-window-p
|
|
|
20 compute-motion x-defined-colors easy-menu-create-keymaps
|
|
|
21 read-event internal-find-face internal-next-face-id
|
|
|
22 make-face-internal set-frame-face-alist frame-face-alist
|
|
|
23 facemenu-add-new-face make-face-x-resource-internal
|
|
|
24 set-font-size set-font-family posn-window
|
|
|
25 run-with-idle-timer mouse-minibuffer-check window-edges
|
|
|
26 event-click-count track-mouse read-event mouse-movement-p
|
|
|
27 event-end mouse-scroll-subr overlay-lists delete-overlay
|
|
|
28 set-face-stipple mail-abbrevs-setup char-int
|
|
|
29 make-char-table set-char-table-range font-create-object
|
|
|
30 x-color-values widget-make-intangible error-message-string
|
|
|
31 w3-form-encode-xwfu
|
|
|
32 ))
|
|
|
33 (maybe-bind '(global-face-data
|
|
|
34 mark-active transient-mark-mode mouse-selection-click-count
|
|
|
35 mouse-selection-click-count-buffer buffer-display-table
|
|
|
36 font-lock-defaults user-full-name user-login-name
|
|
|
37 gnus-newsgroup-name gnus-article-x-face-too-ugly)))
|
|
98
|
38 (defvar browse-url-browser-function nil)
|
|
108
|
39 (maybe-fbind '(color-instance-rgb-components
|
|
|
40 make-color-instance color-instance-name specifier-instance
|
|
|
41 device-type device-class get-popup-menu-response event-object
|
|
98
|
42 x-defined-colors read-color add-submenu set-font-family
|
|
|
43 font-create-object set-font-size frame-device find-face
|
|
108
|
44 set-extent-property make-extent characterp display-error
|
|
|
45 set-face-doc-string frame-property face-doc-string
|
|
|
46 button-press-event-p next-command-event
|
|
|
47 widget-make-intangible glyphp make-glyph set-glyph-image
|
|
|
48 set-glyph-property event-glyph glyph-property event-point
|
|
|
49 device-on-window-system-p make-gui-button Info-goto-node
|
|
|
50 pp-to-string color-name)))
|
|
98
|
51
|
|
|
52 (setq load-path (cons "." load-path))
|
|
|
53 (require 'custom)
|
|
|
54
|
|
|
55 (provide 'lpath)
|
