projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a09e17d
)
Use `string-to-number' instead of `string-to-int'.
author
kaoru
<kaoru>
Fri, 15 Feb 2008 01:17:37 +0000
(
01:17
+0000)
committer
kaoru
<kaoru>
Fri, 15 Feb 2008 01:17:37 +0000
(
01:17
+0000)
ChangeLog
patch
|
blob
|
history
WL-MK
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
917646a
..
cde1174
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,8
@@
+2008-02-15 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * WL-MK (wl-news-parse-news-subr): Use `string-to-number' instead
+ of `string-to-int'.
+
2008-02-11 TAKAHASHI Kaoru <kaoru@kaisei.org>
* WL-MK: New backquote style.
2008-02-11 TAKAHASHI Kaoru <kaoru@kaisei.org>
* WL-MK: New backquote style.
diff --git
a/WL-MK
b/WL-MK
index
080e784
..
89d7af2
100644
(file)
--- a/
WL-MK
+++ b/
WL-MK
@@
-524,7
+524,7
@@
(version-tmp (split-string (match-string 1) "\\."))
version news-string end)
(while version-tmp
(version-tmp (split-string (match-string 1) "\\."))
version news-string end)
(while version-tmp
- (setq version (append version (list (string-to-int (car version-tmp)))))
+ (setq version (append version (list (string-to-number (car version-tmp)))))
(setq version-tmp (cdr version-tmp)))
(re-search-forward "^\\(\\* \\|
\f
\\)" nil t)
(goto-char (- (match-beginning 0) 1))
(setq version-tmp (cdr version-tmp)))
(re-search-forward "^\\(\\* \\|
\f
\\)" nil t)
(goto-char (- (match-beginning 0) 1))