From abayer at cisco.com Sun Feb 26 16:52:10 2017
Content-Type: multipart/mixed; boundary="===============5394503729363967267=="
MIME-Version: 1.0
From: Andrew Bayer <abayer at cisco.com>
To: xemacs-beta at xemacs.org
Subject: Error with html-helper-mode and XEmacs 21.4.10?
Date: 2003-10-27 15:16:54 -0500
Message-ID: <5.2.0.9.0.20031027150649.032477a0@cannon.cisco.com>

--===============5394503729363967267==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable

Hi -
	I'm using XEmacs 21.4.10 along with a copy of html-helper-mode.el - =

3.0.4jolly, I believe. I've been using this to (among other things) =

font-lock Javascript embedded in HTML, and haven't had any problems for a =

while - until I upgraded all my packages to the latest, including =

experimentals. Now I'm getting a warning popping up whenever I edit =

anything within the <script> tags in HTML:

(1) (warning/warning) Error caught in `font-lock-pre-idle-hook': =

(wrong-type-argument stringp nil)

The lisp backtrace is listed below the rest of this email. I'm able to work =

just fine in a straight Javascript file, or in the HTML sections of an HTML =

file, and it has this error in embedded Javascript whether mmm-mode is =

running or not. Any suggestions? At the very least, I'd like to be able to =

kill the warning message - it fontifys the file just fine when it initially =

opens it, and that's good enough for me. Thanks!

Andrew Bayer
abayer(a)cisco.com

(Lisp backtrace:)

   # bind (standard-output stack-trace-on-signal debug-on-signal =

stack-trace-on-error debug-on-error)
   looking-at(nil)
   # (unwind-protect ...)
   # bind (rung-pos next-rung-pos last-put-in-sws-pos rung-is-marked =

simple-ws-beg cmt-skip-pos)
   c-backward-sws()
   # (unwind-protect ...)
   # bind (limit)
   c-font-lock-complex-decl-prepare(64)
   # bind (highlights matcher keyword nkeywords iter old-progress progress =

bufname keywords case-fold-search loudly loudvar end start)
   font-lock-fontify-keywords-region(62 64 nil)
   # (unwind-protect ...)
   # bind (modified buffer-undo-list inhibit-read-only old-syntax-table =

buffer-file-name buffer-file-truename loudly end beg)
   font-lock-default-fontify-region(62 64 nil)
   # bind (reg)
   #<compiled-function (reg) "...(26)" [mmm-current-submode =

mmm-current-overlay func mode reg mmm-set-current-submode =

mmm-set-local-variables nil mmm-save-changed-local-variables] 4>((62 64))
   mapcar(#<compiled-function (reg) "...(26)" [mmm-current-submode =

mmm-current-overlay func mode reg mmm-set-current-submode =

mmm-set-local-variables nil mmm-save-changed-local-variables] 4> ((62 64)))
   # bind (func)
   # (unwind-protect ...)
   # bind (regions mode)
   mmm-fontify-region-list(javascript-mode ((62 64)))
   # bind (elt)
   #<compiled-function (elt) "...(13)" [elt mmm-font-lock-mode =

mmm-fontify-region-list] 3>((javascript-mode (62 64)))
   mapcar(#<compiled-function (elt) "...(13)" [elt mmm-font-lock-mode =

mmm-fontify-region-list] 3> ((javascript-mode (62 64))))
   # bind (font-lock-beginning-of-syntax-function loudly stop start)
   mmm-fontify-region(62 64 nil)
   # bind (loudly end beg)
   font-lock-fontify-region(62 64)
   # bind (val end beg)
   #<compiled-function (beg end val) "...(5)" [end beg =

font-lock-fontify-region] 3>(62 64 t)
   map-range-table(#<compiled-function (beg end val) "...(5)" [end beg =

font-lock-fontify-region] 3> #s(range-table data ((62 64) t)))
   # bind (zmacs-region-stays)
   # (unwind-protect ...)
   # (unwind-protect ...)
   # (unwind-protect ...)
   # bind (dummy buffer)
   #<compiled-function (buffer dummy) "...(49)" =

[font-lock-pending-buffer-table zmacs-region-stays font-lock-range-table =

buffer remhash buffer-live-p clear-range-table map-extents =

#<compiled-function ... "...(32)" ... 5> nil font-lock-pending t =

put-text-property map-range-table #<compiled-function ... "...(5)" ... 3>] =

9>(#<buffer "create_acl_type_verify.html"> t)
   maphash(#<compiled-function (buffer dummy) "...(49)" =

[font-lock-pending-buffer-table zmacs-region-stays font-lock-range-table =

buffer remhash buffer-live-p clear-range-table map-extents =

#<compiled-function ... "...(32)" ... 5> nil font-lock-pending t =

put-text-property map-range-table #<compiled-function ... "...(5)" ... 3>] =

9> #<hash-table size 0/29 weakness key 0x1bf0>)
   # (unwind-protect ...)
   # bind (match-data)
   font-lock-fontify-pending-extents()
   byte-code("..." [font-lock-pending-buffer-table hash-table-count 0 =

font-lock-fontify-pending-extents] 2)
   # (condition-case ... . ((error (warn "Error caught in =

`font-lock-pre-idle-hook': %s" font-lock-error))))
   font-lock-pre-idle-hook()
   # (condition-case ... . error)
   # (condition-case ... . error)
   # (catch top-level ...)


--===============5394503729363967267==--


