12 lines
467 B
EmacsLisp
12 lines
467 B
EmacsLisp
; This file is for use by TeX82 (see man page) to allow switching to
|
|
; Emacs at a line number given on the command line
|
|
; It assumes that it has been called by:
|
|
; emacs -l tex-start -e startline <linenumber> <file>
|
|
|
|
(defun startline ()
|
|
;(setq command-line-args (cdr command-line-args))
|
|
(find-file (car (cdr command-line-args-left)))
|
|
(goto-char (point-min))
|
|
(forward-line (1- (string-to-int (car command-line-args-left))))
|
|
(setq command-line-args-left ()))
|