Mercurial > hg > xemacs-beta

comparison lisp/gnus/lpath.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents d95e72db5c07
children
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
1 ;; Shut up. 1 ;; Shut up.
2 2
3 (defvar byte-compile-default-warnings) 3 (defvar byte-compile-default-warnings)
4 4
5 (defun maybe-fbind (args) 5 (defun maybe-fbind (args)
6 (while args 6 (while args
7 (or (fboundp (car args)) 7 (or (fboundp (car args))
8 (fset (car args) 'ignore)) 8 (fset (car args) 'ignore))
9 (setq args (cdr args)))) 9 (setq args (cdr args))))
10 10
11 (defun maybe-bind (args)
12 (mapcar (lambda (var) (unless (boundp var) (set var nil))) args))
13
11 (if (string-match "XEmacs" emacs-version) 14 (if (string-match "XEmacs" emacs-version)
12 (progn 15 (progn
13 (defvar track-mouse nil) 16 (defvar track-mouse nil)
14 (maybe-fbind '(posn-point event-start x-popup-menu 17 (maybe-fbind '(posn-point
15 facemenu-get-face window-at 18 event-start x-popup-menu
16 coordinates-in-window-p compute-motion 19 facemenu-get-face window-at coordinates-in-window-p
17 x-defined-colors easy-menu-create-keymaps)) 20 compute-motion x-defined-colors easy-menu-create-keymaps
18 ;; XEmacs thinks writting compatible code is obsolete. 21 read-event internal-find-face internal-next-face-id
19 (require 'bytecomp) 22 make-face-internal set-frame-face-alist frame-face-alist
20 (setq byte-compile-default-warnings 23 facemenu-add-new-face make-face-x-resource-internal
21 (delq 'obsolete byte-compile-default-warnings))) 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)))
22 (defvar browse-url-browser-function nil) 38 (defvar browse-url-browser-function nil)
23 (maybe-fbind '(color-instance-rgb-components make-color-instance 39 (maybe-fbind '(color-instance-rgb-components
24 color-instance-name specifier-instance device-type 40 make-color-instance color-instance-name specifier-instance
25 device-class get-popup-menu-response event-object 41 device-type device-class get-popup-menu-response event-object
26 x-defined-colors read-color add-submenu set-font-family 42 x-defined-colors read-color add-submenu set-font-family
27 font-create-object set-font-size frame-device find-face 43 font-create-object set-font-size frame-device find-face
28 set-extent-property make-extent characterp display-error))) 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)))
29 51
30 (setq load-path (cons "." load-path)) 52 (setq load-path (cons "." load-path))
31 (require 'custom) 53 (require 'custom)
32 54
33 (provide 'lpath) 55 (provide 'lpath)