Re: Emacs's handling of line numbers [from bug#5042]

[Mark Lillibridge]

>  > * {esc}g currently calls goto-line, but a grep through the elisp sources
>  >   of Emacs shows a lots of calls to goto-line, any of which might be
>  >   broken by changing the behavior of goto-line
>  
>  Grep counts 8 such calls only.  Doesn't seem unmanageable at all.

I think you missed some:

ts-rhel4 [58]% pwd
/nfs/pm-data1/mnt/d4/home/mdl/bin/emacs-23.1/lisp
                                                                                
ts-rhel4 [59]% find . -name \*.el -exec grep '(goto-line' {} \; -print
      (goto-line line))
./bs.el
                (goto-line line)
              (goto-line (1+ line)))
./cus-edit.el
        (goto-line (string-to-number line))
./diff-mode.el
    (goto-line line)
            (goto-line 1)
    (goto-line line)
./org/org-agenda.el
                (goto-line (car x))
    (goto-line line)
                (goto-line (car x))
./org/org-colview.el
      (goto-line (1+ skip1))
./org/org-exp.el
    (goto-line line)
    (goto-line line)
./org/org-list.el
       (goto-line _line)
./org/org-macs.el
    (goto-line winstartline)
    (goto-line linepos)
    (goto-line linepos)
    (goto-line linepos)
    (goto-line linepos)
    (goto-line thisline)
          (goto-line l1)
    (goto-line line)
        (goto-line cline)
      (goto-line last-dline)
    (if l1 (goto-line l1))
          (goto-line l1)
          (goto-line l1)))
    (goto-line l)
            (goto-line r1)
        (goto-line r1)
        (goto-line r2)
          (goto-line (nth 1 a))
            (goto-line org-last-recalc-line)
        (goto-line (nth 1 eq))
      (goto-line thisline)
      (goto-line thisline)
    (goto-line startline)
    (goto-line line)))
          (goto-line (nth 1 e))
            (goto-line (aref org-table-dlines l))
        (goto-line (nth 1 e))
    (goto-line l1)
./org/org-table.el
      (goto-line line)
      (goto-line line)
        (goto-line line))
      (goto-line line)
      (if line (goto-line line)
          (goto-line l)
    (goto-line 3)
./org/org.el
    (goto-line line)))
./ibuffer.el
             (goto-line (cvs-find-modif fi)))
./pcvs.el
    (goto-line (car line-col))
./server.el
                       (goto-line line))
                               (goto-line line))
./startup.el
                                     (goto-line (+ 16 i y))
                     (goto-line (+ 17 y))
./strokes.el
        (goto-line line)
./term.el
            (goto-line ,current-line)
./vc-annotate.el
          (goto-line (pop insn))
                   (goto-line (pop insn))
./vc-rcs.el
;;  (if line (goto-line (prefix-numeric-value line))
  (goto-line line)
./view.el
            (goto-line 3)) ; first error message
            (goto-line 3)) ; first error message
./textmodes/bibtex.el
    (goto-line top)
    (goto-line sl)
./textmodes/picture.el
    (goto-line 3)
./textmodes/reftex-index.el
            (goto-line loc)
      (goto-line reftex-last-line))
./textmodes/reftex-sel.el
      (goto-line 3)
      (progn (goto-line mark-line)
  (if point-line (goto-line point-line))
./textmodes/reftex-toc.el
          (goto-line line)
                                          (goto-line (car deco))
        (goto-line (car deco))
                      (goto-line (car deco))
    (goto-line line)
        (goto-line (car cur))
./textmodes/rst.el
                      (progn (goto-line linenum) (setq last-position nil))
./textmodes/tex-mode.el
    (newline (goto-line line))
./textmodes/two-column.el
    (goto-line (if (consp ns-input-line)
                 (goto-line (if (consp ns-input-line)
                 (goto-line (+ 1 (if (consp ns-input-line)
./term/ns-win.el
            (goto-line (string-to-number line)))
./progmodes/ada-mode.el
            (goto-line (caar declist)))
            (goto-line (car (nth (1- choice) declist)))
    (goto-line line)
./progmodes/ada-xref.el
            `(goto-line (string-to-int (elt ,elt 1))))
    (goto-line l)
./progmodes/cperl-mode.el
    (goto-line old-line)))
    (goto-line n)
./progmodes/ebrowse.el
        (cond (line (goto-line line))
              (setq startpos (progn (goto-line line)
./progmodes/etags.el
  (goto-line line-no)
    (goto-line line)))
  (goto-line line-no)
./progmodes/flymake.el
                    (goto-line (line-number-at-pos (posn-point end)))
                    (goto-line (line-number-at-pos (posn-point end)))
                                  (goto-line (string-to-number line))
                (goto-line (string-to-number line))
        (goto-line (string-to-number line))
./progmodes/gdb-ui.el
              (goto-line line)
./progmodes/gud.el
    (goto-line (nth 1 frame)))))
            (goto-line (nth 1 frame))
    (goto-line bp-line)))
./progmodes/idlw-shell.el
    (goto-line this-line)
    (goto-line 1)
./progmodes/make-mode.el
      (goto-line line))))
            (goto-line target_lineno)
./progmodes/python.el
            (goto-line (string-to-number line))
./progmodes/verilog-mode.el
        (goto-line (cdr token))
                                 (progn (goto-line (cdr token))
                       (progn (goto-line (nth 3 (car ent-alist)))
./progmodes/vhdl-mode.el
  (goto-line (+ (* 5x5-y-pos 5x5-y-scale) 2))
./play/5x5.el
  (goto-line 4)
./play/decipher.el
    (goto-line (1+ gamegrid-score-file-length))
./play/gamegrid.el
    (goto-line (+ 1 gomoku-y-offset (* gomoku-square-height (1- y)))))
./play/gomoku.el
    (goto-line (+ 1 lm-y-offset (* lm-square-height (1- y)))))
./play/landmark.el
  (goto-line 3)
  (goto-line 7)
            (goto-line (car square))    ; line before column!
./play/mpuz.el
      (narrow-to-region (point-min) (progn (goto-line (point-min))
./obsolete/rnewspost.el
     (goto-line (vi-prefix-numeric-value arg))))
./emulation/vi.el
          (goto-line calendar-first-date-row)
    (goto-line (+ calendar-first-date-row
./calendar/cal-move.el
    (goto-line (string-to-number line))))
./gnus/gnus-art.el
                  (goto-line min-line)
./gnus/gnus-salt.el
                 (goto-line calc-final-point-line)
               (goto-line calc-final-point-line)
        (goto-line 2)
./calc/calc.el

- Mark