diff options
| author | Nils Gey <denemo@nilsgey.de> | 2011-02-14 02:09:33 +0100 |
|---|---|---|
| committer | Nils Gey <denemo@nilsgey.de> | 2011-02-14 02:09:33 +0100 |
| commit | 95b8d674b1618fc706c561e6014c55be276d5435 (patch) | |
| tree | b22226901ade0235fe5a862c3162b9ecb544acab | |
| parent | 394a0dbcafe35314c883635b25489a7ec9ca5393 (diff) | |
Final tweak to selection::MoveToStaffBeginning. Remember cursor position on fail
| -rw-r--r-- | actions/denemo.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/actions/denemo.scm b/actions/denemo.scm index 14a93ac8..6a6a9106 100644 --- a/actions/denemo.scm +++ b/actions/denemo.scm @@ -169,11 +169,14 @@ (define (selection::MoveToStaffBeginning) (define rememberStaff (d-GetStaff)) - (if (d-GoToSelectionStart) + (define rememberPosition (GetPosition)) + (if (d-GoToSelectionStart) (begin (d-GoToPosition #f rememberStaff #f #f) - #t) - #f)) ; no selection at all. + (if (d-IsInSelection) + #t + (begin (apply d-GoToPosition rememberPosition) #f))) + #f)) ; no selection at all. |