Commits

Ivan Andrus  committed f77e12b

Fixed sage-test-narrow-to-defun-or-string

  • Participants
  • Parent commits 9bf5575

Comments (0)

Files changed (1)

File emacs/sage-test.el

       (narrow-to-defun)
     (save-excursion
       (let ((beg (nth 8 (syntax-ppss)))) ;;  8. character address of start of comment or string; nil if not in one.
-	(search-forward "\"\"\"") ;; just go to end of triple quoted string for now, even though it's not prefect
+	(goto-char beg)
+	(forward-sexp 1)
 	(narrow-to-region beg (point))))))
 
 (defun sage-send-doctest-line-and-forward (&optional noshow)