Fix docstring quote mismatch in stride-forward function

This commit is contained in:
2026-03-26 01:50:17 -07:00
parent 2bad83bff9
commit a9ec284612

View File

@@ -82,10 +82,11 @@
(plist-put eww-data :tries 1) (plist-put eww-data :tries 1)
(eval (second (stride-match)))))) (eval (second (stride-match))))))
;; TODO: move function definition to stride-nav for more flexibility
;; when dealing with difficult sites. then eval the lisp here.
(defun stride-forward () (defun stride-forward ()
"Goes to next chapter if in view, else advances to next page. "Goes to next chapter if in view, else advances to next page."
TODO: move function definition to stride-nav for more flexibility
when dealing with difficult sites. then eval the lisp here."
(interactive) (interactive)
(move-to-window-line -1) (move-to-window-line -1)
(setq-local bottom (point)) (setq-local bottom (point))
@@ -104,7 +105,7 @@ when dealing with difficult sites. then eval the lisp here."
(setq stride-mode-map (make-sparse-keymap)) (setq stride-mode-map (make-sparse-keymap))
(define-key stride-mode-map [?\s] 'stride-forward) (define-key stride-mode-map [?\s] 'stride-forward)
;; (define-key stride-mode-map (kbd "<mouse-5>") 'stride-forward) ;; (define-key stride-mode-map (kbd "<mouse-5>") 'stride-forward
(define-minor-mode stride-mode (define-minor-mode stride-mode
"More intelligent space bar navigation." "More intelligent space bar navigation."