Fix find current form when squeezed between ignore and list

Author: PEZ

src/cursor-doc/token-cursor.ts

@@ -653,6 +653,7 @@ export class LispTokenCursor extends TokenCursor {
         cursor.getToken().type !== 'reader' &&
         !cursor.tokenBeginsMetadata() &&
         cursor.getPrevToken().type !== 'reader' &&
+        cursor.getPrevToken().type !== 'ignore' &&
         !cursor.prevTokenBeginsMetadata()
       ) {
         if (cursor.backwardSexp() && !cursor.tokenBeginsMetadata()) {

src/extension-test/unit/cursor-doc/token-cursor-test.ts

@@ -747,6 +747,18 @@ describe('Token Cursor', () => {
       const cursor: LispTokenCursor = a.getTokenCursor(a.selections[0].anchor);
       expect(cursor.rangeForCurrentForm(a.selections[0].anchor)).toBeUndefined();
     });
+    it('Selects atomic form to the right, when squeezed by an ignore marker', () => {
+      const a = docFromTextNotation('#_|a');
+      const b = docFromTextNotation('#_|a|');
+      const cursor: LispTokenCursor = a.getTokenCursor(a.selections[0].anchor);
+      expect(cursor.rangeForCurrentForm(a.selections[0].anchor)).toEqual(textAndSelection(b)[1]);
+    });
+    it('Selects list form to the right, when squeezed by an ignore marker', () => {
+      const a = docFromTextNotation('#_|(a)');
+      const b = docFromTextNotation('#_|(a)|');
+      const cursor: LispTokenCursor = a.getTokenCursor(a.selections[0].anchor);
+      expect(cursor.rangeForCurrentForm(a.selections[0].anchor)).toEqual(textAndSelection(b)[1]);
+    });
   });
 
   describe('Top Level Form', () => {