From 417067ede1161a01589f24842207c7d681808fbd Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 3 May 2002 13:23:24 +0000
Subject: Try to support next-error key binding for both Emacs versions.

---
 generic/proof-config.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/generic/proof-config.el b/generic/proof-config.el
index 7ee5c4c9..f80b2981 100644
--- a/generic/proof-config.el
+++ b/generic/proof-config.el
@@ -1683,7 +1683,8 @@ jumps to the end of the locked region)
 Match number 2 should be the line number, if present.
 Match number 3 should be the column number, if present.
 
-The filename may be matched by `proof-shell-next-error-filename-regexp'."
+The filename may be matched by `proof-shell-next-error-filename-regexp',
+which is assumed to precede proof-shell-next-error-regexp."
   :type 'string
   :group 'proof-shell)
 
@@ -2344,9 +2345,12 @@ If this table is empty or needs adjusting, please make changes using
 ;; FIXME: da: could we put these into another keymap shared across the
 ;; various PG modes?
 (defcustom proof-universal-keys
-  '(([(control c) (control c)] . proof-interrupt-process)
-    ([(control c) (control v)] . proof-minibuffer-cmd)
-    ([(control c) \`] . proof-next-error))
+  (cons
+   (if proof-running-on-XEmacs 
+       '([(control c) \`] . proof-next-error)
+     '([(control c) "`"] . proof-next-error))
+   '(([(control c) (control c)] . proof-interrupt-process)
+     ([(control c) (control v)] . proof-minibuffer-cmd)))
 "List of key-bindings made for the script, goals and response buffer. 
 Elements of the list are tuples `(k . f)' 
 where `k' is a key-binding (vector) and `f' the designated function."
-- 
cgit v1.2.3