blob: 521292065498346989580619cc7779bc83f90473 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
$NetBSD: patch-ab,v 1.1 2002/10/18 14:50:15 minoura Exp $
--- lisp/mule-sysdp.el.orig Sun Nov 14 22:00:12 1999
+++ lisp/mule-sysdp.el Thu Oct 17 04:05:16 2002
@@ -23,10 +23,15 @@
mule-version))
(if (or (fboundp 'kinsoku)
(boundp 'kinsoku-ascii))
- (string-to-number (substring
- mule-version
- (match-beginning 0)
- (match-end 0)))
+ (let (vers)
+ (setq vers
+ (string-to-number
+ (substring mule-version
+ (match-beginning 0)
+ (match-end 0))))
+ (if (> vers 4.0)
+ 4.0
+ vers))
0))
(t 2.3))
0)
|
