blob: f58bfd89e562dcaaf7c4e8e17992ff506c142316 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- egg-mlh.el.orig 2014-11-22 15:28:22.000000000 +0900
+++ egg-mlh.el 2014-11-22 15:28:40.000000000 +0900
@@ -122,7 +122,7 @@
(goto-char end-marker)
(backward-delete-char 2)
(let* ((str (buffer-substring beg (point)))
- (val (string-to-int str)))
+ (val (string-to-number str)))
(delete-region beg (point))
(if (= val 0)
(setq val 1))
@@ -220,7 +220,7 @@
(goto-char end-marker)
(backward-delete-char 2)
(let* ((str (buffer-substring beg (point)))
- (val (string-to-int str)))
+ (val (string-to-number str)))
(delete-region beg (point))
(if (= val 0)
(setq val 1))
|