aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-10-05 16:54:57 +0200
committerLars Ingebrigtsen2019-10-05 16:54:57 +0200
commit33dc41043820c3c28e65ffe0010c047d3b9b0e78 (patch)
tree24be4db50aeea8adb58c47ffbbf3c0420abe0fc0
parent73c6192fe67a8a6cc43d3bce232d8543a09999e4 (diff)
downloademacs-33dc41043820c3c28e65ffe0010c047d3b9b0e78.tar.gz
emacs-33dc41043820c3c28e65ffe0010c047d3b9b0e78.zip
Remove more XEmacs compat code from ezimage.el
* lisp/ezimage.el (ezimage-use-images) (ezimage-insert-over-text): Remove XEmacs compat code.
-rw-r--r--lisp/ezimage.el16
1 files changed, 4 insertions, 12 deletions
diff --git a/lisp/ezimage.el b/lisp/ezimage.el
index 6c590f16ac8..f2b62b27fa9 100644
--- a/lisp/ezimage.el
+++ b/lisp/ezimage.el
@@ -37,11 +37,8 @@
37 (error nil)) 37 (error nil))
38 38
39;;; Code: 39;;; Code:
40(defcustom ezimage-use-images (if (featurep 'xemacs) 40(defcustom ezimage-use-images (and (display-images-p)
41 (and (fboundp 'make-image-specifier) 41 (image-type-available-p 'xpm))
42 window-system)
43 (and (display-images-p)
44 (image-type-available-p 'xpm)))
45 "Non-nil means ezimage should display icons." 42 "Non-nil means ezimage should display icons."
46 :group 'ezimage 43 :group 'ezimage
47 :version "21.1" 44 :version "21.1"
@@ -216,13 +213,8 @@ Assumes the image is part of a GUI and can be clicked on.
216Optional argument STRING is a string upon which to add text properties." 213Optional argument STRING is a string upon which to add text properties."
217 (when ezimage-use-images 214 (when ezimage-use-images
218 (add-text-properties start end 215 (add-text-properties start end
219 (if (featurep 'xemacs) 216 (list 'display image
220 (list 'end-glyph image 217 'rear-nonsticky (list 'display))
221 'rear-nonsticky (list 'display)
222 'invisible t
223 'detachable t)
224 (list 'display image
225 'rear-nonsticky (list 'display)))
226 string)) 218 string))
227 string) 219 string)
228 220