procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove XEmacs compat code from re-builder.el

Browse source 
* lisp/emacs-lisp/re-builder.el (top-level)
(reb-color-display-p): Remove XEmacs compat code.
This commit is contained in:
Stefan Kangas 2019-10-04 02:20:28 +02:00
parent 8ef09cb30a
commit 094e48e4e7
1 changed files with 1 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/re-builder.el
View file

@ -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."