Thanks for the report, Mike, I’ve committed a change to fix that. (I haven’t
reproduced, but the error is clear enough.)
https://bitbucket.org/xemacs/xemacs/commits/aef5b41
Ar an seachtú lá de mí Deireadh Fómhair, scríobh Michael Sperber:
Hi Aidan,
after pulling these two:
[nix-shell:~/build/xemacs-beta]$ hg log -l2
changeset: 7098:9a9e9993b412
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Mon Oct 01 00:42:55 2018 +0100
summary: Advise against #'marker-position in its docstring; follow this advice,
lis
changeset: 7097:45b565af6128
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Fri Sep 28 11:00:54 2018 +0100
summary: Correct a couple of small bugs in #'byte-optimize-{cdr,car}; add tests
I get this:
(1) (general/warning) Error in font-lock-pre-idle-hook: Invalid argument: Marker does not
point anywhere
Backtrace follows:
backtrace(nil t)
# bind (standard-output standard-output handler-arg-name)
backtrace-in-condition-handler-eliminating-handler(#:call-trapping-errors-Ldc9FC5Hr)
# bind (errstr #:call-trapping-errors-Ldc9FC5Hr)
#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc")
(#:call-trapping-errors-Ldc9FC5Hr) "...(17)" [#:call-trapping-errors-Ldc9FC5Hr
errstr error-message-string lwarn general warning "Error in %s: %s\n\nBacktrace
follows:\n\n%s" font-lock-pre-idle-hook
backtrace-in-condition-handler-eliminating-handler] 8 0x24f3>((invalid-argument
"Marker does not point anywhere"))
# bind (lisp-like cache state string beg depth loudly end start)
font-lock-fontify-syntactically-region(1 395 nil)
# (unwind-protect ...)
# bind (modified old-syntax-table buffer-undo-list inhibit-read-only buffer-file-name
buffer-file-truename loudly end beg)
font-lock-default-fontify-region(1 395 nil)
# bind (loudly end beg)
font-lock-fontify-region(1 395)
# bind (val end beg)
#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (beg
end val) "...(5)" [end beg font-lock-fontify-region] 3 0x24f8>(1 395 t)
map-range-table(#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (beg
end val) "...(5)" [end beg font-lock-fontify-region] 3 0x24f8>
#<range-table [1 395) t 0x2>)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
byte-code("..." [font-lock-pending-buffer-table font-lock-mode
font-lock-range-table buffer exit nil remhash buffer-live-p clear-range-table map-extents
#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (ex
dummy-maparg) "...(32)" [font-lock-range-table ex end beg extent-start-position
extent-end-position 0 1 put-range-table t] 5 0x24f7> font-lock-pending t
put-text-property map-range-table #<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (beg
end val) "...(5)" [end beg font-lock-fontify-region] 3 0x24f8>] 9)
# (catch exit ...)
# bind (dummy buffer)
#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc")
(buffer dummy) "...(4)" [exit (byte-code " ¬„ÄŵˆÆ\"ˆÇ!¤È\n!ˆrqˆŠŒ~ˆÉÊʼn‰‰‰ËÌ&ˆÍedËÅ$ˆÎÏ\n\"+‡" [font-lock-pending-buffer-table
font-lock-mode font-lock-range-table buffer exit nil remhash buffer-live-p
clear-range-table map-extents #<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (ex
dummy-maparg) "...(32)" [font-lock-range-table ex end beg extent-start-position
extent-end-position 0 1 put-range-table t] 5 0x24f7> font-lock-pending t
put-text-property map-range-table #<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (beg
end val) "...(5)" [end beg font-lock-fontify-region] 3 0x24f8>] 9)] 2
0x24f9>(#<buffer "*scratch*"> t)
# (unwind-protect ...)
maphash(#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc")
(buffer dummy) "...(4)" [exit (byte-code " ¬„ÄŵˆÆ\"ˆÇ!¤È\n!ˆrqˆŠŒ~ˆÉÊʼn‰‰‰ËÌ&ˆÍedËÅ$ˆÎÏ\n\"+‡" [font-lock-pending-buffer-table
font-lock-mode font-lock-range-table buffer exit nil remhash buffer-live-p
clear-range-table map-extents #<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (ex
dummy-maparg) "...(32)" [font-lock-range-table ex end beg extent-start-position
extent-end-position 0 1 put-range-table t] 5 0x24f7> font-lock-pending t
put-text-property map-range-table #<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") (beg
end val) "...(5)" [end beg font-lock-fontify-region] 3 0x24f8>] 9)] 2
0x24f9> #<hash-table :size 0/29 :weakness key 0x8aa>)
# (unwind-protect ...)
# bind (#:match-data)
font-lock-fontify-pending-extents()
#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc") nil
"...(10)" [font-lock-pending-buffer-table hash-table-count 0
font-lock-fontify-pending-extents] 2 0x24f4>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function (from
"/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc")
(#:call-trapping-errors-Ldc9FC5Hr) "...(17)" [#:call-trapping-errors-Ldc9FC5Hr
errstr error-message-string lwarn general warning "Error in %s: %s\n\nBacktrace
follows:\n\n%s" font-lock-pre-idle-hook
backtrace-in-condition-handler-eliminating-handler] 8 0x24f3> #<compiled-function
(from "/afs/deinprogramm.de/home/sperber/build/xemacs-beta/lisp/font-lock.elc")
nil "...(10)" [font-lock-pending-buffer-table hash-table-count 0
font-lock-fontify-pending-extents] 2 0x24f4>)
# (condition-case ... . ((error)))
font-lock-pre-idle-hook()
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x0> ...)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (inhibit-quit)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (inhibit-quit)
(next-event "[internal]")
# (condition-case ... . error)
# (catch top-level ...)
--
‘As I sat looking up at the Guinness ad, I could never figure out /
How your man stayed up on the surfboard after forty pints of stout’
(C. Moore)