Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
10 10
11 (if (string-match "XEmacs" emacs-version) 11 (if (string-match "XEmacs" emacs-version)
12 (progn 12 (progn
13 (defvar track-mouse nil) 13 (defvar track-mouse nil)
14 (maybe-fbind '(posn-point event-start x-popup-menu 14 (maybe-fbind '(posn-point event-start x-popup-menu
15 error-message-string facemenu-get-face window-at 15 facemenu-get-face window-at
16 coordinates-in-window-p compute-motion 16 coordinates-in-window-p compute-motion
17 x-defined-colors easy-menu-create-keymaps)) 17 x-defined-colors easy-menu-create-keymaps))
18 ;; XEmacs thinks writting compatible code is obsolete. 18 ;; XEmacs thinks writting compatible code is obsolete.
19 (require 'bytecomp) 19 (require 'bytecomp)
20 (setq byte-compile-default-warnings 20 (setq byte-compile-default-warnings
23 (maybe-fbind '(color-instance-rgb-components make-color-instance 23 (maybe-fbind '(color-instance-rgb-components make-color-instance
24 color-instance-name specifier-instance device-type 24 color-instance-name specifier-instance device-type
25 device-class get-popup-menu-response event-object 25 device-class get-popup-menu-response event-object
26 x-defined-colors read-color add-submenu set-font-family 26 x-defined-colors read-color add-submenu set-font-family
27 font-create-object set-font-size frame-device find-face 27 font-create-object set-font-size frame-device find-face
28 set-extent-property make-extent))) 28 set-extent-property make-extent characterp display-error)))
29 29
30 (setq load-path (cons "." load-path)) 30 (setq load-path (cons "." load-path))
31 (require 'custom) 31 (require 'custom)
32 32
33 (provide 'lpath) 33 (provide 'lpath)