PATCH: ilisp-arglist-message-lisp-space and uninterned symbols

   Here's a quickie:  Typing "(#:foo " (i.e. a list starting with an
uninterned symbol) confuses ilisp-arglist-message-lisp-space, which
tries to interpet "#" as a package name.  The attached patch persuades
it to skip anything that starts with "#", on the grounds that this is
almost guaranteed to lose.

					-- Bob Rogers
					   http://rgrjr.dyndns.org/

------------------------------------------------------------------------
--- ilisp-hi.el.~1~	Fri Aug 23 21:27:11 2002
+++ ilisp-hi.el	Sun Aug 25 23:03:02 2002
@@ -703,7 +703,10 @@
                           (equal last-char " ;")
                           ;; do something only if directly after a sexp.
                           (equal last-char " ")))
-                   (string-equal package "#+") (string-equal package "#-")
+		   ;; could be something like #+foo, #-foo, or #:foo, any of
+		   ;; which is likely to lose.
+		   (and string
+			(string-match "^#" string))
                    double-quote-pos;; there is no output  for strings only.
                    (not (and symbol (stringp symbol) (> (length symbol) 0)))
                    (string-match "^\. " symbol)


-------------------------------------------------------
This sf.net email is sponsored by: OSDN - Tired of that same old
cell phone?  Get a new here for FREE!
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390