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

[Mark Lillibridge <mark.lillibridge@hp.com>]

>  > * {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