[elpa] externals/clhs 5999900 06/25: (common-lisp-hyperspec): bind `completion-ignore-case'

[Sam Steingold]

branch: externals/clhs
commit 599990060459cc305b729bfe43409b4671cd7ac8
Author: Sam Steingold <sds@gnu.org>
Commit: Sam Steingold <sds@gnu.org>

    (common-lisp-hyperspec): bind `completion-ignore-case'
---
 clhs.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/clhs.el b/clhs.el
index 11e40ef..699cd3f 100644
--- a/clhs.el
+++ b/clhs.el
@@ -11,7 +11,7 @@
 ;;; This is accomplished by not hard-wiring the symbol->file table
 ;;; but reading the Data/<map> file instead
 
-;;; Copyright (C) 2002 Sam Steingold <sds@gnu.org>
+;;; Copyright (C) 2002-2006 Sam Steingold <sds@gnu.org>
 ;;; Keywords: lisp, common lisp, emacs, ANSI CL, hyperspec
 ;;; released under the GNU GPL <http://www.gnu.org/copyleft/gpl.html>
 ;;; as a part of GNU CLISP <http://clisp.cons.org>, <http://www.clisp.org>
@@ -99,8 +99,7 @@ something like \"file:/usr/local/doc/HyperSpec/\"."
 
 (defun hash-table-complete (string table how)
   "This makes it possible to use hash-tables with `completing-read'.
-Actually, `completing-read' should accept hash-tables natively,
-but it does not - go ahead and report this as a bug."
+Actually, `completing-read' in Emacs 22 accepts hash-tables natively."
   (let ((res nil) (st (upcase string)) (len (length string)))
     (maphash (lambda (key val)
                (when (and (<= len (length key))
@@ -119,7 +118,8 @@ but it does not - go ahead and report this as a bug."
 (defun common-lisp-hyperspec (symbol-name)
   "Browse the Common Lisp HyperSpec documentation for SYMBOL-NAME.
 Finds the HyperSpec at `common-lisp-hyperspec-root'."
-  (interactive (list (let ((sym (thing-at-point 'symbol)))
+  (interactive (list (let ((sym (thing-at-point 'symbol))
+                           (completion-ignore-case t))
                        (completing-read
                         "Look-up symbol in the Common Lisp HyperSpec: "
                         #'hash-table-complete (clhs-symbols)