]> git.eshelyaron.com Git - emacs.git/commitdiff
Remove more XEmacs compat code from ezimage.el
authorLars Ingebrigtsen <larsi@gnus.org>
Sat, 5 Oct 2019 14:54:57 +0000 (16:54 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Sat, 5 Oct 2019 14:54:57 +0000 (16:54 +0200)
* lisp/ezimage.el (ezimage-use-images)
(ezimage-insert-over-text): Remove XEmacs compat code.

lisp/ezimage.el

index 6c590f16ac8c8a2533d7b2324a3df5db79b48bf1..f2b62b27fa92b0340cabb69c5006a713cc54f9cd 100644 (file)
   (error nil))
 
 ;;; Code:
-(defcustom ezimage-use-images (if (featurep 'xemacs)
-                                 (and (fboundp 'make-image-specifier)
-                                      window-system)
-                               (and (display-images-p)
-                                    (image-type-available-p 'xpm)))
+(defcustom ezimage-use-images (and (display-images-p)
+                                   (image-type-available-p 'xpm))
   "Non-nil means ezimage should display icons."
   :group 'ezimage
   :version "21.1"
@@ -216,13 +213,8 @@ Assumes the image is part of a GUI and can be clicked on.
 Optional argument STRING is a string upon which to add text properties."
   (when ezimage-use-images
     (add-text-properties start end
-                        (if (featurep 'xemacs)
-                            (list 'end-glyph image
-                                  'rear-nonsticky (list 'display)
-                                  'invisible t
-                                  'detachable t)
-                          (list 'display image
-                                'rear-nonsticky (list 'display)))
+                        (list 'display image
+                              'rear-nonsticky (list 'display))
                         string))
   string)