IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/engine/engine-interface.scm
View File

@ -181,7 +181,7 @@
(define (gnc:transaction-scm-get-other-split-scm trans-scm split-scm) (define (gnc:transaction-scm-get-other-split-scm trans-scm split-scm)
(let ((split-scms (gnc:transaction-scm-get-split-scms trans-scm))) (let ((split-scms (gnc:transaction-scm-get-split-scms trans-scm)))
(cond ((not (= (length split-scms) 2)) #f) (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))))) (else (car split-scms)))))
;; modifiers ;; modifiers