Ediff: Define EDIFF-COPY-BOTH-TO-C

.emacs.d/lisp/functions.el

@@ -40,6 +40,14 @@
     (setq key (pop bindings)
           def (pop bindings))))
 
+;; TODO: Bind this to ediff control panel.
+(defun ambrevar/ediff-copy-both-to-C ()
+  (interactive)
+  (ediff-copy-diff ediff-current-difference nil 'C nil
+                   (concat
+                    (ediff-get-region-contents ediff-current-difference 'A ediff-control-buffer)
+                    (ediff-get-region-contents ediff-current-difference 'B ediff-control-buffer))))
+
 (defun ambrevar/escape-region (&optional regex to-string)
   "Escape double-quotes and backslashes.
 This is useful for writing Elisp strings containing those