Merge pull request #855 from posit-dev/bugfix/section-symbols

Fix ranges of comment sections

Author: lionel-

.github/copilot-instructions.md

@@ -11,3 +11,11 @@ Use fully qualified result types (`anyhow::Result`) instead of importing them.
 When writing tests, prefer simple assertion macros without custom error messages:
 - Use `assert_eq!(actual, expected);` instead of `assert_eq!(actual, expected, "custom message");`
 - Use `assert!(condition);` instead of `assert!(condition, "custom message");`
+
+Tests are run with `just test`, not `cargo test`.
+
+When you extract code in a function (or move things around) that function goes
+_below_ the calling function. A general goal is to be able to read linearly from
+top to bottom with the relevant context and main logic first. The code should be
+organised like a call stack. Of course that's not always possible, use best
+judgement to produce the clearest code organization.

crates/ark/src/lsp/snapshots/ark__lsp__symbols__tests__symbol_assignment_function_nested_section.snap

@@ -15,8 +15,8 @@ expression: "test_symbol(\"\n## title0 ----\nfoo <- function() {\n  # title1 ---
                 character: 0,
             },
             end: Position {
-                line: 1,
-                character: 14,
+                line: 7,
+                character: 1,
             },
         },
         selection_range: Range {
@@ -25,8 +25,8 @@ expression: "test_symbol(\"\n## title0 ----\nfoo <- function() {\n  # title1 ---
                 character: 0,
             },
             end: Position {
-                line: 1,
-                character: 14,
+                line: 7,
+                character: 1,
             },
         },
         children: Some(
@@ -73,8 +73,8 @@ expression: "test_symbol(\"\n## title0 ----\nfoo <- function() {\n  # title1 ---
                                         character: 2,
                                     },
                                     end: Position {
-                                        line: 3,
-                                        character: 15,
+                                        line: 5,
+                                        character: 16,
                                     },
                                 },
                                 selection_range: Range {
@@ -83,8 +83,8 @@ expression: "test_symbol(\"\n## title0 ----\nfoo <- function() {\n  # title1 ---
                                         character: 2,
                                     },
                                     end: Position {
-                                        line: 3,
-                                        character: 15,
+                                        line: 5,
+                                        character: 16,
                                     },
                                 },
                                 children: Some(