From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 16:04:26 +0000 (+0000)
Subject: * wl-util.el (wl-count-lines): Use `point-at-bol' instead of `(beginning-of-line... 
X-Git-Tag: elmo-imap4-compliance-root~56
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6c44bb7b1170c6162e6c45e669fff1b40dc657e4;p=elisp%2Fwanderlust.git

* wl-util.el (wl-count-lines): Use `point-at-bol' instead of `(beginning-of-line) (point)'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index da3a321..b56ec91 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2010-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-util.el (wl-count-lines): Use `point-at-bol' instead of
+	`(beginning-of-line) (point)'.
+
 	* wl-fldmgr.el (wl-fldmgr-make-indent):	Change from macro to function.
 	(wl-fldmgr-delete-line): Change from macro to function. Use
 	`point-at-bol' and `point-at-eol'.
diff --git a/wl/wl-util.el b/wl/wl-util.el
index baf4d7a..15e73ef 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -654,9 +654,7 @@ that `read' can handle, whenever this is possible."
 ;;;
 
 (defsubst wl-count-lines ()
-  (save-excursion
-    (beginning-of-line)
-    (count-lines 1 (point))))
+  (count-lines 1 (point-at-bol)))
 
 (defun wl-horizontal-recenter ()
   "Recenter the current buffer horizontally."