[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv22943

Modified Files:
	slime.el 
Log Message:
(slime-complete-form): Emacs 20 compatibility fix.

(slime-repl-update-banner): Remove animation stuff.
(slime-startup-animation): Deleted.
Date: Tue Feb 22 07:04:08 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.458 slime/slime.el:1.459
--- slime/slime.el:1.458	Sun Feb 20 21:29:43 2005
+++ slime/slime.el	Tue Feb 22 07:04:04 2005
@@ -108,11 +108,6 @@
   :prefix "slime-"
   :group 'slime)
 
-(defcustom slime-startup-animation t
-  "Enable the startup animation."
-  :type '(choice (const :tag "Enable" t) (const :tag "Disable" nil))
-  :group 'slime-ui)
-
 (defcustom slime-truncate-lines t
   "Set `truncate-lines' in popup buffers.
 This applies to buffers that present lines as rows of data, such as
@@ -2329,18 +2324,9 @@
                          (slime-pid)))
          ;; Emacs21 has the fancy persistent header-line.
          (use-header-p (and slime-header-line-p
-                            (boundp 'header-line-format)))
-         ;; and dancing text
-         (animantep (and (fboundp 'animate-string)
-                         slime-startup-animation
-                         (zerop (buffer-size)))))
+                            (boundp 'header-line-format))))
     (when use-header-p
       (setq header-line-format banner))
-    (when animantep
-      (pop-to-buffer (current-buffer))
-      (animate-string (format "; SLIME %s" (or (slime-changelog-date) 
-                                               "- ChangeLog file not found"))
-                      0 0))
     (slime-repl-insert-prompt (if use-header-p "" (concat "; " banner)))))
 
 (defun slime-changelog-date ()
@@ -4272,7 +4258,7 @@
 functionality of `slime-insert-arglist'."
   (interactive)
   ;; Find the (possibly incomplete) form around point.
-  (let* ((start (save-excursion (backward-up-list) (point)))
+  (let* ((start (save-excursion (backward-up-list 1) (point)))
          (end (point)) ; or try to find end (tricky)?
          (form-string
           (concat (buffer-substring-no-properties start end) ")")))