@@ -504,7 +504,7 @@ amuseNoteBlockUntil end = try $ do
504emacsNoteBlock :: PandocMonad m => MuseParser m (F Blocks)
504emacsNoteBlock :: PandocMonad m => MuseParser m (F Blocks)
505emacsNoteBlock = try $ do
505emacsNoteBlock = try $ do
506 guardDisabled Ext_amuse
506 guardDisabled Ext_amuse
507− ref <- noteMarker <* skipSpaces
507+ ref <- noteMarker
508 pos <- getPosition
508 pos <- getPosition
509 content <- fmap mconcat blocksTillNote
509 content <- fmap mconcat blocksTillNote
510 addNote ref pos content
510 addNote ref pos content