larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2024-11-26 11:38:32 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't assume bounds are found

Browse Source
This commit is contained in:
Lars Tveito 2015-05-24 02:40:35 +02:00
parent 4846438e3f
commit 1423efbd25
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
focus.el
View File

@ -167,8 +167,9 @@ deleted, and `focus-move-focus' is removed from `post-command-hook'."
(interactive "p") (interactive "p")
(forward-thing (focus-get-thing) (+ 1 n)) (forward-thing (focus-get-thing) (+ 1 n))
(let ((bounds (focus-bounds))) (let ((bounds (focus-bounds)))
(goto-char (/ (+ (car bounds) (cdr bounds)) 2))) (when bounds
(recenter nil)) (goto-char (/ (+ (car bounds) (cdr bounds)) 2))
(recenter nil))))
(defun focus-prev-thing (&optional n) (defun focus-prev-thing (&optional n)
"Moves the point to the middle of the Nth previous thing." "Moves the point to the middle of the Nth previous thing."