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

Forgot to rename variables everywhere

Browse Source
This commit is contained in:
Lars Tveito 2015-05-17 01:31:44 +02:00
parent 35f3cf5d52
commit 663205443c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
focus.el
View File

@ -73,11 +73,11 @@ first NON-NIL value from applying F to an element in LST."
(if v v (focus-any f (cdr lst)))))) (if v v (focus-any f (cdr lst))))))
(defun focus-bounds () (defun focus-bounds ()
"Returns the bounds of the first thing in `focus-things-order' that "Returns the bounds of the first thing in `focus-mode-to-thing' that
is NON-NIL." is NON-NIL."
(let* ((modes (mapcar 'car focus-things-order)) (let* ((modes (mapcar 'car focus-mode-to-thing))
(mode (focus-any 'derived-mode-p modes)) (mode (focus-any 'derived-mode-p modes))
(thing (if mode (cdr (assoc mode focus-things-order)) 'sentence))) (thing (if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence)))
(bounds-of-thing-at-point thing))) (bounds-of-thing-at-point thing)))
(defun focus-average-colors (color &rest colors) (defun focus-average-colors (color &rest colors)