Fix docstring quote mismatch in stride-forward function
This commit is contained in:
@@ -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."
|
||||||
|
|||||||
Reference in New Issue
Block a user