1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
;;; (X)Emacs frontend to forward search with kdvi. See the section on
;;; FORWARD SEARCH in the kdvi manual for more information on forward
;;; search, and for an explanation how to use this script. This script
;;; is a modified version of the script "xdvi-search.el" by Stefan
;;; Ulrich <[email protected]>, version 2000/03/13. The
;;; modifications were performed by Stefan Kebekus
;;; <[email protected]>. Tested with Emacs 20.7.1 and Xemacs 21.4.
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;; published by the Free Software Foundation; either version 2 of the
;;; License, or (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
;;; 02110-1301, USA.
;;;
;;; Please report bugs or improvements, etc. via the "Report bug"-Menu
;;; of kdvi.
;;;
(defvar kdvi-script "kdvi"
"*Name of start script for kdvi.")
(defun kdvi-jump-to-line ()
"Call kdvi-script to perform a `forward search' for current file and line number.
See contents of kdvi-script for details.
If AucTeX is used, the value of TeX-master-file is used as filename
for the master .dvi file; else, the return value of kdvi-master-file-name
is used (which see)."
(interactive)
(save-excursion
(save-restriction
(widen)
(beginning-of-line 1)
(let* (;;; current line in file, as found in the documentation
;;; of emacs. Slightly non-intuitive.
(current-line (format "%d" (+ 1 (count-lines (point-min) (point)))))
;;; name of the `main' .tex file, which is also used as .dvi basename:
(master-file (expand-file-name (if (fboundp 'TeX-master-file)
(TeX-master-file t)
(kdvi-get-masterfile (kdvi-master-file-name)))))
;;; .dvi file name:
(dvi-file (concat (file-name-sans-extension master-file) ".dvi"))
;;; current source file name.
(filename (expand-file-name (buffer-file-name))))
(start-process "kdvi"
"kdvi-output" "kdvi" ;;; src-args
;;; args for -sourceposition:
"--unique" (concat "file:" dvi-file "#src:" current-line filename)
)))))
(defun kdvi-get-masterfile (file)
"Small helper function for AucTeX compatibility.
Converts the special value t that TeX-master might be set to
into a real file name."
(if (eq file t)
(buffer-file-name)
file))
(defun kdvi-master-file-name ()
"Emulate AucTeX's TeX-master-file function.
Partly copied from tex.el's TeX-master-file and TeX-add-local-master."
(if (boundp 'TeX-master)
TeX-master
(let ((master-file (read-file-name "Master file (default this file): ")))
(if (y-or-n-p "Save info as local variable? ")
(progn
(goto-char (point-max))
(if (re-search-backward "^\\([^\n]+\\)Local Variables:" nil t)
(let* ((prefix (if (match-beginning 1)
(buffer-substring (match-beginning 1) (match-end 1))
""))
(start (point)))
(re-search-forward (regexp-quote (concat prefix "End:")) nil t)
(if (re-search-backward (regexp-quote (concat prefix "TeX-master")) start t)
;;; if TeX-master line exists already, replace it
(progn
(beginning-of-line 1)
(kill-line 1))
(beginning-of-line 1))
(insert prefix "TeX-master: " (prin1-to-string master-file) "\n"))
(insert "\n%%% Local Variables: "
;;; mode is of little use without AucTeX ...
;;; "\n%%% mode: " (substring (symbol-name major-mode) 0 -5)
"\n%%% TeX-master: " (prin1-to-string master-file)
"\n%%% End: \n"))
(save-buffer)
(message "(local variables written.)"))
(message "(nothing written.)"))
(set (make-local-variable 'TeX-master) master-file))))
(provide 'kdvi-search)
|
