Re: Emacs line number mode

[http://dummy.us.eu.org/robert (robert)]

 > From: Kyle Jones <http://www.wonderworks.com/~kyle_jones>
 > Date: Wed, 22 Aug 2001 11:55:35 -0700
 >
 > robert writes:
 >  > I get a bug when I ^D at the end of a line:
 >  > 
 >  > Wrong type argument: extentp, nil
 >  > 
 >  > I'm using XEmacs 21.1 patch 14
 >  > 
 >  > Any ideas?
 > 
 > I can't reproduce this 21.1.12.  Is this bug repeatable?

For me, it is. :)

Uh, I could send you the traceback from debug-on-error.  It is below.
Hopefully, this helps.

I'm at a loss at how to try to fix it.

-------------------------------------------------------------------------------

Signaling: (wrong-type-argument extentp nil)
  setnu-set-extent-property(nil setnu-next-extent #<extent [34638, 34687) setnu 0x87bb68c in buffer SpiderUrls.c>)
  (cond (e (setq beg ...) (forward-line 1) (setnu-set-extent-endpoints e beg ...) e) ((bobp) (setq e ... numstr ...) (setnu-set-extent-property e ... numstr) (setnu-set-extent-begin-glyph e ...) (setq setnu-start-extent e) e) (t (setq e ...) (setq ee ...) (setnu-set-extent-property e ... ee) (setnu-set-extent-property ee ... e) (setq numstr ...) (setnu-set-extent-property e ... numstr) (setnu-set-extent-begin-glyph e ...) e))
)
  (save-excursion (goto-char pos) (beginning-of-line) (setq e (setnu-extent-at ... buf)) (cond (e ... ... ... e) (... ... ... ... ... e) (t ... ... ... ... ... ... ... e)))
)
  (if e e (save-excursion (goto-char pos) (beginning-of-line) (setq e ...) (cond ... ... ...)))
)
  (let ((e ...) ee beg numstr) (if e e (save-excursion ... ... ... ...)))
)
  setnu-extent-at-create(34687 nil)
  (setq start-e (setnu-extent-at-create start nil) saved-next (setnu-extent-property start-e (quote setnu-next-extent)))
)
  (progn (setq start-e (setnu-extent-at-create start nil) saved-next (setnu-extent-property start-e ...)) (setq end-e (setnu-extent-at-create end nil)) (setnu-set-extent-endpoints start-e (setnu-extent-start-position start-e) (setnu-extent-end-position end-e)) (setnu-set-extent-property start-e (quote setnu-next-extent) (setnu-extent-property end-e ...)))
)
  (if (search-forward "\n" end t) (progn (setq start-e ... saved-next ...) (setq end-e ...) (setnu-set-extent-endpoints start-e ... ...) (setnu-set-extent-property start-e ... ...)))
)
  (save-restriction (widen) (goto-char start) (if (search-forward "\n" end t) (progn ... ... ... ...)) (if start-e (progn ... ... ... ... ... ... ...)))
)
  (save-excursion (save-restriction (widen) (goto-char start) (if ... ...) (if start-e ...)))
)
  (unwind-protect (save-excursion (save-restriction ... ... ... ...)) (store-match-data match-data))
)
  (let ((inhibit-quit t) (start-e nil) (match-data ...) end-e saved-next e ee) (unwind-protect (save-excursion ...) (store-match-data match-data)))
)
  (if (or (not setnu-mode) (= start end)) nil (let (... ... ... end-e saved-next e ee) (unwind-protect ... ...)))
)
  setnu-before-change-function(34687 34688)
  delete-char(1 nil)
  call-interactively(delete-char)