From stephen at xemacs.org Sun Feb 26 16:52:11 2017
Content-Type: multipart/mixed; boundary="===============5919175181650008068=="
MIME-Version: 1.0
From: Stephen J. Turnbull <stephen at xemacs.org>
To: xemacs-beta at xemacs.org
Subject: Re: Error with html-helper-mode and XEmacs 21.4.10?
Date: 2003-10-29 09:43:34 +0900
Message-ID: <87oew0euvd.fsf@tleepslib.sk.tsukuba.ac.jp>
In-Reply-To: 5.2.0.9.0.20031027150649.032477a0@cannon.cisco.com

--===============5919175181650008068==
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable

>>>>> "Andrew" =3D=3D Andrew Bayer <abayer(a)cisco.com> writes:

    Andrew> (1) (warning/warning) Error caught in
    Andrew> `font-lock-pre-idle-hook': (wrong-type-argument stringp
    Andrew> nil)

Nice backtrace!  c-syntactic-ws-end is uninitialized.

cc-mode guys, what's going on?

Rest of original post follows for benefit of cc-mode developers:

>>>>> "Andrew" =3D=3D Andrew Bayer <abayer(a)cisco.com> writes:

The lisp backtrace is listed below the rest of this email. I'm able to
work just fine in a straight Javascript file, or in the HTML sections
of an HTML file, and it has this error in embedded Javascript whether
mmm-mode is running or not. Any suggestions? At the very least, I'd
like to be able to kill the warning message - it fontifys the file
just fine when it initially opens it, and that's good enough for
me. Thanks!

Andrew Bayer
abayer(a)cisco.com

(Lisp backtrace:)

   # bind (standard-output stack-trace-on-signal debug-on-signal
   # stack-trace-on-error debug-on-error)
   looking-at(nil)
   # (unwind-protect ...)
   # bind (rung-pos next-rung-pos last-put-in-sws-pos rung-is-marked
   # simple-ws-beg cmt-skip-pos)
   c-backward-sws()
   # (unwind-protect ...)
   # bind (limit)
   c-font-lock-complex-decl-prepare(64)
   # bind (highlights matcher keyword nkeywords iter old-progress
   # progress bufname keywords case-fold-search loudly loudvar end
   # start)
   font-lock-fontify-keywords-region(62 64 nil)
   # (unwind-protect ...)
   # bind (modified buffer-undo-list inhibit-read-only
   # old-syntax-table buffer-file-name buffer-file-truename loudly end
   # beg)
   font-lock-default-fontify-region(62 64 nil)
   # bind (reg)
   #<compiled-function (reg) "...(26)" [mmm-current-submode
   mmm-current-overlay func mode reg mmm-set-current-submode
   mmm-set-local-variables nil mmm-save-changed-local-variables]
   4>((62 64))
   mapcar(#<compiled-function (reg) "...(26)" [mmm-current-submode
   mmm-current-overlay func mode reg mmm-set-current-submode
   mmm-set-local-variables nil mmm-save-changed-local-variables] 4>
   ((62 64)))
   # bind (func)
   # (unwind-protect ...)
   # bind (regions mode)
   mmm-fontify-region-list(javascript-mode ((62 64)))
   # bind (elt)
   #<compiled-function (elt) "...(13)" [elt mmm-font-lock-mode
   mmm-fontify-region-list] 3>((javascript-mode (62 64)))
   mapcar(#<compiled-function (elt) "...(13)" [elt mmm-font-lock-mode
   mmm-fontify-region-list] 3> ((javascript-mode (62 64))))
   # bind (font-lock-beginning-of-syntax-function loudly stop start)
   mmm-fontify-region(62 64 nil)
   # bind (loudly end beg)
   font-lock-fontify-region(62 64)
   # bind (val end beg)
   #<compiled-function (beg end val) "...(5)" [end beg
   font-lock-fontify-region] 3>(62 64 t)
   map-range-table(#<compiled-function (beg end val) "...(5)" [end beg
   font-lock-fontify-region] 3> #s(range-table data ((62 64) t)))
   # bind (zmacs-region-stays)
   # (unwind-protect ...)
   # (unwind-protect ...)
   # (unwind-protect ...)
   # bind (dummy buffer)
   #<compiled-function (buffer dummy) "...(49)"
   [font-lock-pending-buffer-table zmacs-region-stays
   font-lock-range-table buffer remhash buffer-live-p
   clear-range-table map-extents #<compiled-function ... "...(32)"
   ... 5> nil font-lock-pending t put-text-property map-range-table
   #<compiled-function ... "...(5)" ... 3>] 9>(#<buffer
   "create_acl_type_verify.html"> t)
   maphash(#<compiled-function (buffer dummy) "...(49)"
   [font-lock-pending-buffer-table zmacs-region-stays
   font-lock-range-table buffer remhash buffer-live-p
   clear-range-table map-extents #<compiled-function ... "...(32)"
   ... 5> nil font-lock-pending t put-text-property map-range-table
   #<compiled-function ... "...(5)" ... 3>] 9> #<hash-table size 0/29
   weakness key 0x1bf0>)
   # (unwind-protect ...)
   # bind (match-data)
   font-lock-fontify-pending-extents()
   byte-code("..." [font-lock-pending-buffer-table hash-table-count 0
   font-lock-fontify-pending-extents] 2)
   # (condition-case ... . ((error (warn "Error caught in
   # `font-lock-pre-idle-hook': %s" font-lock-error))))
   font-lock-pre-idle-hook()
   # (condition-case ... . error)
   # (condition-case ... . error)
   # (catch top-level ...)


-- =

Institute of Policy and Planning Sciences     http://turnbull.sk.tsukuba.ac=
.jp
University of Tsukuba                    Tennodai 1-1-1 Tsukuba 305-8573 JA=
PAN
               Ask not how you can "do" free software business;
              ask what your business can "do for" free software.


--===============5919175181650008068==--