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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-easy-menu): Added "Apropos all" menu item.

(slime-restart-lisp): Added `restart-lisp' shortcut. Doesn't do the
right thing if you have multiple Lisps up.

Date: Mon Jul 12 03:37:30 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.358 slime/slime.el:1.359
--- slime/slime.el:1.358	Fri Jul  9 05:09:18 2004
+++ slime/slime.el	Mon Jul 12 03:37:30 2004
@@ -636,6 +636,7 @@
       ("Documentation"
        [ "Describe Symbol..."      slime-describe-symbol ,C ]
        [ "Apropos..."              slime-apropos ,C ]
+       [ "Apropos all..."          slime-apropos-all ,C ]
        [ "Apropos Package..."      slime-apropos-package ,C ]
        [ "Hyperspec..."            slime-hyperspec-lookup t ])
       "--"
@@ -2796,6 +2797,14 @@
               (slime-oos (slime-read-system-name) "COMPILE-OP" :force t)))
   (:one-liner "Recompile (but not load) an ASDF system."))
 
+(defslime-repl-shortcut slime-restart-lisp ("restart-lisp")
+  (:handler (lambda ()
+              (interactive)
+              ;; FIXME: Do the right thing with multiple Lisps.
+              (ignore-errors (kill-buffer "*inferior-lisp*"))
+              (slime)))
+  (:one-liner "Restart the Lisp system and reconnect SLIME."))
+              
 
 ;;;;; Cleanup after a quit
 
@@ -6510,6 +6519,12 @@
       (replace-match ""))))
 
 (defun slime-pretty-lambdas ()
+  "Show `lambda' as a lambda character, via font-lock.
+This can be called from slime-mode-hook.
+
+Warning: Some people have had this insert funny characters in their
+source files, for reasons unknown."
+  (interactive)
   (font-lock-add-keywords
    nil `(("(\\(lambda\\>\\)"
         (0 (progn (compose-region (match-beginning 1) (match-end 1)