[Emacs-diffs] /srv/bzr/emacs/trunk r111228: * lisp/vc/ediff-util.el (ediff-buffer-type): New function.

[Stefan Monnier]

------------------------------------------------------------
revno: 111228
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11319
author: Dave Abrahams <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2012-12-14 10:22:24 -0500
message:
  * lisp/vc/ediff-util.el (ediff-buffer-type): New function.
  (ediff-clone-buffer-for-current-diff-comparison): Compute the buf-type
  rather than taking it as as argument.
  (ediff-inferior-compare-regions): Adjust calls accordingly.
modified:
  lisp/ChangeLog
  lisp/ChangeLog.15
  lisp/vc/ediff-util.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-14 14:57:37 +0000
+++ b/lisp/ChangeLog    2012-12-14 15:22:24 +0000
@@ -1,3 +1,10 @@
+2012-12-14  Dave Abrahams  <address@hidden>
+
+       * vc/ediff-util.el (ediff-buffer-type): New function.
+       (ediff-clone-buffer-for-current-diff-comparison): Compute the buf-type
+       rather than taking it as as argument.
+       (ediff-inferior-compare-regions): Adjust calls accordingly (bug#11319).
+
 2012-12-14  Ryan Crum  <address@hidden>
 
        * json.el: Add pretty-print option (bug#12634).

=== modified file 'lisp/ChangeLog.15'
--- a/lisp/ChangeLog.15 2012-12-01 02:10:53 +0000
+++ b/lisp/ChangeLog.15 2012-12-14 15:22:24 +0000
@@ -324,7 +324,7 @@
        (ert-run-tests-batch, ert--print-test-for-ewoc):
        Handle `ert-test-quit'.
 
-2011-03-03  David Abrahams  <address@hidden>  (tiny change)
+2011-03-03  David Abrahams  <address@hidden>
 
        * vc/ediff-init.el (ediff-use-faces, ediff-highlight-all-diffs):
        Move ediff-defvar-local calls after defcustoms.  (Bug#1821)
@@ -13597,7 +13597,7 @@
        * textmodes/artist.el (artist-compute-popup-menu-table):
        Remove duplicated words in doc-strings.
 
-2010-01-15  David Abrahams  <address@hidden>  (tiny change)
+2010-01-15  David Abrahams  <address@hidden>
 
        * net/mairix.el (mairix-widget-send-query): Send -1 instead of nil
        to mairix-search to suppress threading (Bug#5342).

=== modified file 'lisp/vc/ediff-util.el'
--- a/lisp/vc/ediff-util.el     2012-09-30 03:28:38 +0000
+++ b/lisp/vc/ediff-util.el     2012-12-14 15:22:24 +0000
@@ -3378,10 +3378,18 @@
     (set-window-buffer wind cloned-buff)
     cloned-buff))
 
-(defun ediff-clone-buffer-for-current-diff-comparison (buff buf-type reg-name)
-  (let ((cloned-buff (ediff-make-cloned-buffer buff reg-name))
-       (reg-start (ediff-get-diff-posn buf-type 'beg))
-       (reg-end (ediff-get-diff-posn buf-type 'end)))
+(defun ediff-buffer-type (buffer)
+  (cond ((eq buffer ediff-buffer-A) 'A)
+        ((eq buffer ediff-buffer-B) 'B)
+        ((eq buffer ediff-buffer-C) 'C)
+        ((eq buffer ediff-ancestor-buffer) 'Ancestor)
+        (t nil)))
+
+(defun ediff-clone-buffer-for-current-diff-comparison (buff reg-name)
+  (let* ((cloned-buff (ediff-make-cloned-buffer buff reg-name))
+         (buf-type (ediff-buffer-type buff))
+         (reg-start (ediff-get-diff-posn buf-type 'beg))
+         (reg-end (ediff-get-diff-posn buf-type 'end)))
     (ediff-with-current-buffer cloned-buff
       ;; set region to be the current diff region
       (goto-char reg-start)
@@ -3466,7 +3474,7 @@
 
 (defun ediff-inferior-compare-regions ()
   "Compare regions in an active Ediff session.
-Like ediff-regions-linewise but is called from under an active Ediff session on
+Like `ediff-regions-linewise' but is called from under an active Ediff session 
on
 the files that belong to that session.
 
 After quitting the session invoked via this function, type C-l to the parent
@@ -3555,7 +3563,7 @@
 
     (setq bufA (if use-current-diff-p
                   (ediff-clone-buffer-for-current-diff-comparison
-                   bufA 'A "-Region.A-")
+                   bufA "-Region.A-")
                 (ediff-clone-buffer-for-region-comparison bufA "-Region.A-")))
     (ediff-with-current-buffer bufA
       (setq begA (region-beginning)
@@ -3570,7 +3578,7 @@
 
     (setq bufB (if use-current-diff-p
                   (ediff-clone-buffer-for-current-diff-comparison
-                   bufB 'B "-Region.B-")
+                   bufB "-Region.B-")
                 (ediff-clone-buffer-for-region-comparison bufB "-Region.B-")))
     (ediff-with-current-buffer bufB
       (setq begB (region-beginning)