[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv5709

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-info): New function, opens the manual.


--- /project/slime/cvsroot/slime/ChangeLog	2010/04/24 04:44:38	1.2077
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/27 13:03:59	1.2078
@@ -1,3 +1,7 @@
+2010-04-27  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-info): New function, opens the manual.
+
 2010-04-24  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (format-values-for-echo-area): Also print the length of an
--- /project/slime/cvsroot/slime/slime.el	2010/04/23 03:00:20	1.1307
+++ /project/slime/cvsroot/slime/slime.el	2010/04/27 13:03:59	1.1308
@@ -4689,6 +4689,15 @@
          (item (get-text-property pos 'item)))
     (slime-eval-describe `(swank:describe-definition-for-emacs ,item ,type))))
 
+(defun slime-info ()
+  "Open Slime manual"
+  (interactive)
+  (let ((file (expand-file-name "doc/slime.info" slime-path)))
+    (if (file-exists-p file)
+        (info file)
+        (message "No slime.info, run `make slime.info' in %s"
+                 (expand-file-name "doc/" slime-path)))))
+
 
 ;;;; XREF: cross-referencing