[AUCTeX-diffs] Changes to auctex/style/pdfsync.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/03/12 21:06:21

Index: pdfsync.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/pdfsync.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- pdfsync.el  1 Mar 2008 16:26:35 -0000       1.6
+++ pdfsync.el  12 Mar 2008 21:06:21 -0000      1.7
@@ -1,6 +1,6 @@
 ;;; pdfsync.el --- AUCTeX style for `pdfsync.sty'
 
-;; Copyright (C) 2005 Free Software Foundation, Inc.
+;; Copyright (C) 2005, 2008 Free Software Foundation, Inc.
 
 ;; Author: Ralf Angeli <address@hidden>
 ;; Maintainer: address@hidden
@@ -38,6 +38,7 @@
                (file-relative-name (buffer-file-name)
                                    (file-name-directory master))))
         (pdfsync-file (concat master ".pdfsync"))
+        (buf-live-p (get-file-buffer pdfsync-file))
         (sync-record "0")
         (sync-line "-1")
         (sync-page "1")
@@ -77,7 +78,9 @@
                        (string-to-number sync-record))
                (re-search-backward "^s \\([0-9]+\\)" nil t)
                (setq sync-page (match-string 1))
-               (throw 'break nil)))))))
+               (throw 'break nil)))))
+       ;; Kill the buffer if it was loaded by us.
+       (unless buf-live-p (kill-buffer (current-buffer)))))
     sync-page))
 
 (TeX-add-style-hook