new version

diff --git a/lisp/ediff-init.el b/lisp/ediff-init.el
index 30e67232ba1ad15d5e53a6d3e1c3f398fce24bb8..9ca1400a8cdb19823a11d711b3422bb6dcb87c29 100644 (file)
--- a/lisp/ediff-init.el
+++ b/lisp/ediff-init.el
@@ -131,6 +131,7 @@ that Ediff doesn't know about.")
           )
   ))
 
+
 ;; A-list is supposed to be of the form (A . symb) (B . symb)...)
 ;; where the first part of any association is a buffer type and the second is
 ;; an appropriate symbol. Given buffer-type, this function returns the
@@ -708,30 +709,6 @@ appropriate symbol: `rcs', `pcl-cvs', or `generic-sc' if you so desire."
          ((memq op '(< <=)) t))))
   
   
-;;;; warn if it is a wrong version of emacs
-;;(if (or (ediff-check-version '< 19 35 'emacs)
-;;     (ediff-check-version '< 19 15 'xemacs))
-;;    (progn
-;;      (with-output-to-temp-buffer ediff-msg-buffer
-;;     (switch-to-buffer ediff-msg-buffer)
-;;     (insert
-;;      (format "
-;;
-;;This version of Ediff requires 
-;;
-;;\t Emacs 19.35 and higher
-;;\t OR
-;;\t XEmacs 19.15 and higher
-;;
-;;It is unlikely to work under Emacs version %s
-;;that you are using... " emacs-version))
-;;     (if noninteractive
-;;         ()
-;;       (beep 1)
-;;       (beep 1)
-;;       (insert "\n\nType any key to continue...")
-;;       (ediff-read-event)))
-;;      (kill-buffer ediff-msg-buffer)))
 
 ;; A fix for NeXT Step
 ;; Should probably be eliminated in later versions.
@@ -827,35 +804,35 @@ appropriate symbol: `rcs', `pcl-cvs', or `generic-sc' if you so desire."
          (t ""))   ; none
     ))
 
-(defun ediff-set-face (ground face color)
-  "Set face foreground/background."
-  (if (ediff-has-face-support-p)
-      (if (ediff-valid-color-p color)
-         (if (eq ground 'foreground)
-             (set-face-foreground face color)
-           (set-face-background face color))
-       (cond ((memq face
-                    '(ediff-current-diff-face-A
-                      ediff-current-diff-face-B
-                      ediff-current-diff-face-C
-                      ediff-current-diff-face-Ancestor))
-              (copy-face 'highlight face))
-             ((memq face
-                    '(ediff-fine-diff-face-A
-                      ediff-fine-diff-face-B
-                      ediff-fine-diff-face-C
-                      ediff-fine-diff-face-Ancestor))
-              (copy-face 'secondary-selection face)
-              (set-face-underline-p face t))
-             ((memq face
-                    '(ediff-even-diff-face-A
-                      ediff-odd-diff-face-A 
-                      ediff-even-diff-face-B ediff-odd-diff-face-B
-                      ediff-even-diff-face-C ediff-odd-diff-face-C
-                      ediff-even-diff-face-Ancestor
-                      ediff-odd-diff-face-Ancestor))
-              (copy-face 'secondary-selection face))))
-    ))
+;;(defun ediff-set-face (ground face color)
+;;  "Set face foreground/background."
+;;  (if (ediff-has-face-support-p)
+;;      (if (ediff-valid-color-p color)
+;;       (if (eq ground 'foreground)
+;;           (set-face-foreground face color)
+;;         (set-face-background face color))
+;;     (cond ((memq face
+;;                  '(ediff-current-diff-face-A
+;;                    ediff-current-diff-face-B
+;;                    ediff-current-diff-face-C
+;;                    ediff-current-diff-face-Ancestor))
+;;            (copy-face 'highlight face))
+;;           ((memq face
+;;                  '(ediff-fine-diff-face-A
+;;                    ediff-fine-diff-face-B
+;;                    ediff-fine-diff-face-C
+;;                    ediff-fine-diff-face-Ancestor))
+;;            (copy-face 'secondary-selection face)
+;;            (set-face-underline-p face t))
+;;           ((memq face
+;;                  '(ediff-even-diff-face-A
+;;                    ediff-odd-diff-face-A 
+;;                    ediff-even-diff-face-B ediff-odd-diff-face-B
+;;                    ediff-even-diff-face-C ediff-odd-diff-face-C
+;;                    ediff-even-diff-face-Ancestor
+;;                    ediff-odd-diff-face-Ancestor))
+;;            (copy-face 'secondary-selection face))))
+;;    ))
 
 (defun ediff-set-face-pixmap (face pixmap)
   "Set face pixmap on a monochrome display."
@@ -870,216 +847,410 @@ appropriate symbol: `rcs', `pcl-cvs', or `generic-sc' if you so desire."
   (if (and (ediff-has-face-support-p) ediff-emacs-p)
       (add-to-list 'facemenu-unlisted-faces face)))
       
-(defvar ediff-current-diff-face-A
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-current-diff-face-A)
-       (ediff-hide-face 'ediff-current-diff-face-A)
-       (or (face-differs-from-default-p 'ediff-current-diff-face-A)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face
-                   'foreground 'ediff-current-diff-face-A "firebrick")
-                  (ediff-set-face
-                   'background 'ediff-current-diff-face-A "pale green"))
-                 (t
-                  (if ediff-xemacs-p
-                      (copy-face 'modeline 'ediff-current-diff-face-A)
-                    (copy-face 'highlight 'ediff-current-diff-face-A))
-                  )))
-       'ediff-current-diff-face-A))
-  "Face for highlighting the selected difference in buffer A.")
-
-(defvar ediff-current-diff-face-B
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-current-diff-face-B)
-       (ediff-hide-face 'ediff-current-diff-face-B)
-       (or (face-differs-from-default-p 'ediff-current-diff-face-B)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face
-                   'foreground 'ediff-current-diff-face-B "DarkOrchid")
-                  (ediff-set-face
-                   'background 'ediff-current-diff-face-B "Yellow"))
-                 (t 
-                  (if ediff-xemacs-p
-                      (copy-face 'modeline 'ediff-current-diff-face-B)
-                    (copy-face 'highlight 'ediff-current-diff-face-B))
-                  )))
-       'ediff-current-diff-face-B))
-  "Face for highlighting the selected difference in buffer B.")
-    
+(defgroup ediff-highlighting nil
+  "Hilighting of difference regions in Ediff"
+  :prefix "ediff-"
+  :group 'ediff)
 
-(defvar ediff-current-diff-face-C
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-current-diff-face-C)
-       (ediff-hide-face 'ediff-current-diff-face-C)
-       (or (face-differs-from-default-p 'ediff-current-diff-face-C)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face
-                   'foreground 'ediff-current-diff-face-C "Navy")
-                  (ediff-set-face
-                   'background 'ediff-current-diff-face-C "Pink"))
-                 (t 
-                  (if ediff-xemacs-p
-                      (copy-face 'modeline 'ediff-current-diff-face-C)
-                    (copy-face 'highlight 'ediff-current-diff-face-C))
-                  )))
-       'ediff-current-diff-face-C))
-  "Face for highlighting the selected difference in buffer C.")
-
-(defvar ediff-current-diff-face-Ancestor
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-current-diff-face-Ancestor)
-       (ediff-hide-face 'ediff-current-diff-face-Ancestor)
-       (or (face-differs-from-default-p 'ediff-current-diff-face-Ancestor)
-           (copy-face 
-            'ediff-current-diff-face-C 'ediff-current-diff-face-Ancestor))
-       'ediff-current-diff-face-Ancestor))
-  "Face for highlighting the selected difference in the ancestor buffer.")
-
-(defvar ediff-fine-diff-pixmap "gray3"
-  "Pixmap to use for highlighting fine differences.")
-(defvar ediff-odd-diff-pixmap "gray1"
-  "Pixmap to use for highlighting odd differences.")
-(defvar ediff-even-diff-pixmap "Stipple"
-  "Pixmap to use for highlighting even differences.")
-
-(defvar ediff-fine-diff-face-A
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-fine-diff-face-A)
-       (ediff-hide-face 'ediff-fine-diff-face-A)
-       (or (face-differs-from-default-p 'ediff-fine-diff-face-A)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face 'foreground 'ediff-fine-diff-face-A
-                                  "Navy")
-                  (ediff-set-face 'background 'ediff-fine-diff-face-A
-                                  "sky blue"))
-                 (t
-                  (set-face-underline-p 'ediff-fine-diff-face-A t)
-                  (ediff-set-face-pixmap 'ediff-fine-diff-face-A
-                                         ediff-fine-diff-pixmap)
-                  )))
-       'ediff-fine-diff-face-A))
-  "Face for highlighting the refinement of the selected diff in buffer A.")
-
-(defvar ediff-fine-diff-face-B
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-fine-diff-face-B)
-       (ediff-hide-face 'ediff-fine-diff-face-B)
-       (or (face-differs-from-default-p 'ediff-fine-diff-face-B)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face 'foreground 'ediff-fine-diff-face-B "Black")
-                  (ediff-set-face 'background 'ediff-fine-diff-face-B "cyan"))
-                 (t
-                  (set-face-underline-p 'ediff-fine-diff-face-B t)
-                  (ediff-set-face-pixmap 'ediff-fine-diff-face-B
-                                         ediff-fine-diff-pixmap)
-                  )))
-       'ediff-fine-diff-face-B))
-  "Face for highlighting the refinement of the selected diff in buffer B.")
+;;(defvar ediff-current-diff-face-A
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-current-diff-face-A)
+;;     (or (face-differs-from-default-p 'ediff-current-diff-face-A)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face
+;;                 'foreground 'ediff-current-diff-face-A "firebrick")
+;;                (ediff-set-face
+;;                 'background 'ediff-current-diff-face-A "pale green"))
+;;               (t
+;;                (if ediff-xemacs-p
+;;                    (copy-face 'modeline 'ediff-current-diff-face-A)
+;;                  (copy-face 'highlight 'ediff-current-diff-face-A))
+;;                )))
+;;     'ediff-current-diff-face-A))
+;;  "Face for highlighting the selected difference in buffer A.")
+
+(defface ediff-current-diff-face-A
+  '((((class color)) (:foreground "firebrick" :background "pale green"))
+    (t (:inverse-video t)))
+  "Face for highlighting the selected difference in buffer A."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-current-diff-face-A 'ediff-current-diff-face-A)
+(ediff-hide-face 'ediff-current-diff-face-A)
+;; Until custom.el for XEmacs starts supporting :inverse-video we do this.
+;; This means that some user customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (copy-face 'modeline 'ediff-current-diff-face-A))
+
+
+
+;;(defvar ediff-current-diff-face-B
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-current-diff-face-B)
+;;     (or (face-differs-from-default-p 'ediff-current-diff-face-B)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face
+;;                 'foreground 'ediff-current-diff-face-B "DarkOrchid")
+;;                (ediff-set-face
+;;                 'background 'ediff-current-diff-face-B "Yellow"))
+;;               (t 
+;;                (if ediff-xemacs-p
+;;                    (copy-face 'modeline 'ediff-current-diff-face-B)
+;;                  (copy-face 'highlight 'ediff-current-diff-face-B))
+;;                )))
+;;     'ediff-current-diff-face-B))
+;;  "Face for highlighting the selected difference in buffer B.")
     
-(defvar ediff-fine-diff-face-C
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-fine-diff-face-C)
-       (ediff-hide-face 'ediff-fine-diff-face-C)
-       (or (face-differs-from-default-p 'ediff-fine-diff-face-C)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face 'foreground 'ediff-fine-diff-face-C "black")
-                  (ediff-set-face
-                   'background 'ediff-fine-diff-face-C "Turquoise"))
-                 (t
-                  (set-face-underline-p 'ediff-fine-diff-face-C t)
-                  (ediff-set-face-pixmap 'ediff-fine-diff-face-C
-                                         ediff-fine-diff-pixmap)
-                  )))
-       'ediff-fine-diff-face-C))
-  "Face for highlighting the refinement of the selected diff in buffer C.")
-
-(defvar ediff-fine-diff-face-Ancestor
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-fine-diff-face-Ancestor)
-       (ediff-hide-face 'ediff-fine-diff-face-Ancestor)
-       (or (face-differs-from-default-p 'ediff-fine-diff-face-Ancestor)
-           (progn
-             (copy-face
-              'ediff-fine-diff-face-C 'ediff-fine-diff-face-Ancestor)
-             (ediff-set-face-pixmap 'ediff-fine-diff-face-Ancestor
-                                    ediff-fine-diff-pixmap))
-           )))
-  "Face highlighting refinements of the selected diff in ancestor buffer.
-Presently, this is not used, as difference regions are not refined in the
-ancestor buffer.")
+(defface ediff-current-diff-face-B
+  '((((class color)) (:foreground "DarkOrchid" :background "Yellow"))
+    (t (:inverse-video t)))
+  "Face for highlighting the selected difference in buffer B."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-current-diff-face-B 'ediff-current-diff-face-B)
+(ediff-hide-face 'ediff-current-diff-face-B)
+;; Until custom.el for XEmacs starts supporting :inverse-video we do this.
+;; This means that some user customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (copy-face 'modeline 'ediff-current-diff-face-B))
+
+;;(defvar ediff-current-diff-face-C
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-current-diff-face-C)
+;;     (or (face-differs-from-default-p 'ediff-current-diff-face-C)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face
+;;                 'foreground 'ediff-current-diff-face-C "Navy")
+;;                (ediff-set-face
+;;                 'background 'ediff-current-diff-face-C "Pink"))
+;;               (t 
+;;                (if ediff-xemacs-p
+;;                    (copy-face 'modeline 'ediff-current-diff-face-C)
+;;                  (copy-face 'highlight 'ediff-current-diff-face-C))
+;;                )))
+;;     'ediff-current-diff-face-C))
+;;  "Face for highlighting the selected difference in buffer C.")
+
+(defface ediff-current-diff-face-C
+  '((((class color)) (:foreground "Navy" :background "Pink"))
+    (t (:inverse-video t)))
+  "Face for highlighting the selected difference in buffer C."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-current-diff-face-C 'ediff-current-diff-face-C)
+(ediff-hide-face 'ediff-current-diff-face-C)
+;; Until custom.el for XEmacs starts supporting :inverse-video we do this.
+;; This means that some user customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (copy-face 'modeline 'ediff-current-diff-face-C))
+
+;;(defvar ediff-current-diff-face-Ancestor
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-current-diff-face-Ancestor)
+;;     (or (face-differs-from-default-p 'ediff-current-diff-face-Ancestor)
+;;         (copy-face 
+;;          'ediff-current-diff-face-C 'ediff-current-diff-face-Ancestor))
+;;     'ediff-current-diff-face-Ancestor))
+;;  "Face for highlighting the selected difference in the ancestor buffer.")
+
+(defface ediff-current-diff-face-Ancestor
+  '((((class color)) (:foreground "Black" :background "VioletRed"))
+    (t (:inverse-video t)))
+  "Face for highlighting the selected difference in buffer Ancestor."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-current-diff-face-Ancestor 'ediff-current-diff-face-Ancestor)
+(ediff-hide-face 'ediff-current-diff-face-Ancestor)
+;; Until custom.el for XEmacs starts supporting :inverse-video we do this.
+;; This means that some user customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (copy-face 'modeline 'ediff-current-diff-face-Ancestor))
+
+;;(defvar ediff-fine-diff-pixmap "gray3"
+;;  "Pixmap to use for highlighting fine differences.")
+;;(defvar ediff-odd-diff-pixmap "gray1"
+;;  "Pixmap to use for highlighting odd differences.")
+;;(defvar ediff-even-diff-pixmap "Stipple"
+;;  "Pixmap to use for highlighting even differences.")
+
+;;(defvar ediff-fine-diff-face-A
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-fine-diff-face-A)
+;;     (or (face-differs-from-default-p 'ediff-fine-diff-face-A)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face 'foreground 'ediff-fine-diff-face-A
+;;                                "Navy")
+;;                (ediff-set-face 'background 'ediff-fine-diff-face-A
+;;                                "sky blue"))
+;;               (t
+;;                (set-face-underline-p 'ediff-fine-diff-face-A t)
+;;                (ediff-set-face-pixmap 'ediff-fine-diff-face-A
+;;                                       ediff-fine-diff-pixmap)
+;;                )))
+;;     'ediff-fine-diff-face-A))
+;;  "Face for highlighting the refinement of the selected diff in buffer A.")
+
+
+(defface ediff-fine-diff-face-A
+  '((((class color)) (:foreground "Navy" :background "sky blue"))
+    (t (:underline t :stipple "gray3")))
+  "Face for highlighting the refinement of the selected diff in buffer A."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-fine-diff-face-A 'ediff-fine-diff-face-A)
+(ediff-hide-face 'ediff-fine-diff-face-A)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-fine-diff-face-A "gray3"))
+
+;;(defvar ediff-fine-diff-face-B
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-fine-diff-face-B)
+;;     (or (face-differs-from-default-p 'ediff-fine-diff-face-B)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face 'foreground 'ediff-fine-diff-face-B "Black")
+;;                (ediff-set-face 'background 'ediff-fine-diff-face-B "cyan"))
+;;               (t
+;;                (set-face-underline-p 'ediff-fine-diff-face-B t)
+;;                (ediff-set-face-pixmap 'ediff-fine-diff-face-B
+;;                                       ediff-fine-diff-pixmap)
+;;                )))
+;;     'ediff-fine-diff-face-B))
+;;  "Face for highlighting the refinement of the selected diff in buffer B.")
+
+(defface ediff-fine-diff-face-B
+  '((((class color)) (:foreground "Black" :background "cyan"))
+    (t (:underline t :stipple "gray3")))
+  "Face for highlighting the refinement of the selected diff in buffer B."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-fine-diff-face-B 'ediff-fine-diff-face-B)
+(ediff-hide-face 'ediff-fine-diff-face-B)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-fine-diff-face-B "gray3"))
     
-(defvar ediff-even-diff-face-A
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-even-diff-face-A)
-       (ediff-hide-face 'ediff-even-diff-face-A)
-       (or (face-differs-from-default-p 'ediff-even-diff-face-A)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face
-                   'foreground 'ediff-even-diff-face-A "black")
-                  (ediff-set-face
-                   'background 'ediff-even-diff-face-A "light grey"))
-                 (t 
-                  (copy-face 'italic 'ediff-even-diff-face-A)
-                  (ediff-set-face-pixmap 'ediff-even-diff-face-A
-                                         ediff-even-diff-pixmap)
-                  )))
-       'ediff-even-diff-face-A))
-  "Face used to highlight even-numbered differences in buffer A.")
+;;(defvar ediff-fine-diff-face-C
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-fine-diff-face-C)
+;;     (or (face-differs-from-default-p 'ediff-fine-diff-face-C)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face 'foreground 'ediff-fine-diff-face-C "black")
+;;                (ediff-set-face
+;;                 'background 'ediff-fine-diff-face-C "Turquoise"))
+;;               (t
+;;                (set-face-underline-p 'ediff-fine-diff-face-C t)
+;;                (ediff-set-face-pixmap 'ediff-fine-diff-face-C
+;;                                       ediff-fine-diff-pixmap)
+;;                )))
+;;     'ediff-fine-diff-face-C))
+;;  "Face for highlighting the refinement of the selected diff in buffer C.")
+
+(defface ediff-fine-diff-face-C
+  '((((class color)) (:foreground "Black" :background "Turquoise"))
+    (t (:underline t :stipple "gray3")))
+  "Face for highlighting the refinement of the selected diff in buffer C."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-fine-diff-face-C 'ediff-fine-diff-face-C)
+(ediff-hide-face 'ediff-fine-diff-face-C)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-fine-diff-face-C "gray3"))
+
+;;(defvar ediff-fine-diff-face-Ancestor
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-fine-diff-face-Ancestor)
+;;     (ediff-hide-face 'ediff-fine-diff-face-Ancestor)
+;;     (or (face-differs-from-default-p 'ediff-fine-diff-face-Ancestor)
+;;         (progn
+;;           (copy-face
+;;            'ediff-fine-diff-face-C 'ediff-fine-diff-face-Ancestor)
+;;           (ediff-set-face-pixmap 'ediff-fine-diff-face-Ancestor
+;;                                  ediff-fine-diff-pixmap))
+;;         )))
+;;  "Face highlighting refinements of the selected diff in ancestor buffer.
+;;Presently, this is not used, as difference regions are not refined in the
+;;ancestor buffer.")
+
+(defface ediff-fine-diff-face-Ancestor
+  '((((class color)) (:foreground "Black" :background "Green"))
+    (t (:underline t :stipple "gray3")))
+  "Face for highlighting the refinement of the selected diff in the ancestor buffer.
+At present, this face is not used and no fine differences are computed for the
+ancestor buffer."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-fine-diff-face-Ancestor 'ediff-fine-diff-face-Ancestor)
+(ediff-hide-face 'ediff-fine-diff-face-Ancestor)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap
+     'ediff-fine-diff-face-Ancestor "gray3"))
+    
+;;(defvar ediff-even-diff-face-A
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-even-diff-face-A)
+;;     (or (face-differs-from-default-p 'ediff-even-diff-face-A)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face
+;;                 'foreground 'ediff-even-diff-face-A "black")
+;;                (ediff-set-face
+;;                 'background 'ediff-even-diff-face-A "light grey"))
+;;               (t 
+;;                (copy-face 'italic 'ediff-even-diff-face-A)
+;;                (ediff-set-face-pixmap 'ediff-even-diff-face-A
+;;                                       ediff-even-diff-pixmap)
+;;                )))
+;;     'ediff-even-diff-face-A))
+;;  "Face used for highlighting even-numbered differences in buffer A.")
+
+(defface ediff-even-diff-face-A
+  '((((class color)) (:foreground "Black" :background "light grey"))
+    (t (:italic t :stipple "Stipple")))
+  "Face for highlighting even-numbered non-current differences in buffer A."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-even-diff-face-A 'ediff-even-diff-face-A)
+(ediff-hide-face 'ediff-even-diff-face-A)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-even-diff-face-A "Stipple"))
       
-(defvar ediff-even-diff-face-B
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-even-diff-face-B)
-       (ediff-hide-face 'ediff-even-diff-face-B)
-       (or (face-differs-from-default-p 'ediff-even-diff-face-B)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face
-                   'foreground 'ediff-even-diff-face-B "White")
-                  (ediff-set-face
-                   'background 'ediff-even-diff-face-B "Gray"))
-                 (t 
-                  (copy-face 'italic 'ediff-even-diff-face-B)
-                  (ediff-set-face-pixmap 'ediff-even-diff-face-B
-                                         ediff-even-diff-pixmap)
-                  )))
-       'ediff-even-diff-face-B))
-  "Face used to highlight even-numbered differences in buffer B.")
+;;(defvar ediff-even-diff-face-B
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-even-diff-face-B)
+;;     (or (face-differs-from-default-p 'ediff-even-diff-face-B)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face
+;;                 'foreground 'ediff-even-diff-face-B "White")
+;;                (ediff-set-face
+;;                 'background 'ediff-even-diff-face-B "Gray"))
+;;               (t 
+;;                (copy-face 'italic 'ediff-even-diff-face-B)
+;;                (ediff-set-face-pixmap 'ediff-even-diff-face-B
+;;                                       ediff-even-diff-pixmap)
+;;                )))
+;;     'ediff-even-diff-face-B))
+;;  "Face used for highlighting even-numbered differences in buffer B.")
+
+(defface ediff-even-diff-face-B
+  '((((class color)) (:foreground "White" :background "Grey"))
+    (t (:italic t :stipple "Stipple")))
+  "Face for highlighting even-numbered non-current differences in buffer B."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-even-diff-face-B 'ediff-even-diff-face-B)
+(ediff-hide-face 'ediff-even-diff-face-B)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-even-diff-face-B "Stipple"))
     
-(defvar ediff-even-diff-face-C
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-even-diff-face-C)
-       (ediff-hide-face 'ediff-even-diff-face-C)
-       (or (face-differs-from-default-p 'ediff-even-diff-face-C)
-           (progn
-             (copy-face 'ediff-even-diff-face-A 'ediff-even-diff-face-C)
-             (ediff-set-face-pixmap 'ediff-even-diff-face-C
-                                    ediff-even-diff-pixmap)))
-       'ediff-even-diff-face-C))
-  "Face used to highlight even-numbered differences in buffer C.")
-
-(defvar ediff-even-diff-face-Ancestor
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-even-diff-face-Ancestor)
-       (ediff-hide-face 'ediff-even-diff-face-Ancestor)
-       (or (face-differs-from-default-p 'ediff-even-diff-face-Ancestor)
-           (progn
-             (copy-face
-              'ediff-even-diff-face-C 'ediff-even-diff-face-Ancestor)
-             (ediff-set-face-pixmap 'ediff-even-diff-face-Ancestor
-                                    ediff-even-diff-pixmap)))
-       'ediff-even-diff-face-Ancestor))
-  "Face highlighting even-numbered differences in the ancestor buffer.")
+;;(defvar ediff-even-diff-face-C
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-even-diff-face-C)
+;;     (ediff-hide-face 'ediff-even-diff-face-C)
+;;     (or (face-differs-from-default-p 'ediff-even-diff-face-C)
+;;         (progn
+;;           (copy-face 'ediff-even-diff-face-A 'ediff-even-diff-face-C)
+;;           (ediff-set-face-pixmap 'ediff-even-diff-face-C
+;;                                  ediff-even-diff-pixmap)))
+;;     'ediff-even-diff-face-C))
+;;  "Face used for highlighting even-numbered differences in buffer C.")
+
+(defface ediff-even-diff-face-C
+  '((((class color)) (:foreground "Black" :background "light grey"))
+    (t (:italic t :stipple "Stipple")))
+  "Face for highlighting even-numbered non-current differences in buffer C."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-even-diff-face-C 'ediff-even-diff-face-C)
+(ediff-hide-face 'ediff-even-diff-face-C)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-even-diff-face-C "Stipple"))
+
+;;(defvar ediff-even-diff-face-Ancestor
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-even-diff-face-Ancestor)
+;;     (ediff-hide-face 'ediff-even-diff-face-Ancestor)
+;;     (or (face-differs-from-default-p 'ediff-even-diff-face-Ancestor)
+;;         (progn
+;;           (copy-face
+;;            'ediff-even-diff-face-C 'ediff-even-diff-face-Ancestor)
+;;           (ediff-set-face-pixmap 'ediff-even-diff-face-Ancestor
+;;                                  ediff-even-diff-pixmap)))
+;;     'ediff-even-diff-face-Ancestor))
+;;  "Face highlighting even-numbered differences in the ancestor buffer.")
+
+(defface ediff-even-diff-face-Ancestor
+  '((((class color)) (:foreground "White" :background "Grey"))
+    (t (:italic t :stipple "Stipple")))
+  "Face for highlighting even-numbered non-current differences in the ancestor buffer."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-even-diff-face-Ancestor 'ediff-even-diff-face-Ancestor)
+(ediff-hide-face 'ediff-even-diff-face-Ancestor)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap
+     'ediff-even-diff-face-Ancestor "Stipple"))
 
 ;; Association between buffer types and even-diff-face symbols
 (defconst ediff-even-diff-face-alist
@@ -1088,69 +1259,130 @@ ancestor buffer.")
     (C . ediff-even-diff-face-C)
     (Ancestor . ediff-even-diff-face-Ancestor)))
 
-(defvar ediff-odd-diff-face-A
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-odd-diff-face-A)
-       (ediff-hide-face 'ediff-odd-diff-face-A)
-       (or (face-differs-from-default-p 'ediff-odd-diff-face-A)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face
-                   'foreground 'ediff-odd-diff-face-A "White")
-                  (ediff-set-face
-                   'background 'ediff-odd-diff-face-A "Gray"))
-                 (t 
-                  (copy-face 'italic 'ediff-odd-diff-face-A)
-                  (ediff-set-face-pixmap 'ediff-odd-diff-face-A
-                                         ediff-odd-diff-pixmap)
-                  )))
-       'ediff-odd-diff-face-A))
-  "Face used to highlight odd-numbered differences in buffer A.")
+;;(defvar ediff-odd-diff-face-A
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-odd-diff-face-A)
+;;     (or (face-differs-from-default-p 'ediff-odd-diff-face-A)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face
+;;                 'foreground 'ediff-odd-diff-face-A "White")
+;;                (ediff-set-face
+;;                 'background 'ediff-odd-diff-face-A "Gray"))
+;;               (t 
+;;                (copy-face 'italic 'ediff-odd-diff-face-A)
+;;                (ediff-set-face-pixmap 'ediff-odd-diff-face-A
+;;                                       ediff-odd-diff-pixmap)
+;;                )))
+;;     'ediff-odd-diff-face-A))
+;;  "Face used for highlighting odd-numbered differences in buffer A.")
+
+(defface ediff-odd-diff-face-A
+  '((((class color)) (:foreground "White" :background "Grey"))
+    (t (:italic t :stipple "gray1")))
+  "Face for highlighting odd-numbered non-current differences in buffer A."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-odd-diff-face-A 'ediff-odd-diff-face-A)
+(ediff-hide-face 'ediff-odd-diff-face-A)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-odd-diff-face-A "gray1"))
       
-(defvar ediff-odd-diff-face-B
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-odd-diff-face-B)
-       (ediff-hide-face 'ediff-odd-diff-face-B)
-       (or (face-differs-from-default-p 'ediff-odd-diff-face-B)
-           (cond ((ediff-color-display-p)
-                  (ediff-set-face
-                   'foreground 'ediff-odd-diff-face-B "Black")
-                  (ediff-set-face
-                   'background 'ediff-odd-diff-face-B "light grey"))
-                 (t 
-                  (copy-face 'italic 'ediff-odd-diff-face-B)
-                  (ediff-set-face-pixmap 'ediff-odd-diff-face-B
-                                         ediff-odd-diff-pixmap)
-                  )))
-       'ediff-odd-diff-face-B))
-  "Face used to highlight odd-numbered differences in buffer B.")
+;;(defvar ediff-odd-diff-face-B
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-odd-diff-face-B)
+;;     (ediff-hide-face 'ediff-odd-diff-face-B)
+;;     (or (face-differs-from-default-p 'ediff-odd-diff-face-B)
+;;         (cond ((ediff-color-display-p)
+;;                (ediff-set-face
+;;                 'foreground 'ediff-odd-diff-face-B "Black")
+;;                (ediff-set-face
+;;                 'background 'ediff-odd-diff-face-B "light grey"))
+;;               (t 
+;;                (copy-face 'italic 'ediff-odd-diff-face-B)
+;;                (ediff-set-face-pixmap 'ediff-odd-diff-face-B
+;;                                       ediff-odd-diff-pixmap)
+;;                )))
+;;     'ediff-odd-diff-face-B))
+;;  "Face used for highlighting odd-numbered differences in buffer B.")
+
+(defface ediff-odd-diff-face-B
+  '((((class color)) (:foreground "Black" :background "light grey"))
+    (t (:italic t :stipple "gray1")))
+  "Face for highlighting odd-numbered non-current differences in buffer B."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-odd-diff-face-B 'ediff-odd-diff-face-B)
+(ediff-hide-face 'ediff-odd-diff-face-B)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-odd-diff-face-B "gray1"))
     
-(defvar ediff-odd-diff-face-C
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-odd-diff-face-C)
-       (ediff-hide-face 'ediff-odd-diff-face-C)
-       (or (face-differs-from-default-p 'ediff-odd-diff-face-C)
-           (progn
-             (copy-face 'ediff-odd-diff-face-A 'ediff-odd-diff-face-C)
-             (ediff-set-face-pixmap 'ediff-odd-diff-face-C
-                                    ediff-odd-diff-pixmap)))
-       'ediff-odd-diff-face-C))
-  "Face used to highlight odd-numbered differences in buffer C.")
-
-(defvar ediff-odd-diff-face-Ancestor 
-  (if (ediff-has-face-support-p)
-      (progn
-       (make-face 'ediff-odd-diff-face-Ancestor)
-       (ediff-hide-face 'ediff-odd-diff-face-Ancestor)
-       (or (face-differs-from-default-p 'ediff-odd-diff-face-Ancestor)
-           (progn
-             (copy-face 'ediff-odd-diff-face-C 'ediff-odd-diff-face-Ancestor)
-             (ediff-set-face-pixmap 'ediff-odd-diff-face-Ancestor
-                                    ediff-odd-diff-pixmap)))
-       'ediff-odd-diff-face-Ancestor))
-  "Face used to highlight even-numbered differences in the ancestor buffer.")
+;;(defvar ediff-odd-diff-face-C
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-odd-diff-face-C)
+;;     (or (face-differs-from-default-p 'ediff-odd-diff-face-C)
+;;         (progn
+;;           (copy-face 'ediff-odd-diff-face-A 'ediff-odd-diff-face-C)
+;;           (ediff-set-face-pixmap 'ediff-odd-diff-face-C
+;;                                  ediff-odd-diff-pixmap)))
+;;     'ediff-odd-diff-face-C))
+;;  "Face used for highlighting odd-numbered differences in buffer C.")
+
+(defface ediff-odd-diff-face-C
+  '((((class color)) (:foreground "White" :background "Grey"))
+    (t (:italic t :stipple "gray1")))
+  "Face for highlighting odd-numbered non-current differences in buffer C."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-odd-diff-face-C 'ediff-odd-diff-face-C)
+(ediff-hide-face 'ediff-odd-diff-face-C)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-odd-diff-face-C "gray1"))
+
+;;(defvar ediff-odd-diff-face-Ancestor 
+;;  (if (ediff-has-face-support-p)
+;;      (progn
+;;     (make-face 'ediff-odd-diff-face-Ancestor)
+;;     (or (face-differs-from-default-p 'ediff-odd-diff-face-Ancestor)
+;;         (progn
+;;           (copy-face 'ediff-odd-diff-face-C 'ediff-odd-diff-face-Ancestor)
+;;           (ediff-set-face-pixmap 'ediff-odd-diff-face-Ancestor
+;;                                  ediff-odd-diff-pixmap)))
+;;     'ediff-odd-diff-face-Ancestor))
+;;  "Face used for highlighting even-numbered differences in the ancestor buffer.")
+
+(defface ediff-odd-diff-face-Ancestor
+  '((((class color)) (:foreground "Black" :background "light grey"))
+    (t (:italic t :stipple "gray1")))
+  "Face for highlighting odd-numbered non-current differences in the ancestor buffer."
+  :group 'ediff-highlighting)
+;; An internal variable. Ediff takes the face from here. When unhighlighting,
+;; this variable is set to nil, then again to the appropriate face.
+(defvar ediff-odd-diff-face-Ancestor 'ediff-odd-diff-face-Ancestor)
+(ediff-hide-face 'ediff-odd-diff-face-Ancestor)
+;; Until custom.el for XEmacs starts supporting :stipple we do this.
+;; This means that some use customization may be trashed.
+(if (and ediff-xemacs-p
+        (ediff-has-face-support-p)
+        (not (ediff-color-display-p))) 
+    (ediff-set-face-pixmap 'ediff-odd-diff-face-Ancestor "gray1"))
 
 ;; Association between buffer types and odd-diff-face symbols
 (defconst ediff-odd-diff-face-alist

diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el
index 98d41109baec61edf9f579383ce342f7a23aa20c..7fce125bc8eca98b7fb1afa428a2b9554f53956b 100644 (file)
--- a/lisp/ediff-mult.el
+++ b/lisp/ediff-mult.el
@@ -93,7 +93,7 @@
 (provide 'ediff-mult)
 
 (defgroup ediff-mult nil
-  "Multi-file and multi-buffer processing in ediff"
+  "Multi-file and multi-buffer processing in Ediff"
   :prefix "ediff-"
   :group 'ediff)
 

diff --git a/lisp/ediff.el b/lisp/ediff.el
index d27b08b159e8c6808dc59968fbec6492e7d692ed..dd69b41649c7c3061ef605319e69db3f6efd651d 100644 (file)
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -7,7 +7,7 @@
 ;; Keywords: comparing, merging, patching, version control.
 
 (defconst ediff-version "2.67" "The current version of Ediff")
-(defconst ediff-date "July 31, 1997" "Date of last update")  
+(defconst ediff-date "August 7, 1997" "Date of last update")  
 
 
 ;; This file is part of GNU Emacs.

diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 30d12695223846bc91ed1d1914887b0d977859dd..18878d8328bbe58dc2ed34edc9357b3074be8853 100644 (file)
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -692,6 +692,15 @@ Related buffers can be cycled through via :R and :P commands."
 \f
 ;;; Face-saving tricks
 
+;;(defcustom viper-replace-overlay-pixmap "gray3"
+;;  "Pixmap to use for search face on non-color displays."
+;;  :type 'string
+;;  :group 'viper)
+;;(defcustom viper-search-face-pixmap "gray3"
+;;  "Pixmap to use for search face on non-color displays."
+;;  :type 'string
+;;  :group 'viper)
+
 (defun viper-hide-face (face)
   (if (and (viper-has-face-support-p) viper-emacs-p)
       (add-to-list 'facemenu-unlisted-faces face)))

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index d9e39281a70ab310b226671a797517740ac6c219..9a11e0d35e959d6f25d8742317f26f1a4b77ecaf 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1130,7 +1130,7 @@ Must be called in order for changes to `viper-syntax-preference' to take effect.
    'forward 
    (cond ((eq viper-syntax-preference 'strict-vi)
          "")
-        (t viper-ALPHA-char-class ))
+        (t viper-ALPHA-char-class))
    (cond ((eq viper-syntax-preference 'strict-vi)
          (concat viper-strict-ALPHA-chars addl-chars))
         (t addl-chars))))
@@ -1141,7 +1141,7 @@ Must be called in order for changes to `viper-syntax-preference' to take effect.
    'backward 
    (cond ((eq viper-syntax-preference 'strict-vi)
          "")
-        (t viper-ALPHA-char-class ))
+        (t viper-ALPHA-char-class))
    (cond ((eq viper-syntax-preference 'strict-vi)
          (concat viper-strict-ALPHA-chars addl-chars))
         (t addl-chars))))

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index 84fac506164c03490e4085772f6538e32a9c4f71..269c54d18a4549ba56b516d0684ca923b510baad 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -8,7 +8,7 @@
 
 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
 
-(defconst viper-version "2.96 of August 1, 1997"
+(defconst viper-version "2.96 of August 7, 1997"
   "The current version of Viper")
 
 ;; This file is part of GNU Emacs.