From ed0144ffe70ba7632fdb68524b7bb4814bf766be Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 5 Mar 2014 22:43:52 +0100 Subject: Fix warnings Fix warnings about calling `t' as a function. --- avandu.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/avandu.el b/avandu.el index a5890ef..c7f89f9 100644 --- a/avandu.el +++ b/avandu.el @@ -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"))))) -- cgit v1.2.3-54-g00ecf