Mercurial > emacs
changeset 64387:fea47ebca4ae
(eudc-jump-to-event): Avoid warning.
(eudc-bob-display-jpeg, eudc-bob-can-display-inline-images): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Jul 2005 18:07:59 +0000 |
| parents | d24c0f192f20 |
| children | 2b4cb2b750b1 |
| files | lisp/net/eudc-bob.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/eudc-bob.el Sat Jul 16 18:05:23 2005 +0000 +++ b/lisp/net/eudc-bob.el Sat Jul 16 18:07:59 2005 +0000 @@ -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 @@ "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]"])))))