Mercurial > emacs

changeset 12086:19458e823866

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Karl Heuer <kwzh@gnu.org>
date Mon, 05 Jun 1995 23:47:44 +0000
parents 589a32fa67a9
children 3bbf71f1cf30
files lisp/ediff-diff.el
diffstat 1 files changed, 11 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ediff-diff.el	Mon Jun 05 23:43:51 1995 +0000
+++ b/lisp/ediff-diff.el	Mon Jun 05 23:47:44 1995 +0000
@@ -81,7 +81,7 @@
   
 ;;; 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 @@
 ;; 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 @@
       (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 @@
     
 ;; 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 @@
 (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)