[elpa] 96/299: Raise frame on backward search.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit 26a6266ad717ec64cadf17fbf78619d74e012922
Author: Tassilo Horn <address@hidden>
Date:   Mon Apr 15 10:52:06 2013 +0200

    Raise frame on backward search.
    
    * tex.el (TeX-source-correlate-sync-source): Raise frame when
    placing point on the source location.
---
 ChangeLog |    5 +++++
 tex.el    |   14 +++++++++-----
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bb2b0c2..739010c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-15  Tassilo Horn  <address@hidden>
+
+       * tex.el (TeX-source-correlate-sync-source): Raise frame when
+       placing point on the source location.
+
 2013-04-12  Mos� Giordano  <address@hidden>
 
        * Makefile.in (STYLESRC): Add style/acro.el and style/acronym.el.
diff --git a/tex.el b/tex.el
index e82fce3..ca246e7 100644
--- a/tex.el
+++ b/tex.el
@@ -1494,10 +1494,11 @@ You could use this for unusual mouse bindings.")
 
 (defun TeX-source-correlate-sync-source (file linecol &rest ignored)
   "Show TeX FILE with point at LINECOL.
-This function is called when emacs receives a SyncSource signal
-emitted from the Evince document viewer.  IGNORED absorbs an
-unused id field accompanying the DBUS signal sent by Evince-3.0.0
-or newer."
+If the external wmctrl program is installed, the emacs frame will
+also be risen.  This function is called when emacs receives a
+SyncSource signal emitted from the Evince document viewer.
+IGNORED absorbs an unused id field accompanying the DBUS signal
+sent by Evince-3.0.0 or newer."
   ;; FILE may be given as relative path to the TeX-master root document or as
   ;; absolute file:// URL.  In the former case, the tex file has to be already
   ;; opened.
@@ -1521,7 +1522,10 @@ or newer."
       (goto-char (point-min))
       (forward-line (1- line))
       (unless (= col -1)
-        (move-to-column col)))))
+        (move-to-column col))
+      (let ((wmctrl (executable-find "wmctrl")))
+       (when wmctrl
+         (start-process "wmctrl" nil wmctrl "-R" (frame-parameter nil 
'name)))))))
 
 (define-minor-mode TeX-source-correlate-mode
   "Minor mode for forward and inverse search.