comparison lisp/ediff-mult.el @ 106697:ac408704629c

lisp/*: Fix typos in docstrings and messages.

106696:9084997e41f6

;;
;; Also, session objects A/B/C are turned into lists of the form (obj nil).
;; This nil is a placeholder for eq-indicator. It is either nil or =.
;; If it is discovered that this file is = to some other
;; file in the same session, eq-indicator is changed to `='.
;; Curently, the eq-indicator is used only for 2 and 3-file jobs.
(defun ediff-make-new-meta-list-element (obj1 obj2 obj3)
  (list nil nil (list obj1 nil) (list obj2 nil) (list obj3 nil)))

;; Constructs a meta list header.
;; OBJA, OBJB, OBJC are usually directories involved, but can be different for

		  :help "Mark session for hiding.  With prefix arg, unmark"))

	    (define-key ediff-meta-buffer-map
	      [menu-bar ediff-meta-mode ediff-mark-for-operation-at-pos]
	      '(menu-item "Mark for group operation" ediff-mark-for-operation-at-pos
		  :help "Mark session for a group operation.  With prefix arg, unmark."))

	    (define-key ediff-meta-buffer-map
	      [menu-bar ediff-meta-mode ediff-unmark-all-for-hiding]
	      '(menu-item "Unmark all for hiding" ediff-unmark-all-for-hiding
		  :help "Unmark all sessions marked for hiding"))

	     (goto-char (point-max))
	     (insert-buffer-substring tmp-buf)
	     (insert "\n")))
	  (t
	   (ediff-kill-buffer-carefully meta-diff-buff)
	   (error "Session %d compares versions of file. Such session must be active to enable multifile patch collection" sessionNum )))
    ))

(defun ediff-collect-custom-diffs ()
  "Collect custom diffs of marked sessions in buffer `*Ediff Multifile Diffs*'.
This operation is defined only for `ediff-directories' and

  (if (null action)
      (setq action (ediff-last-command-char)))
  (let ((list (cdr ediff-meta-list))
	marked1 marked2 marked3
	fileinfo1 fileinfo2 fileinfo3 elt)
    (message "Comparing files ...")
    (while (setq elt (car list))
      (setq fileinfo1 (ediff-get-session-objA elt)
	    fileinfo2 (ediff-get-session-objB elt)
	    fileinfo3 (ediff-get-session-objC elt))
      (ediff-set-file-eqstatus fileinfo1 nil)

		 (ediff-mark-session-for-hiding elt 'mark))
		((eq action ?m)
		 (ediff-mark-session-for-operation elt 'mark))
		))
      (setq list (cdr list)))
    (message "Comparing files ... Done"))
  (setq ediff-recurse-to-subdirectories nil)
  (ediff-update-meta-buffer (current-buffer) 'must-redraw))

;; mark files 1 and 2 as equal, if they are.
;; returns t, if something was marked

106697:ac408704629c

;;
;; Also, session objects A/B/C are turned into lists of the form (obj nil).
;; This nil is a placeholder for eq-indicator. It is either nil or =.
;; If it is discovered that this file is = to some other
;; file in the same session, eq-indicator is changed to `='.
;; Currently, the eq-indicator is used only for 2 and 3-file jobs.
(defun ediff-make-new-meta-list-element (obj1 obj2 obj3)
  (list nil nil (list obj1 nil) (list obj2 nil) (list obj3 nil)))

;; Constructs a meta list header.
;; OBJA, OBJB, OBJC are usually directories involved, but can be different for

		  :help "Mark session for hiding.  With prefix arg, unmark"))

	    (define-key ediff-meta-buffer-map
	      [menu-bar ediff-meta-mode ediff-mark-for-operation-at-pos]
	      '(menu-item "Mark for group operation" ediff-mark-for-operation-at-pos
		  :help "Mark session for a group operation.  With prefix arg, unmark"))

	    (define-key ediff-meta-buffer-map
	      [menu-bar ediff-meta-mode ediff-unmark-all-for-hiding]
	      '(menu-item "Unmark all for hiding" ediff-unmark-all-for-hiding
		  :help "Unmark all sessions marked for hiding"))

	     (goto-char (point-max))
	     (insert-buffer-substring tmp-buf)
	     (insert "\n")))
	  (t
	   (ediff-kill-buffer-carefully meta-diff-buff)
	   (error "Session %d compares versions of file.  Such session must be active to enable multifile patch collection" sessionNum )))
    ))

(defun ediff-collect-custom-diffs ()
  "Collect custom diffs of marked sessions in buffer `*Ediff Multifile Diffs*'.
This operation is defined only for `ediff-directories' and

  (if (null action)
      (setq action (ediff-last-command-char)))
  (let ((list (cdr ediff-meta-list))
	marked1 marked2 marked3
	fileinfo1 fileinfo2 fileinfo3 elt)
    (message "Comparing files...")
    (while (setq elt (car list))
      (setq fileinfo1 (ediff-get-session-objA elt)
	    fileinfo2 (ediff-get-session-objB elt)
	    fileinfo3 (ediff-get-session-objC elt))
      (ediff-set-file-eqstatus fileinfo1 nil)

		 (ediff-mark-session-for-hiding elt 'mark))
		((eq action ?m)
		 (ediff-mark-session-for-operation elt 'mark))
		))
      (setq list (cdr list)))
    (message "Comparing files... Done"))
  (setq ediff-recurse-to-subdirectories nil)
  (ediff-update-meta-buffer (current-buffer) 'must-redraw))

;; mark files 1 and 2 as equal, if they are.
;; returns t, if something was marked