From: okazaki <okazaki>
Date: Sun, 18 Feb 2001 21:03:25 +0000 (+0000)
Subject: * wl-template.el (wl-template-next): Use `=' instead of `eq'
X-Git-Tag: wl-2_6-root~109
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fb7d2802bca2a24a7584abc9aeb21d157e0fc77d;p=elisp%2Fwanderlust.git

* wl-template.el (wl-template-next): Use `=' instead of `eq'
for comparing numbers.
(wl-template-prev): Use `zerop' instead of `eq 0'.
---

diff --git a/wl/wl-template.el b/wl/wl-template.el
index 9874ce6..ca8a42d 100644
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -144,15 +144,15 @@ ARG is ignored."			; ARG ignored this version (?)
 (defun wl-template-next ()
   "Display next reference in other buffer."
   (interactive)
-  (if (eq wl-template-max-num
-	  (setq wl-template-cur-num (1+ wl-template-cur-num)))
+  (if (= wl-template-max-num
+	 (setq wl-template-cur-num (1+ wl-template-cur-num)))
       (setq wl-template-cur-num 0))
   (wl-template-show))
 
 (defun wl-template-prev ()
   "Display previous reference in other buffer."
   (interactive)
-  (setq wl-template-cur-num (if (eq wl-template-cur-num 0)
+  (setq wl-template-cur-num (if (zerop wl-template-cur-num)
 				(1- wl-template-max-num)
 			      (1- wl-template-cur-num)))
   (wl-template-show))