Permalink
Browse files

* hyperspec.el (common-lisp-hyperspec-lookup-reader-macro): Use

case-insensitive completion.
(hyperspec-lookup-reader-macro): New alias.
Suggested by Stas Boukarev.
  • Loading branch information...
1 parent 3789783 commit 65fd5bf7b31bf8751e639b49501ede30186d22c1 heller committed Mar 9, 2009
Showing with 15 additions and 3 deletions.
  1. +7 −0 ChangeLog
  2. +8 −3 hyperspec.el
View
@@ -1,5 +1,12 @@
2009-03-09 Helmut Eller <heller@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@common-lisp.net>
+
Make fasl-pathname fully customizable not only the direcrory part.
* swank.lisp (*fasl-pathname-function*): New variable.
View
@@ -1177,13 +1177,18 @@ If you copy the HyperSpec to another location, customize the variable
(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)

0 comments on commit 65fd5bf

Please sign in to comment.