Re: Native line numbers, final testing

[James Nguyen <james@jojojames.com>]

Eli Zaretskii <eliz@gnu.org> 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-comm
 and 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 e
 rr))))))
  (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)