comparison lisp/ediff-init.el @ 21940:f7e788ea680b

new version

21939:e9014d2166a4

(defvar ediff-grab-mouse)
(defvar ediff-mouse-pixel-position)
(defvar ediff-mouse-pixel-threshold)
(defvar ediff-whitespace)
(defvar ediff-multiframe)

(and noninteractive
     (eval-when-compile
	 (load "ange-ftp" 'noerror)))
;; end pacifier

;; in XEmacs: device-type is tty on tty and stream in batch.
(defun ediff-window-display-p ()
  (and (ediff-device-type) (not (memq (ediff-device-type) '(tty pc stream)))))

;; test if supports faces
;; ediff-force-faces is for those devices that support faces, but we don't know
;; this yet
(defun ediff-has-face-support-p ()
  (cond ((ediff-window-display-p))
	(ediff-force-faces)
	(ediff-emacs-p (memq (ediff-device-type) '(pc)))
	(ediff-xemacs-p (memq (ediff-device-type) '(tty pc)))))

  
;; Defines SYMBOL as an advertised local variable.  
;; Performs a defvar, then executes `make-variable-buffer-local' on
;; the variable.  Also sets the `permanent-local' property,
;; so that `kill-all-local-variables' (called by major-mode setting
;; commands) won't destroy Ediff control variables.

  :type 'string
  :tag  "Region after-flag in the middle of line"
  :group 'ediff)

  
(ediff-defvar-local ediff-use-faces t 
  "If t, differences are highlighted using faces, if device supports faces.
If nil, differences are highlighted using ASCII flags, ediff-before-flag
and ediff-after-flag.  On a non-window system, differences are always
highlighted using ASCII flags.
This variable can be set either in .emacs or toggled interactively.
Use `setq-default' if setting it in .emacs")

;; this indicates that diff regions are word-size, so fine diffs are
;; permanently nixed; used in ediff-windows-wordwise and ediff-regions-wordwise
(ediff-defvar-local ediff-word-mode nil "")
;; Name of the job (ediff-files, ediff-windows, etc.)

Supplying a prefix argument to the quit command `q' temporarily reverses the
meaning of this variable."
  :type 'boolean
  :group 'ediff)

(ediff-defvar-local ediff-highlight-all-diffs t
  "If nil, only the selected differences are highlighted.
This variable can be set either in .emacs or toggled interactively, using
ediff-toggle-hilit. Use `setq-default' to set it.") 

;; A var local to each control panel buffer.  Indicates highlighting style
;; in effect for this buffer: `face', `ascii', nil -- temporarily
;; unhighlighted, `off' -- turned off \(on a dumb terminal only\).
(ediff-defvar-local ediff-highlighting-style nil "")

	  (diff-num ; non-current
	   (format "Difference region %S -- non-current" (1+ diff-num)))
	  (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-pixmap (face pixmap)
  "Set face pixmap on a monochrome display."
  (if (and (ediff-window-display-p) (not (ediff-color-display-p)))
      (condition-case nil

(defun ediff-hide-face (face)
  (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)
;;	(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."

	 (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.")
    
(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)

(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."

(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."

(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."

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-A'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-A)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-B'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-B)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (ediff-set-face-pixmap 'ediff-fine-diff-face-B "gray3"))
    
;;(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)

  "Face for highlighting the fine differences in buffer C.
DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-C'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-C)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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.

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-Ancestor'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-Ancestor)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-A'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-A)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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)
;;	(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-B'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-B)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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 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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-C'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-C)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-Ancestor'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-Ancestor)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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
  '((A . ediff-even-diff-face-A)
    (B . ediff-even-diff-face-B)
    (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)
;;	(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."

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-A'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-A)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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 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."

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-B'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-B)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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)
;;	(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-C'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-C)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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)

  "Face for highlighting odd-numbered non-current differences in buffer Ancestor.
DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-Ancestor'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-Ancestor)

;;;; Until custom.el for XEmacs starts supporting :stipple 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))) 
;;    (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
  '((A . ediff-odd-diff-face-A)
    (B . ediff-odd-diff-face-B)

(defcustom ediff-autostore-merges  'group-jobs-only
  "*Save the results of merge jobs automatically.
Nil means don't save automatically. t means always save. Anything but nil or t
means save automatically only if the merge job is part of a group of jobs, such
as `ediff-merge-directories' or `ediff-merge-directory-revisions'."
  :type '(choice (const nil) (const t) (const group-jobs-only))
  :group 'ediff-merge)
(make-variable-buffer-local 'ediff-autostore-merges)

;; file where the result of the merge is to be saved. used internally

21940:f7e788ea680b

(defvar ediff-grab-mouse)
(defvar ediff-mouse-pixel-position)
(defvar ediff-mouse-pixel-threshold)
(defvar ediff-whitespace)
(defvar ediff-multiframe)
(defvar ediff-use-toolbar-p)

(and noninteractive
     (eval-when-compile
	 (load "ange-ftp" 'noerror)))
;; end pacifier

;; in XEmacs: device-type is tty on tty and stream in batch.
(defun ediff-window-display-p ()
  (and (ediff-device-type) (not (memq (ediff-device-type) '(tty pc stream)))))

;; test if supports faces
(defun ediff-has-face-support-p ()
  (cond ((ediff-window-display-p))
	(ediff-force-faces)
	(ediff-emacs-p (memq (ediff-device-type) '(pc)))
	(ediff-xemacs-p (memq (ediff-device-type) '(tty pc)))))

(defun ediff-has-toolbar-support-p ()
  (and ediff-xemacs-p
       (featurep 'toolbar)
       (console-on-window-system-p)))

(defun ediff-use-toolbar-p ()
  (and (ediff-has-toolbar-support-p)	;Can it do it ?
       (boundp 'ediff-use-toolbar-p)
       ediff-use-toolbar-p))		;Does the user want it ?

;; Defines SYMBOL as an advertised local variable.  
;; Performs a defvar, then executes `make-variable-buffer-local' on
;; the variable.  Also sets the `permanent-local' property,
;; so that `kill-all-local-variables' (called by major-mode setting
;; commands) won't destroy Ediff control variables.

  :type 'string
  :tag  "Region after-flag in the middle of line"
  :group 'ediff)

  
(ediff-defvar-local ediff-use-faces nil "") 
(defcustom ediff-use-faces t 
  "If t, differences are highlighted using faces, if device supports faces.
If nil, differences are highlighted using ASCII flags, ediff-before-flag
and ediff-after-flag.  On a non-window system, differences are always
highlighted using ASCII flags."
  :type 'boolean
  :group 'ediff-highlighting)

;; this indicates that diff regions are word-size, so fine diffs are
;; permanently nixed; used in ediff-windows-wordwise and ediff-regions-wordwise
(ediff-defvar-local ediff-word-mode nil "")
;; Name of the job (ediff-files, ediff-windows, etc.)

Supplying a prefix argument to the quit command `q' temporarily reverses the
meaning of this variable."
  :type 'boolean
  :group 'ediff)

(ediff-defvar-local ediff-highlight-all-diffs nil "")
(defcustom ediff-highlight-all-diffs t
  "If nil, only the selected differences are highlighted.
Otherwise, all difference regions are highlighted, but the selected region is
shown in brighter colors."
  :type 'boolean
  :group 'ediff-highlighting)

;; A var local to each control panel buffer.  Indicates highlighting style
;; in effect for this buffer: `face', `ascii', nil -- temporarily
;; unhighlighted, `off' -- turned off \(on a dumb terminal only\).
(ediff-defvar-local ediff-highlighting-style nil "")

	  (diff-num ; non-current
	   (format "Difference region %S -- non-current" (1+ diff-num)))
	  (t ""))   ; none
    ))


(defun ediff-set-face-pixmap (face pixmap)
  "Set face pixmap on a monochrome display."
  (if (and (ediff-window-display-p) (not (ediff-color-display-p)))
      (condition-case nil

(defun ediff-hide-face (face)
  (if (and (ediff-has-face-support-p) ediff-emacs-p)
      (add-to-list 'facemenu-unlisted-faces face)))
      


(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."

	 (not (ediff-color-display-p))) 
    (copy-face 'modeline 'ediff-current-diff-face-A))



(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)

(if (and ediff-xemacs-p
	 (ediff-has-face-support-p)
	 (not (ediff-color-display-p))) 
    (copy-face 'modeline 'ediff-current-diff-face-B))


(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."

(if (and ediff-xemacs-p
	 (ediff-has-face-support-p)
	 (not (ediff-color-display-p))) 
    (copy-face 'modeline 'ediff-current-diff-face-C))


(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."

(if (and ediff-xemacs-p
	 (ediff-has-face-support-p)
	 (not (ediff-color-display-p))) 
    (copy-face 'modeline 'ediff-current-diff-face-Ancestor))


(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."

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-A'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-A)

(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-B'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-B)

(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)

  "Face for highlighting the fine differences in buffer C.
DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-C'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-C)

(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.

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-fine-diff-face-Ancestor'
this variable represents.")
(ediff-hide-face 'ediff-fine-diff-face-Ancestor)

(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-A'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-A)

(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-B'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-B)

(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-C'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-C)

(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-even-diff-face-Ancestor'
this variable represents.")
(ediff-hide-face 'ediff-even-diff-face-Ancestor)

;; Association between buffer types and even-diff-face symbols
(defconst ediff-even-diff-face-alist
  '((A . ediff-even-diff-face-A)
    (B . ediff-even-diff-face-B)
    (C . ediff-even-diff-face-C)
    (Ancestor . ediff-even-diff-face-Ancestor)))

(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."

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-A'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-A)


(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."

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-B'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-B)

(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)

DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-C'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-C)

(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)

  "Face for highlighting odd-numbered non-current differences in buffer Ancestor.
DO NOT CHANGE this variable. Instead, use the customization
widget to customize the actual face object `ediff-odd-diff-face-Ancestor'
this variable represents.")
(ediff-hide-face 'ediff-odd-diff-face-Ancestor)

;; Association between buffer types and odd-diff-face symbols
(defconst ediff-odd-diff-face-alist
  '((A . ediff-odd-diff-face-A)
    (B . ediff-odd-diff-face-B)

(defcustom ediff-autostore-merges  'group-jobs-only
  "*Save the results of merge jobs automatically.
Nil means don't save automatically. t means always save. Anything but nil or t
means save automatically only if the merge job is part of a group of jobs, such
as `ediff-merge-directory' or `ediff-merge-directory-revisions'."
  :type '(choice (const nil) (const t) (const group-jobs-only))
  :group 'ediff-merge)
(make-variable-buffer-local 'ediff-autostore-merges)

;; file where the result of the merge is to be saved. used internally