summaryrefslogtreecommitdiffstats
path: root/doc/kdvi/kdvi-search.el
diff options
context:
space:
mode:
authortoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
committertoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
commit47d455dd55be855e4cc691c32f687f723d9247ee (patch)
tree52e236aaa2576bdb3840ebede26619692fed6d7d /doc/kdvi/kdvi-search.el
downloadtdegraphics-47d455dd55be855e4cc691c32f687f723d9247ee.tar.gz
tdegraphics-47d455dd55be855e4cc691c32f687f723d9247ee.zip
Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
BUG:215923 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdegraphics@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'doc/kdvi/kdvi-search.el')
-rw-r--r--doc/kdvi/kdvi-search.el102
1 files changed, 102 insertions, 0 deletions
diff --git a/doc/kdvi/kdvi-search.el b/doc/kdvi/kdvi-search.el
new file mode 100644
index 00000000..d08dd07e
--- /dev/null
+++ b/doc/kdvi/kdvi-search.el
@@ -0,0 +1,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)
+