From 8d25cef7cc5bdab004010e03c494243038d07fb6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Jul 2005 18:07:59 +0000 Subject: [PATCH] (eudc-jump-to-event): Avoid warning. (eudc-bob-display-jpeg, eudc-bob-can-display-inline-images): Likewise. --- lisp/net/eudc-bob.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index a4ad3044f43..6ee8840d3bb 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]"]))))) -- 2.39.2