[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog hyperspec.el 
Log Message:
* hyperspec.el (common-lisp-hyperspec-lookup-reader-macro): Use
case-insensitive completion.
(hyperspec-lookup-reader-macro): New alias.
Suggested by Stas Boukarev.

--- /project/slime/cvsroot/slime/ChangeLog	2009/03/09 11:06:24	1.1714
+++ /project/slime/cvsroot/slime/ChangeLog	2009/03/09 11:06:38	1.1715
@@ -1,5 +1,12 @@
 2009-03-09  Helmut Eller  <heller at common-lisp.net>
 
+	* hyperspec.el (common-lisp-hyperspec-lookup-reader-macro): Use
+	case-insensitive completion.
+	(hyperspec-lookup-reader-macro): New alias.
+	Suggested by Stas Boukarev.
+
+2009-03-09  Helmut Eller  <heller at common-lisp.net>
+
 	Make fasl-pathname fully customizable not only the direcrory part.
 
 	* swank.lisp (*fasl-pathname-function*): New variable.
--- /project/slime/cvsroot/slime/hyperspec.el	2009/03/03 10:03:59	1.14
+++ /project/slime/cvsroot/slime/hyperspec.el	2009/03/09 11:06:38	1.15
@@ -1177,13 +1177,18 @@
 (defun common-lisp-hyperspec-lookup-reader-macro (macro)
   "Browse the CLHS entry for the reader-macro MACRO."
   (interactive 
-   (list (completing-read "Look up reader-macro: " 
-			  common-lisp-hyperspec-reader-macros nil t
-			  (common-lisp-hyperspec-reader-macro-at-point))))
+   (list 
+    (let ((completion-ignore-case t))
+      (completing-read "Look up reader-macro: " 
+		       common-lisp-hyperspec-reader-macros nil t
+		       (common-lisp-hyperspec-reader-macro-at-point)))))
   (browse-url
    (concat common-lisp-hyperspec-root "Body/"
 	   (gethash macro common-lisp-hyperspec-reader-macros))))
 
+(defalias 'hyperspec-lookup-reader-macro 
+  'common-lisp-hyperspec-lookup-reader-macro)
+
 (defun common-lisp-hyperspec-reader-macro-at-point ()
   (let ((regexp "\\(#.?\\)\\|\\([\"',`';()]\\)"))
     (when (looking-back regexp nil t)