aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emacs-lisp/re-builder.el11
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 @@
103 103
104;;; Code: 104;;; Code:
105 105
106;; On XEmacs, load the overlay compatibility library
107(unless (fboundp 'make-overlay)
108 (require 'overlay))
109
110;; User customizable variables 106;; User customizable variables
111(defgroup re-builder nil 107(defgroup re-builder nil
112 "Options for the RE Builder." 108 "Options for the RE Builder."
@@ -319,12 +315,7 @@ Except for Lisp syntax this is the same as `reb-regexp'.")
319 315
320(defun reb-color-display-p () 316(defun reb-color-display-p ()
321 "Return t if display is capable of displaying colors." 317 "Return t if display is capable of displaying colors."
322 (eq 'color 318 (eq 'color (frame-parameter nil 'display-type)))
323 ;; emacs/xemacs compatibility
324 (if (fboundp 'frame-parameter)
325 (frame-parameter nil 'display-type)
326 (if (fboundp 'frame-property)
327 (frame-property (selected-frame) 'display-type)))))
328 319
329(defsubst reb-lisp-syntax-p () 320(defsubst reb-lisp-syntax-p ()
330 "Return non-nil if RE Builder uses a Lisp syntax." 321 "Return non-nil if RE Builder uses a Lisp syntax."