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

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 <ulrich@cis.uni-muenchen.de>, version 2000/03/13. The
+;;; modifications were performed by Stefan Kebekus
+;;; <kebekus@kde.org>. 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)
+