comparison lisp/ediff-util.el @ 43714:1c34b0b56515

* ediff-init.el: comments. * ediff-hook.el: Got rid of autoloads. Not needed, since the hook is loaded. * ediff-mult.el (ediff-intersect-directories, ediff-prepare-meta-buffer,ediff-get-directory-files-under-revision): cleanup. (ediff-draw-dir-diffs): now supports the "C" command in directory difference buffer. (ediff-dir-diff-copy-file): new function that implements copying of files from one Ediff dir to another (ediff-bury-dir-diffs-buffer): kills the buffer instead. (ediff-append-custom-diff): better error msgs. * ediff-util.el (ediff-compute-custom-diffs-maybe): buglet fix. (ediff-inferior-compare-regions): Use ediff-clone-buffer-for-region-comparison. Better and simpler interface. * ediff.el (ediff-directories-internal): Cleanup. (ediff-clone-buffer-for-region-comparison): Better interface.

43713:f92c4d87863a

		    ediff-diff-buffer)
		   (t (error "Output from `diff' not found"))))
	    )
    (save-buffer)))

(defun ediff-compute-custom-diffs-maybe ()
  (let ((buf-A-file-name (buffer-file-name ediff-buffer-A))
	(buf-B-file-name (buffer-file-name ediff-buffer-B))
	file-A file-B)
    (if (stringp buf-A-file-name)

			 
    (or (ediff-buffer-live-p ediff-custom-diff-buffer)
	(setq ediff-custom-diff-buffer
	      (get-buffer-create
	       (ediff-unique-buffer-name "*ediff-custom-diff" "*"))))
    (ediff-exec-process
     ediff-custom-diff-program ediff-custom-diff-buffer 'synchronize
     ediff-custom-diff-options file-A file-B)
    ;; put the diff file in diff-mode, if it is available
    (if (fboundp 'diff-mode)

	quit-now
	begA begB endA endB bufA bufB)

    (cond ((ediff-merge-job)
	   (setq bufB ediff-buffer-C)
	   (while (cond ((eq answer ?A)
			 (setq bufA ediff-buffer-A
			       possibilities '(?B))
			 nil)
			((eq answer ?B)

			(t (beep 1)
			   (message "Valid values are A or B")
			   (sit-for 2)
			   t))
	     (let ((cursor-in-echo-area t))
	       (message "Which buffer to compare to the merge buffer (A/B)? ")
	       (setq answer (capitalize (read-char-exclusive))))))

	  ((ediff-3way-comparison-job)
	   (while (cond ((memq answer possibilities)
			 (setq possibilities (delq answer possibilities))
			 (setq bufA
			       (eval
				(ediff-get-symbol-from-alist

			    (mapconcat 'char-to-string possibilities " or "))
			   (sit-for 2)
			   t))
	     (let ((cursor-in-echo-area t))
	       (message "Enter the 1st buffer you want to compare (%s): "
			(mapconcat 'char-to-string possibilities "/"))
	       (setq answer (capitalize (read-char-exclusive)))))
	   (setq answer "") ; silence error msg
	   (while (cond ((memq answer possibilities)
			 (setq possibilities (delq answer possibilities))
			 (setq bufB

	  (t ; 2way comparison
	   (setq bufA ediff-buffer-A
		 bufB ediff-buffer-B
		 possibilities nil)))

    (ediff-with-current-buffer bufA
      (or (mark t)
	  (error "You forgot to specify a region in buffer %s" (buffer-name)))
      (setq begA (region-beginning)
	    endA (region-end))
      (goto-char begA)
      (beginning-of-line)
      (setq begA (point))
      (goto-char endA)
      (end-of-line)
      (or (eobp) (forward-char)) ; include the newline char
      (setq endA (point)))
    (ediff-with-current-buffer bufB
      (or (mark t)
	  (error "You forgot to specify a region in buffer %s" (buffer-name)))
      (setq begB (region-beginning)
	    endB (region-end))
      (goto-char begB)
      (beginning-of-line)
      (setq begB (point))
      (goto-char endB)
      (end-of-line)
      (or (eobp) (forward-char)) ; include the newline char
      (setq endB (point)))

    (ediff-unselect-and-select-difference
     ediff-current-difference 'unselect-only)
    (ediff-paint-background-regions 'unhighlight)

    (ediff-with-current-buffer bufA
      (goto-char begA)
      (set-mark endA)
      (narrow-to-region begA endA)
      ;; (ediff-activate-mark)
      )
    ;; (sit-for 0)
    (ediff-with-current-buffer bufB
      (goto-char begB)
      (set-mark endB)
      (narrow-to-region begB endB)
      ;; (ediff-activate-mark)
      )
    ;; (sit-for 0)
    
    ;; At this point, possibilities contains either the window char A/B/C
    ;; that was not selected, or it is nil.  We delete the window that is not
    ;; selected.
    (if possibilities
	(ediff-with-current-buffer ctl-buf
	  (let* ((wind-to-delete (eval
				  (ediff-get-symbol-from-alist
				   (car possibilities)
				    ediff-window-alist)))
		 (frame (window-frame wind-to-delete)))
	    (delete-window wind-to-delete)
	    (select-frame frame)
	    (balance-windows))))
    (or (y-or-n-p 
	 "Please check regions selected for comparison.  Continue? ")
	(setq quit-now t))
    
    (ediff-with-current-buffer bufA
      (widen))
    (ediff-with-current-buffer bufB
      (widen))
    (if quit-now
	(ediff-with-current-buffer ctl-buf
	  (ediff-recenter)
	  (sit-for 0)
	  (error "All right.  Make up your mind and come back...")))

    (ediff-regions-internal
     bufA begA endA bufB begB endB
     nil			; setup-hook
     'ediff-regions-linewise	; job name

43714:1c34b0b56515

		    ediff-diff-buffer)
		   (t (error "Output from `diff' not found"))))
	    )
    (save-buffer)))

;; This function operates only from an ediff control buffer
(defun ediff-compute-custom-diffs-maybe ()
  (let ((buf-A-file-name (buffer-file-name ediff-buffer-A))
	(buf-B-file-name (buffer-file-name ediff-buffer-B))
	file-A file-B)
    (if (stringp buf-A-file-name)

			 
    (or (ediff-buffer-live-p ediff-custom-diff-buffer)
	(setq ediff-custom-diff-buffer
	      (get-buffer-create
	       (ediff-unique-buffer-name "*ediff-custom-diff" "*"))))
    (ediff-with-current-buffer ediff-custom-diff-buffer
      (setq buffer-read-only nil)
      (erase-buffer))
    (ediff-exec-process
     ediff-custom-diff-program ediff-custom-diff-buffer 'synchronize
     ediff-custom-diff-options file-A file-B)
    ;; put the diff file in diff-mode, if it is available
    (if (fboundp 'diff-mode)

	quit-now
	begA begB endA endB bufA bufB)

    (cond ((ediff-merge-job)
	   (setq bufB ediff-buffer-C)
	   ;; ask which buffer to compare to the merge buffer
	   (while (cond ((eq answer ?A)
			 (setq bufA ediff-buffer-A
			       possibilities '(?B))
			 nil)
			((eq answer ?B)

			(t (beep 1)
			   (message "Valid values are A or B")
			   (sit-for 2)
			   t))
	     (let ((cursor-in-echo-area t))
	       (message
		"Which buffer to compare to the merge buffer (A or B)? ")
	       (setq answer (capitalize (read-char-exclusive))))))

	  ((ediff-3way-comparison-job)
	   ;; ask which two buffers to compare
	   (while (cond ((memq answer possibilities)
			 (setq possibilities (delq answer possibilities))
			 (setq bufA
			       (eval
				(ediff-get-symbol-from-alist

			    (mapconcat 'char-to-string possibilities " or "))
			   (sit-for 2)
			   t))
	     (let ((cursor-in-echo-area t))
	       (message "Enter the 1st buffer you want to compare (%s): "
			(mapconcat 'char-to-string possibilities " or "))
	       (setq answer (capitalize (read-char-exclusive)))))
	   (setq answer "") ; silence error msg
	   (while (cond ((memq answer possibilities)
			 (setq possibilities (delq answer possibilities))
			 (setq bufB

	  (t ; 2way comparison
	   (setq bufA ediff-buffer-A
		 bufB ediff-buffer-B
		 possibilities nil)))

    (setq bufA (ediff-clone-buffer-for-region-comparison
		(buffer-name bufA) "-Region.A-"))
    (ediff-with-current-buffer bufA
      (setq begA (region-beginning)
	    endA (region-end))
      (goto-char begA)
      (beginning-of-line)
      (setq begA (point))
      (goto-char endA)
      (end-of-line)
      (or (eobp) (forward-char)) ; include the newline char
      (setq endA (point)))

    (setq bufB (ediff-clone-buffer-for-region-comparison
		(buffer-name bufB) "-Region.B-"))
    (ediff-with-current-buffer bufB
      (setq begB (region-beginning)
	    endB (region-end))
      (goto-char begB)
      (beginning-of-line)
      (setq begB (point))
      (goto-char endB)
      (end-of-line)
      (or (eobp) (forward-char)) ; include the newline char
      (setq endB (point)))

    (ediff-regions-internal
     bufA begA endA bufB begB endB
     nil			; setup-hook
     'ediff-regions-linewise	; job name