Fix crash when copying a currently edited transaction in the register.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18591 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andreas Köhler 2010-01-31 07:12:59 +00:00
parent 791bdfbd20
commit 2a9c2efa03

View File

@ -181,7 +181,7 @@
(define (gnc:transaction-scm-get-other-split-scm trans-scm split-scm)
(let ((split-scms (gnc:transaction-scm-get-split-scms trans-scm)))
(cond ((not (= (length split-scms) 2)) #f)
((= split-scm (car split-scms)) (cadr split-scms))
((eq? split-scm (car split-scms)) (cadr split-scms))
(else (car split-scms)))))
;; modifiers