diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2019-10-04 02:20:28 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2019-10-04 15:26:10 +0200 |
| commit | 094e48e4e7d71ca2d26ab047494afaa703ca85eb (patch) | |
| tree | 43999e0092c67ac3177c72bf4c8add63c1053aaf /lisp/emacs-lisp/re-builder.el | |
| parent | 8ef09cb30a526f34236f6696d06a2848043685ae (diff) | |
| download | emacs-094e48e4e7d71ca2d26ab047494afaa703ca85eb.tar.gz emacs-094e48e4e7d71ca2d26ab047494afaa703ca85eb.tar.bz2 emacs-094e48e4e7d71ca2d26ab047494afaa703ca85eb.zip | |
Remove XEmacs compat code from re-builder.el
* lisp/emacs-lisp/re-builder.el (top-level)
(reb-color-display-p): Remove XEmacs compat code.
Diffstat (limited to 'lisp/emacs-lisp/re-builder.el')
| -rw-r--r-- | lisp/emacs-lisp/re-builder.el | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index 1054f1453bc..f8e264cf393 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -103,10 +103,6 @@ ;;; Code: -;; On XEmacs, load the overlay compatibility library -(unless (fboundp 'make-overlay) - (require 'overlay)) - ;; User customizable variables (defgroup re-builder nil "Options for the RE Builder." @@ -319,12 +315,7 @@ Except for Lisp syntax this is the same as `reb-regexp'.") (defun reb-color-display-p () "Return t if display is capable of displaying colors." - (eq 'color - ;; emacs/xemacs compatibility - (if (fboundp 'frame-parameter) - (frame-parameter nil 'display-type) - (if (fboundp 'frame-property) - (frame-property (selected-frame) 'display-type))))) + (eq 'color (frame-parameter nil 'display-type))) (defsubst reb-lisp-syntax-p () "Return non-nil if RE Builder uses a Lisp syntax." |