Patch for ilisp-mov.el

Put the following code into a file like 'foo.lisp'

  (defun foo (x)
    (when (eql x #\")
      ;; some random comment text bla bla
      ;; some random comment text bla bla
      ;; some random comment text bla bla
      ;; some random comment text bla bla
      (do-it)))

place point on the first semicolon and then press M-q. ILISP is
obviously confused by the quote character. The same thing happens if
you replace #\" with something like 'foo\"bar.

The patch below tries to address this. I have no idea what the
rationale for ?? in the original code is but it seems to me that ?\\
does the right thing. Note that I've only done some simple tests on
Emacs 21.2.

Also note that this still doesn't help if you replace #\" with, say,
'|foo"bar|. I don't have enough time and don't know enough about
ILISP/Emacs to investigate this any further at the moment, sorry.

Cheers,
Edi.



--- ilisp-mov.el        Tue Dec  2 22:49:49 2003
+++ /tmp/ilisp-mov.el   Tue Dec  2 22:47:40 2003
@@ -176,7 +176,7 @@
        (skip-chars-forward "^\"" end)
        (setq begin (point))
        (if (< begin end)
-           (if (and (not (bobp)) (= (char-after (1- begin)) ??))
+           (if (and (not (bobp)) (= (char-after (1- begin)) ?\\))
                (forward-char)
                (if (condition-case () (progn (forward-sexp) (<= (point) end))
                      (error nil))



-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
Does SourceForge.net help you be more productive?  Does it
help you create better code?  SHARE THE LOVE, and help us help
YOU!  Click Here: http://sourceforge.net/donate/