[Bug: 21.5-b28] CPerl mode: 'Wrong type argument: integer-or-marker-p, nil' on { keypress

[Ville Skyttä]

On Tuesday 15 April 2008, Ilya Zakharevich wrote:
> On Thu, Apr 03, 2008 at 08:19:22PM +0300, Ville Skytt wrote:
> > > As of version 6.1, all these changes (with some (funcall)s added, to
> > > pacify the bytecompiler) are incorporated.  See
> > >
> > >   ilyaz.org/software/emacs
> >
> > Thanks!
> >
> > There's just one tiny auto-autoloads bit missing from 6.1 (associate
> > *.PM, *.pM, see attachment), otherwise cperl-mode.el in XEmacs CVS is now
> > identical with it.
>
> I hope v6.2 (released right now) contains it.

It does, thanks.

I tried 6.2 briefly but it looks like either it introduces a problem or (more 
likely) its new functionality just triggers it: with font-lock-mode on, 
invoking "Perl->Micro-docs->Show Faces" from the menus with XEmacs 21.5.28 
gives me an error message:

Warning: Error in unknown: Invalid argument: No such face, 
my-cperl-REx-spec-char-face

Backtrace:

  put-text-property(380 381 face my-cperl-REx-spec-char-face)
  # bind (pos prop posend end)
  cperl-fontify-update(1623)
  # bind (highlights matcher keyword nkeywords iter old-progress progress 
bufname keywords case-fold-search loudly loudvar end start)
  font-lock-fontify-keywords-region(812 1623 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(812 1623 nil)
  # bind (loudly end beg)
  cperl-font-lock-fontify-region-function(812 1623 nil)
  # bind (loudly end beg)
  font-lock-fontify-region(812 1623)
  # bind (val end beg)
  #<compiled-function (beg end val) "...(5)" [end beg 
font-lock-fontify-region] 3>(812 1623 t)
  map-range-table(#<compiled-function (beg end val) "...(5)" [end beg 
font-lock-fontify-region] 3> #<range-table [812 1623) t 0x381ae>)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (dummy buffer)
  #<compiled-function (buffer dummy) "...(47)" [font-lock-pending-buffer-table 
font-lock-range-table buffer remhash buffer-live-p clear-range-table 
map-extents #<compiled-function (ex dummy-maparg) "...(32)" 
[font-lock-range-table ex end beg extent-start-position extent-end-position 0 
1 put-range-table t] 5> nil font-lock-pending t put-text-property 
map-range-table #<compiled-function (beg end val) "...(5)" [end beg 
font-lock-fontify-region] 3>] 9>(#<buffer "*scratch*"> t)
  # (unwind-protect ...)
  maphash(#<compiled-function (buffer dummy) "...(47)" 
[font-lock-pending-buffer-table font-lock-range-table buffer remhash 
buffer-live-p clear-range-table map-extents #<compiled-function (ex 
dummy-maparg) "...(32)" [font-lock-range-table ex end beg 
extent-start-position extent-end-position 0 1 put-range-table t] 5> nil 
font-lock-pending t put-text-property map-range-table #<compiled-function 
(beg end val) "...(5)" [end beg font-lock-fontify-region] 3>] 9> #<hash-table 
size 0/29 weakness key 0x381a9>)
  # (unwind-protect ...)
  # bind (match-data)
  font-lock-fontify-pending-extents()
  #<compiled-function nil "...(10)" [font-lock-pending-buffer-table 
hash-table-count 0 font-lock-fontify-pending-extents] 2>()
  # (unwind-protect ...)
  call-with-condition-handler(#<compiled-function 
(__call_trapping_errors_arg__) "...(17)" [__call_trapping_errors_arg__ errstr 
error-message-string lwarn general warning "Error in %s: %s\n\nBacktrace 
follows:\n\n%s" "unknown" backtrace-in-condition-handler-eliminating-handler] 
8> #<compiled-function nil "...(10)" [font-lock-pending-buffer-table 
hash-table-count 0 font-lock-fontify-pending-extents] 2>)
  # (condition-case ... . ((error)))
  font-lock-pre-idle-hook()
  # (unwind-protect ...)
  # (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0xbbc3b0> ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (inhibit-quit)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (inhibit-quit)
  # (condition-case ... . error)
  # (catch top-level ...)