summaryrefslogtreecommitdiff
path: root/lisp/tex-start.el
blob: 0184114faf00fef0ce53db562838f9f865d4ffe2 (plain)
1
2
3
4
5
6
7
8
9
10
11
; 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 ()))