summaryrefslogtreecommitdiff
path: root/lisp/ediff-diff.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1995-06-05 23:47:44 +0000
committerKarl Heuer <kwzh@gnu.org>1995-06-05 23:47:44 +0000
commit39f9c7f553f69cfbee4eaf8ff2e8d80e4ffd463f (patch)
treed8162d46c6f4fc6a0bd2bc6f70ac3bcb88777789 /lisp/ediff-diff.el
parent047f4d8ab1e8edcb147cc754a2e5b7aacdeae6aa (diff)
downloademacs-39f9c7f553f69cfbee4eaf8ff2e8d80e4ffd463f.tar.gz
Changed window-system to ediff-window-display.
Converted xemacs *screen* nomenclature to *frame*. Incorporated overlay strings. Ediff no longer runs under emacs 19.28 and earlier and XEmacs 19.11 and earlier.
Diffstat (limited to 'lisp/ediff-diff.el')
-rw-r--r--lisp/ediff-diff.el21
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 92a6c938feb..8de42680f7d 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -81,7 +81,7 @@ Lines that do not match are assumed to be error messages.")
;;; Fine differences
-(ediff-defvar-local ediff-auto-refine (if window-system 'on 'nix)
+(ediff-defvar-local ediff-auto-refine (if (ediff-window-display-p) 'on 'nix)
"If `on', Ediff auto-highlights fine diffs for the current diff region.
If `off', auto-highlighting is not used. If `nix', no fine diffs are shown
at all, unless the user force-refines the region by hitting `*'.
@@ -131,7 +131,7 @@ one optional arguments, diff-number to refine.")
;; ediff-setup-diff-regions3, which takes 4 arguments.
(defun ediff-setup-diff-regions (file-A file-B file-C)
;; force all minibuffers to display ediff's messages.
- ;; when xemacs implements minibufferless screens, this won't be necessary
+ ;; when xemacs implements minibufferless frames, this won't be necessary
(if ediff-xemacs-p (setq synchronize-minibuffers t))
(or (ediff-buffer-live-p ediff-diff-buffer)
@@ -476,12 +476,13 @@ one optional arguments, diff-number to refine.")
(ediff-overlay-put overlay 'ediff-diff-num current-diff)
(ediff-overlay-put
overlay 'insert-in-front-hooks '(ediff-insert-in-front))
- (ediff-overlay-put
- overlay 'face (if (ediff-odd-p current-diff)
- (intern
- (format "ediff-odd-diff-face-%S-var" buf-type))
- (intern
- (format "ediff-even-diff-face-%S-var" buf-type))))
+ (if (ediff-window-display-p)
+ (ediff-overlay-put
+ overlay 'face (if (ediff-odd-p current-diff)
+ (intern
+ (format "ediff-odd-diff-face-%S-var" buf-type))
+ (intern
+ (format "ediff-even-diff-face-%S-var" buf-type)))))
(if (= 0 (mod current-diff 10))
(message "Buffer %S: Processing difference region %d of %d"
@@ -678,7 +679,7 @@ one optional arguments, diff-number to refine.")
;; if fine diff vector is not set for diff N, then do nothing
(defun ediff-set-fine-diff-properties (n &optional default)
- (or (not window-system)
+ (or (not (ediff-window-display-p))
(< n 0)
(>= n ediff-number-of-differences)
;; in a window system, set faces and priorities of fine overlays
@@ -951,7 +952,7 @@ one optional arguments, diff-number to refine.")
(defun ediff-setup-diff-regions3 (file-A file-B file-C)
;; force all minibuffers to display ediff's messages.
- ;; when xemacs implements minibufferless screens, this won't be necessary
+ ;; when xemacs implements minibufferless frames, this won't be necessary
(if ediff-xemacs-p (setq synchronize-minibuffers t))
(or (ediff-buffer-live-p ediff-diff-buffer)