Re: Native line numbers, final testing

[James Nguyen]

Eli Zaretskii <address@hidden> writes:

> Are you sure this isn't a bug in evil-mode?  Does this feature behave
> correctly in a buffer with a non-nil line-prefix?
>
> Can you show a backtrace from the args out of range error?

I haven't been keeping track of the line-prefix conversations around
this feature but setting it and then trying to do same thing (as
reported above) works in previous version of this line number branch.

(setq line-prefix "1")
16d2695674 * @ Minor change in NEWS.
^ This combination works.

Here's the trace on the latest commit.
4c9353a584 * scratch/line-numbers origin/scratch/line-numbers

Debugger entered--Lisp error: (args-out-of-range 1)
  signal(args-out-of-range (1))
  (condition-case err (let* ((range (evil-expand (point) (point) (quote line))) 
(beg (evil-range-beginning range)) (end (evil-range-end range)) (min 
(point-min)) (max (point-max))) (if (save-excursion (goto-char end) (bolp)) 
(progn (setq end (max beg (1- end))))) (if (and evil-move-cursor-back (not 
evil-move-beyond-eol) (not (evil-visual-state-p)) (not 
(evil-operator-state-p))) (progn (setq end (max beg (1- end))))) 
(save-restriction (let ((evil-restriction-stack (cons (cons ... ...) 
evil-restriction-stack))) (evil-narrow beg end) (let ((p (point))) 
(condition-case err (progn (condition-case err ... ... ...)) (error (if ... 
...))))))) (error (setq this-command last-command) (signal (car err) (cdr 
err))))
  (let ((evil-restriction-stack (cons (cons (point-min) (point-max)) 
evil-restriction-stack))) (evil-narrow (save-excursion (evil-backward-char (1+ 
(or count 1)) t t) (point)) (1+ (point))) (condition-case err (let* ((range 
(evil-expand (point) (point) (quote line))) (beg (evil-range-beginning range)) 
(end (evil-range-end range)) (min (point-min)) (max (point-max))) (if 
(save-excursion (goto-char end) (bolp)) (progn (setq end (max beg (1- end))))) 
(if (and evil-move-cursor-back (not evil-move-beyond-eol) (not 
(evil-visual-state-p)) (not (evil-operator-state-p))) (progn (setq end (max beg 
(1- end))))) (save-restriction (let ((evil-restriction-stack (cons ... 
evil-restriction-stack))) (evil-narrow beg end) (let ((p ...)) (condition-case 
err (progn ...) (error ...)))))) (error (setq this-command last-command) 
(signal (car err) (cdr err)))))
  (save-restriction (let ((evil-restriction-stack (cons (cons (point-min) 
(point-max)) evil-restriction-stack))) (evil-narrow (save-excursion 
(evil-backward-char (1+ (or count 1)) t t) (point)) (1+ (point))) 
(condition-case err (let* ((range (evil-expand (point) (point) (quote line))) 
(beg (evil-range-beginning range)) (end (evil-range-end range)) (min 
(point-min)) (max (point-max))) (if (save-excursion (goto-char end) (bolp)) 
(progn (setq end (max beg ...)))) (if (and evil-move-cursor-back (not 
evil-move-beyond-eol) (not (evil-visual-state-p)) (not 
(evil-operator-state-p))) (progn (setq end (max beg ...)))) (save-restriction 
(let ((evil-restriction-stack ...)) (evil-narrow beg end) (let (...) 
(condition-case err ... ...))))) (error (setq this-command last-command) 
(signal (car err) (cdr err))))))
  (cond (noerror (condition-case nil (evil-backward-char count crosslines nil) 
(error nil))) ((not crosslines) (save-restriction (let ((evil-restriction-stack 
(cons (cons ... ...) evil-restriction-stack))) (evil-narrow (save-excursion 
(evil-backward-char (1+ ...) t t) (point)) (1+ (point))) (condition-case err 
(let* ((range ...) (beg ...) (end ...) (min ...) (max ...)) (if (save-excursion 
... ...) (progn ...)) (if (and evil-move-cursor-back ... ... ...) (progn ...)) 
(save-restriction (let ... ... ...))) (error (setq this-command last-command) 
(signal (car err) (cdr err))))))) (t (let* ((countvar (or count 1)) (unitvar 
(if (< countvar 0) -1 1))) (catch (quote donevar) (let ((loopvar countvar)) 
(setq loopvar loopvar) (while (/= loopvar 0) (let (...) (backward-char) (if ... 
nil ...) (if ... ...)) (if (> loopvar 0) (setq loopvar ...) (setq loopvar ...)) 
(setq loopvar loopvar)) loopvar)))))
  evil-backward-char(nil nil nil)
  funcall-interactively(evil-backward-char nil nil nil)
  call-interactively(evil-backward-char nil nil)
  command-execute(evil-backward-char)