diff options
| author | Lars Ingebrigtsen | 2019-10-05 16:54:57 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-05 16:54:57 +0200 |
| commit | 33dc41043820c3c28e65ffe0010c047d3b9b0e78 (patch) | |
| tree | 24be4db50aeea8adb58c47ffbbf3c0420abe0fc0 | |
| parent | 73c6192fe67a8a6cc43d3bce232d8543a09999e4 (diff) | |
| download | emacs-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.el | 16 |
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. | |||
| 216 | Optional argument STRING is a string upon which to add text properties." | 213 | Optional 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 | ||