[Emacs-diffs] Changes to emacs/lisp/net/eudc-bob.el

[Richard M . Stallman]

Index: emacs/lisp/net/eudc-bob.el
diff -c emacs/lisp/net/eudc-bob.el:1.11 emacs/lisp/net/eudc-bob.el:1.12
*** emacs/lisp/net/eudc-bob.el:1.11     Mon Jul  4 17:10:37 2005
--- emacs/lisp/net/eudc-bob.el  Sat Jul 16 18:07:59 2005
***************
*** 69,75 ****
  
  (defun eudc-jump-to-event (event)
    "Jump to the window and point where EVENT occurred."
!   (if eudc-xemacs-p
        (goto-char (event-closest-point event))
      (set-buffer (window-buffer (posn-window (event-start event))))
      (goto-char (posn-point (event-start event)))))
--- 69,75 ----
  
  (defun eudc-jump-to-event (event)
    "Jump to the window and point where EVENT occurred."
!   (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,95 ****
  
  (defun eudc-bob-can-display-inline-images ()
    "Return non-nil if we can display images inline."
!   (if eudc-xemacs-p
        (and (memq (console-type) '(x mswindows))
           (fboundp 'make-glyph))
      (and (fboundp 'display-graphic-p)
--- 89,95 ----
  
  (defun eudc-bob-can-display-inline-images ()
    "Return non-nil if we can display images inline."
!   (if (fboundp 'console-type)
        (and (memq (console-type) '(x mswindows))
           (fboundp 'make-glyph))
      (and (fboundp 'display-graphic-p)
***************
*** 120,126 ****
    "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
         (let ((glyph (if (eudc-bob-can-display-inline-images)
                          (make-glyph (list (vector 'jpeg :data data)
                                            [string :data "[JPEG Picture]"])))))
--- 120,126 ----
    "Display the JPEG DATA at point.
  If INLINE is non-nil, try to inline the image otherwise simply
  display a button."
!   (cond ((fboundp 'make-glyph)
         (let ((glyph (if (eudc-bob-can-display-inline-images)
                          (make-glyph (list (vector 'jpeg :data data)
                                            [string :data "[JPEG Picture]"])))))