ryuslash/avandu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix warnings

Browse source 
Fix warnings about calling `t' as a function.
This commit is contained in:
Tom Willemse 2014-03-05 22:43:52 +01:00
parent ea4cb85730
commit ed0144ffe7
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
avandu.el
View file

@ -217,15 +217,15 @@ arguments."
;; Macros
(defmacro avandu--next-button-of-type (direction type)
"Go DIRECTION and find the next button of a TYPE."
(let ((prop (case type
(let ((prop (cl-case type
(feed 'feed-id)
(article 'article-id)
(t (error "Invalid type"))))
(next-point-function (case direction
(next-point-function (cl-case direction
(forward 'point-min)
(backward 'point-max)
(t (error "Invalid direction"))))
(next-button-function (case direction
(next-button-function (cl-case direction
(forward 'next-button)
(backward 'previous-button)
(t (error "Invalid direction")))))