[slime-cvs] CVS slime/contrib
trittweiler
trittweiler at common-lisp.net
Sat Sep 1 05:36:19 UTC 2007
Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv5119/contrib
Modified Files:
slime-parse.el
Log Message:
Makes `slime-complete-form' work on `(eval-when |'; doesn't work
on `(eval-when (|' yet.
* slime-parse.el (slime-parse-sexp-at-point): Guard against
`(char-after)' being NIL at end of buffer (especially important
for use on the REPL.)
* swank-arglist.lisp (arglist-dispatch 'eval-when): Fix typo.
--- /project/slime/cvsroot/slime/contrib/slime-parse.el 2007/08/31 11:48:23 1.1
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el 2007/09/01 05:36:19 1.2
@@ -100,7 +100,7 @@
(let ((result nil))
(dotimes (i n)
;; `foo(bar baz)' where point is at ?\( or ?\).
- (if (member (char-syntax (char-after)) '(?\( ?\) ?\'))
+ (if (and (char-after) (member (char-syntax (char-after)) '(?\( ?\) ?\')))
(push (sexp-at-point :sexp-first) result)
(push (sexp-at-point :symbol-first) result))
(ignore-errors (forward-sexp) (slime-forward-blanks))
More information about the slime-cvs
mailing list