Hiroyuki Komatsu
komat****@users*****
2004年 12月 9日 (木) 18:18:11 JST
Index: prime-el/src/prime-server.el
diff -u prime-el/src/prime-server.el:1.3 prime-el/src/prime-server.el:1.4
--- prime-el/src/prime-server.el:1.3 Wed Dec 8 13:33:48 2004
+++ prime-el/src/prime-server.el Thu Dec 9 18:18:11 2004
@@ -50,6 +50,7 @@
prime-engine-prime-args-list
'prime-server-exit)
(progn
+ (prime-server-check-version)
(prime-server-send-dummy)
(prime-server-init-session)
(prime-server-set-lookup-command))
@@ -57,6 +58,17 @@
"PRIME の初期化に失敗しました"))
))
+(defun prime-server-check-version ()
+ "This checks the version of the PRIME server.
+If this client, prime-el, does not support the version,
+this aborts the execution."
+ (let ((version (prime-server-get-version)))
+ (if (or (string< version "0.8.5")
+ (and (string< "0.9.0" version) (string< version "0.9.3")))
+ (error "This client does not support the version of your PRIME server.
+Please install the latest server. The your using version is %s" version))))
+
+
(defun prime-server-init-session ()
(setq prime-session-default (prime-server-session-start))
(setq prime-session-minibuffer (prime-server-session-start)))