- (message "Selected Spanish notes")
- (sit-for 0 750 1))) ; p
- ((string= x "h")
- (progn (message "Insert notes with fewer key strokes. For example \"i,5.f\" produces \"fis,32. \".") (sit-for 5 0 1)
- (message "Add also \"a ~ a\"-ties, \"a ( ) b\"-slurs and \"< a b >\"-chords.") (sit-for 5 0 1)
- (message "Note names are in Du(t)ch by default. Hit 'n' for Fin(n)ish/Deutsch note names. Hit 'p' for S(p)anish note names") (sit-for 5 0 1)
- (message "Backspace deletes last note, return starts a new indented line and Esc quits.") (sit-for 5 0 1)
- (message "Insert note triplets \"\\times 2/3 { a b } \" by typing \"/23ab}\".") (sit-for 5 0 1)
- (message "Remember to add all other details as well.") (sit-for 5 0 1)))
- )))
+ (message "Selected Spanish notes")
+ (sit-for 0 750)))
+ ((string= x "h")
+ (progn (message "Insert notes with fewer key strokes. For example \"i,5.f\" produces \"fis,32. \".") (sit-for 5 0)
+ (message "Add also \"a ~ a\"-ties, \"a ( ) b\"-slurs and \"< a b >\"-chords.") (sit-for 5 0)
+ (message "There are Du(t)ch, Fin(n)ish/Deutsch (hit 'n') and S(p)anish note names.") (sit-for 5 0)
+ (message "(B)ackspace deletes last note, Ret starts a new indented line and Esc (q)uits.") (sit-for 5 0)
+ (message "Insert note triplets \"\\times 2/3 { a b } \" by typing \"/23ab}\".") (sit-for 5 0)
+ (message "This mode is experimental. Use normal mode to add further details.") (sit-for 5 0)))
+ (t (progn (message "Quick notes mode. Press Esc or q to quit.") (sit-for 0 500)))))
+ (message "Normal editing mode."))