edebug triggers error

[Joe Corneli]

The error I'm getting only applies when debugging.
Here is some test code that exhibits the error.
To produce the error, evaluate and edebug the
function `bad-bad':

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun bad-bad (reg)
  (set-text-properties (car reg)
                       (cdr reg)
                       '(face font-lock-warning-face)
                       (current-buffer)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Then evaluate this form:

(bad-bad '(160 . 260))

I get an error along the lines of

Debugger entered--Lisp error: (args-out-of-range #^[t nil 0 1 2 3 4 5 6 ...

(bad-bad '(160 . 200))

is fine.

(bad-bad '(160 . 256))

is bad.

My guess is that the error has to do with the debugger trying to print
the numbers as characters, viz.,

Result: 200 (0310, 0xc8) = ?H

which is something I've never understood the justification for.
(Nor do I know how to turn it off.)


In GNU Emacs 22.0.50.12 (powerpc-apple-darwin7.9.0, X toolkit, Xaw3d scroll 
bars)
 of 2005-05-10 on hope-of-a-stone.local
Distributor `The XFree86 Project, Inc', version 11.0.40500000
configured using `configure '--with-x' '--without-carbon' '--with-xpm' 
'--with-jpeg' '--with-tiff' '--with-gif' '--with-png' 'CFLAGS=-I/sw/include' 
'CPPFLAGS=-I/sw/include' 'LDFLAGS=-L/sw/lib''

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: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Fundamental

Minor modes in effect:
  edebug-active: t
  auto-image-file-mode: t
  show-paren-mode: t
  display-time-mode: t
  mouse-wheel-mode: t
  auto-compression-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t
  next-error-follow-minor-mode:  Fol

Recent input:
<C-right> <down> <down> <down> <down> <up> <up> <up> 
<up> C-x C-e M-> C-x C-e C-l C-x o C-x b <return> C-x 
b s c h <tab> - p <tab> <return> C-x o <return> <return> 
<insert> b a d - b a d SPC ' 1 <backspace> <insert> 
1 SPC . SPC 3 C-e C-x C-e <C-backspace> <backspace> 
M-x f u n <tab> <return> <up> C-e C-x C-e <up> <up> 
<up> <up> C-e C-f e M-> <left> C-x C-e n n n n C-x 
o C-SPC M-< M-w <switch-frame> <switch-frame> M-x r 
e p <tab> o <tab> r t <tab> <return>

Recent messages:
t [3 times]
Edebug: bad-bad
bad-bad
Result: (160 . 260)
Result: 160 (0240, 0xa0) = ? 
Result: (160 . 260)
Entering debugger...
Mark set
Making completion list... [2 times]
Loading emacsbug...done