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

[Tassilo Horn]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Tassilo Horn <tsdh>     12/04/11 06:38:26

Index: tex.el
===================================================================
RCS file: /sources/auctex/auctex/tex.el,v
retrieving revision 5.691
retrieving revision 5.692
diff -u -b -r5.691 -r5.692
--- tex.el      10 Apr 2012 19:19:28 -0000      5.691
+++ tex.el      11 Apr 2012 06:38:26 -0000      5.692
@@ -1043,8 +1043,16 @@
         "org.gnome.evince.Window"
         "SyncView"
         (buffer-file-name)
-        (list :struct :int32 (line-number-at-pos) :int32 1)
-        :uint32 (float-time))
+        (list :struct :int32 (line-number-at-pos) :int32 (1+ (current-column)))
+        :uint32 (let ((time (float-time)))
+                  ;; FIXME: Evince wants a timestamp as UInt32, but POSIX time
+                  ;; is too large for emacs integers on 32 bit systems.  Emacs
+                  ;; 24.2 will allow providing DBUS ints as floats.  But it
+                  ;; seems providing just 1 as timestamp has no negative
+                  ;; consequences, anyway.
+                  (if (> most-positive-fixnum time)
+                      (round time)
+                    1)))
       (error "Couldn't find the Evince instance for %s" uri))))
 
 (defvar TeX-view-program-list-builtin