[slime-cvs] CVS update: slime/slime.el
Luke Gorrie
lgorrie at common-lisp.net
Sun Jun 20 05:46:08 UTC 2004
Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv11588
Modified Files:
slime.el
Log Message:
(slime-changelog-date, slime-check-protocol-version): Removed unneeded
functions.
Date: Sat Jun 19 22:46:08 2004
Author: lgorrie
Index: slime/slime.el
diff -u slime/slime.el:1.323 slime/slime.el:1.324
--- slime/slime.el:1.323 Sat Jun 19 21:13:05 2004
+++ slime/slime.el Sat Jun 19 22:46:08 2004
@@ -1224,42 +1224,6 @@
(message "Initial handshake..." port)
(slime-init-connection process)))
-(defun slime-changelog-date ()
- "Return the datestring of the latest entry in the ChangeLog file.
-If the function is compiled (with the file-compiler) return the date
-of the newest at compile time. If the function is interpreted read
-the ChangeLog file at runtime."
- (macrolet ((date ()
- (let* ((dir (or (and (boundp 'byte-compile-current-file)
- byte-compile-current-file
- (file-name-directory
- (file-truename
- byte-compile-current-file)))
- slime-path))
- (file (concat dir "ChangeLog"))
- (date (with-temp-buffer
- (insert-file-contents file nil 0 100)
- (goto-char (point-min))
- (symbol-name (read (current-buffer))))))
- `(quote ,date))))
- (date)))
-
-(defvar slime-changelog-date nil
- "Holds the latest datestring from the ChangeLog as seen at loadtime.")
-(setq slime-changelog-date (slime-changelog-date))
-
-(defun slime-check-protocol-version (lisp-version)
- "Signal an error unless LISP-VERSION is equal to `slime-changelog-date'."
- (unless (or (and lisp-version (equal lisp-version slime-changelog-date)))
- (message "Disconnecting ...")
- (slime-disconnect)
- (let ((message (format "Protocol mismatch: Lisp: %s ELisp: %s"
- lisp-version slime-changelog-date)))
- (message "%s" message)
- (sleep-for 2)
- (ding 2)
- (error "%s" message))))
-
(defun slime-disconnect ()
"Disconnect all connections."
(interactive)
@@ -1703,8 +1667,7 @@
(defun slime-set-connection-info (connection info)
"Initialize CONNECTION with INFO received from Lisp."
- (destructuring-bind (version pid type name features) info
-;;; (slime-check-protocol-version version)
+ (destructuring-bind (pid type name features) info
(setf (slime-pid) pid
(slime-lisp-implementation-type) type
(slime-lisp-implementation-type-name) name
@@ -1936,7 +1899,8 @@
(setq header-line-format banner))
(when animantep
(pop-to-buffer (current-buffer))
- (animate-string (format "; SLIME %s" slime-changelog-date) 0 0))
+ (animate-string "; SLIME: The Superior Lisp Interaction Mode for Emacs"
+ 0 0))
(slime-repl-insert-prompt (if (or (not slime-reply-update-banner-p)
use-header-p)
""
More information about the slime-cvs
mailing list