Re: define-abbrev

["Andreas Röhler" <andreas.roehler@online.de>]

Am Sonntag, 28. Oktober 2007 22:38 schrieb Stefan Monnier:
> > `define-abbrevs' signals:
> >  Wrong type argument: number-or-marker-p, nil
>
> Please give a precise test case.
>
> > Below the output from edebug:
>
> Edebug is good for debugging but is mostly useless for bug-reporting.
> A good backtrace is a much better start point.
>
>

Got two different backtraces today and yesterday 

Backtrace from yesterday at the end

Emacs -q

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  define-abbrev([0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 hrr 0 0 0 0 0 0 0 ...] "hrr" "hier")
  add-abbrev([0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 hrr 0 0 0 0 0 0 0 ...] "Mode" 1)
  add-mode-abbrev(1)
  call-interactively(add-mode-abbrev)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

...

In GNU Emacs 23.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.10.6)
 of 2007-10-28 on ...
Windowing system distributor `The X.Org Foundation', version 11.0.70199902
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: de_DE.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  show-paren-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-x C-f <M-backspace> <M-backspace> <M-backspace> <M-backspace> 
t e x t e / e i n . t x t <return> <down> <down> <down> 
<down> <right> <right> <right> <right> <return> s <left> 
M-x a d d - l o c <tab> <backspace> <backspace> <backspace> 
a b <tab> <backspace> <backspace> <M-backspace> l o 
c <tab> l <tab> - a <backspace> <backspace> a d <tab> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> C-g C-h k C-^ M-x 
a d d - <tab> m o d e - a b b <tab> <return> h r <return> 
M-x e d i t - a b b <tab> <return> C-s " h r " <left> 
<left> <left> <left> C-k C-k C-c C-c C-x c M-x e l 
e <tab> <return> <down> <down> <down> <down> <return> 
M-x c u s t o m <tab> - <backspace> i <tab> <return> 
<f8> C-x k <return> M-x c u s t o m <tab> - <backspace> 
i <tab> - v <tab> <return> d e b u g - o n <tab> e 
r r <tab> <return> <down> <down> <down> <down> <down> 
<down> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <return> 1 <return> 1 <down> 
<up> <return> 2 <down> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <return> 0 C-x b e i n 
. <tab> <return> M-x <up> <up> <up> <up> <up> <return> 
h r r <return> <up> C-x 1 C-SPC <down> <down> <down> 
<down> <down> <down> <down> M-w M-x r e p o r t - e 
m <tab> <return>

Recent messages:
Creating customization setup...done
Making completion list...
Creating customization items...
Creating customization items ...done
Resetting customization items...done
Creating customization setup...done
To install your edits, invoke [State] and choose the Set operation [3 times]
Entering debugger...
Mark set
Auto-saving...done

;;;;;;;;;;;;;;;;;


`define-abbrevs' signals:
 Wrong type argument: number-or-marker-p, nil


Result: vhdl-mode-abbrev-table
Result: (("xor" #1="" vhdl-template-default-hook 0 nil) ("xnor" #1# 
vhdl-template-default-hook 0 nil) ("with" #1# vhdl-template-with-hook 0 nil) 
("while" #1# vhdl-template-while-loop-hook 0 nil) ("when" #1# 
vhdl-template-when-hook 0 nil) ("wait" #1# vhdl-template-wait-hook 0 nil) 
("variable" #1# vhdl-template-variable-hook 0 nil) ("var" #1# 
vhdl-template-variable-hook 0 nil) ("use" #1# vhdl-template-use-hook 0 nil) 
("until" #1# vhdl-template-default-hook 0 nil) ("units" #1# 
vhdl-template-default-hook 0 nil) ("unaffected" #1# 
vhdl-template-default-hook 0 nil) ("type" #1# vhdl-template-type-hook 0 nil) 
("transport" #1# vhdl-template-default-hook 0 nil) ("to" #1# 
vhdl-template-default-hook 0 nil) ("then" #1# vhdl-template-default-hook 0 
nil) ("subtype" #1# vhdl-template-subtype-hook 0 nil) ("srl" #1# 
vhdl-template-default-hook 0 nil) ("sra" #1# vhdl-template-default-hook 0 
nil) ("sll" #1# vhdl-template-default-hook 0 nil) ("sla" #1# 
vhdl-template-default-hook 0 nil) ("signal" #1# vhdl-template-signal-hook 0 
nil) ("sig" #1# vhdl-template-signal-hook 0 nil) ("shared" #1# 
vhdl-template-default-hook 0 nil) ("severity" #1# vhdl-template-default-hook 
0 nil) ("select" #1# vhdl-template-selected-signal-asst-hook 0 nil) ("ror" 
#1# vhdl-template-default-hook 0 nil) ("rol" #1# vhdl-template-default-hook 0 
nil) ("return" #1# vhdl-template-return-hook 0 nil) ("report" #1# 
vhdl-template-report-hook 0 nil) ("rem" #1# vhdl-template-default-hook 0 nil) 
("reject" #1# vhdl-template-default-hook 0 nil) ("register" #1# 
vhdl-template-default-hook 0 nil) ("record" #1# vhdl-template-default-hook 0 
nil) ("range" #1# vhdl-template-default-hook 0 nil) ("pure" #1# 
vhdl-template-default-hook 0 nil) ("process" #1# vhdl-template-process-hook 0 
nil) ("procedure" #1# vhdl-template-procedure-hook 0 nil) ("postponed" #1# 
vhdl-template-default-hook 0 nil) ("port" #1# vhdl-template-port-hook 0 nil) 
("package" #1# vhdl-template-package-hook 0 nil) ("pack" #1# 
vhdl-template-package-hook 0 nil) ("out" #1# vhdl-template-default-hook 0 
nil) ("others" #1# vhdl-template-default-hook 0 nil) ("or" #1# 
vhdl-template-default-hook 0 nil) ("open" #1# vhdl-template-default-hook 0 
nil) ("on" #1# vhdl-template-default-hook 0 nil) ("of" #1# 
vhdl-template-default-hook 0 nil) ("null" #1# vhdl-template-default-hook 0 
nil) ("not" #1# vhdl-template-default-hook 0 nil) ...)
Wrong type argument: number-or-marker-p, nil