[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el swank-loader.lisp 
Log Message:
	* slime.el (slime-documentation-lookup-function): New hook,
	defaults to `slime-hyperspec-lookup'.
	(slime-documentation-lookup): Invoke hook.
	(slime-prefix-bindings): Bind `C-c C-d h' to it.

	* slime-hyperdoc.el, swank-hyperdoc.lisp: New contrib.


--- /project/slime/cvsroot/slime/ChangeLog	2009/12/02 17:34:37	1.1926
+++ /project/slime/cvsroot/slime/ChangeLog	2009/12/03 15:41:05	1.1927
@@ -1,3 +1,10 @@
+2009-12-03  Tobias C. Rittweiler <tcr at freebits.de>
+
+	* slime.el (slime-documentation-lookup-function): New hook,
+	defaults to `slime-hyperspec-lookup'.
+	(slime-documentation-lookup): Invoke hook.
+	(slime-prefix-bindings): Bind `C-c C-d h' to it.
+
 2009-12-02  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-sbcl.lisp (frame-locals): `frame-debug-vars' can return NIL,
--- /project/slime/cvsroot/slime/slime.el	2009/11/30 14:47:39	1.1253
+++ /project/slime/cvsroot/slime/slime.el	2009/12/03 15:41:05	1.1254
@@ -564,7 +564,7 @@
     (?p slime-apropos-package)
     (?d slime-describe-symbol)
     (?f slime-describe-function)
-    (?h slime-hyperspec-lookup)
+    (?h slime-documentation-lookup)
     (?~ common-lisp-hyperspec-format)
     (?# common-lisp-hyperspec-lookup-reader-macro)))
   
@@ -4528,6 +4528,14 @@
 
 ;;;; Documentation
 
+(defvar slime-documentation-lookup-function 
+  'slime-hyperspec-lookup)
+
+(defun slime-documentation-lookup ()
+  "Generalized documentation lookup. Defaults to hyperspec lookup."
+  (interactive)
+  (call-interactively slime-documentation-lookup-function))
+
 (defun slime-hyperspec-lookup (symbol-name)
   "A wrapper for `hyperspec-lookup'"
   (interactive (list (let* ((symbol-at-point (slime-symbol-at-point))
@@ -6895,6 +6903,7 @@
        [ "Reset Counters"          slime-profile-reset ,C ])
       ("Documentation"
        [ "Describe Symbol..."      slime-describe-symbol ,C ]
+       [ "Lookup Documentation..." slime-documentation-lookup t ]
        [ "Apropos..."              slime-apropos ,C ]
        [ "Apropos all..."          slime-apropos-all ,C ]
        [ "Apropos Package..."      slime-apropos-package ,C ]
@@ -6961,7 +6970,7 @@
                 (slime-next-note "Next compiler note")
                 (slime-previous-note "Previous compiler note")
                 (slime-remove-notes "Remove notes")
-                slime-hyperspec-lookup))
+                slime-documentation-lookup))
     (:title "Completion"
      :map slime-mode-map
      :bindings (slime-indent-and-complete-symbol
--- /project/slime/cvsroot/slime/swank-loader.lisp	2009/10/31 22:13:55	1.95
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2009/12/03 15:41:05	1.96
@@ -189,6 +189,7 @@
                      swank-presentations swank-presentation-streams
                      #+(or asdf sbcl) swank-asdf
                      swank-package-fu
+                     swank-hyperdoc
                      swank-sbcl-exts
                      )
   "List of names for contrib modules.")