mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(eudc-jump-to-event): Avoid warning.

Browse Source 
(eudc-bob-display-jpeg, eudc-bob-can-display-inline-images): Likewise.
This commit is contained in:
Richard M. Stallman 2005-07-16 18:07:59 +00:00
parent 3892610361
commit 8d25cef7cc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/net/eudc-bob.el
View File

@ -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]"])))))