diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-06-05 23:47:44 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-06-05 23:47:44 +0000 |
commit | 996f5f0e31c678d595cd8a0327a0ea25f15ae610 (patch) | |
tree | 049634aace9b5eecbbf00733d6ecb5fe45987e66 /lisp/ediff-diff.el | |
parent | 41d25ad02ea8f59e2d6fbac19d31617666521c7f (diff) | |
download | emacs-996f5f0e31c678d595cd8a0327a0ea25f15ae610.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.el | 21 |
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) |