diff options
author | Richard M. Stallman <[email protected]> | 2005-07-16 18:07:59 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2005-07-16 18:07:59 +0000 |
commit | 8d25cef7cc5bdab004010e03c494243038d07fb6 (patch) | |
tree | 86c2bb50123c2b77fa9c5d85b0c2ab6d7c124bf7 /lisp/net | |
parent | 3892610361dfa9c08564848209823d1fe4c4fbd7 (diff) |
(eudc-jump-to-event): Avoid warning.
(eudc-bob-display-jpeg, eudc-bob-can-display-inline-images): Likewise.
Diffstat (limited to 'lisp/net')
-rw-r--r-- | lisp/net/eudc-bob.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index a4ad3044f4..6ee8840d3b 100644 --- a/lisp/net/eudc-bob.el +++ b/lisp/net/eudc-bob.el @@ -69,7 +69,7 @@ (defun eudc-jump-to-event (event) "Jump to the window and point where EVENT occurred." - (if eudc-xemacs-p + (if (fboundp 'event-closest-point) (goto-char (event-closest-point event)) (set-buffer (window-buffer (posn-window (event-start event)))) (goto-char (posn-point (event-start event))))) @@ -89,7 +89,7 @@ (defun eudc-bob-can-display-inline-images () "Return non-nil if we can display images inline." - (if eudc-xemacs-p + (if (fboundp 'console-type) (and (memq (console-type) '(x mswindows)) (fboundp 'make-glyph)) (and (fboundp 'display-graphic-p) @@ -120,7 +120,7 @@ LABEL." "Display the JPEG DATA at point. If INLINE is non-nil, try to inline the image otherwise simply display a button." - (cond (eudc-xemacs-p + (cond ((fboundp 'make-glyph) (let ((glyph (if (eudc-bob-can-display-inline-images) (make-glyph (list (vector 'jpeg :data data) [string :data "[JPEG Picture]"]))))) |