Mercurial > emacs
changeset 21130:60e882bbb28b
Added keybinding for `reftex-mouse-view-crossref' to S-mouse-2.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Tue, 10 Mar 1998 08:43:44 +0000 |
| parents | 6e9dd8a366f5 |
| children | e4acb217b4af |
| files | lisp/textmodes/reftex.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/reftex.el Tue Mar 10 07:07:31 1998 +0000 +++ b/lisp/textmodes/reftex.el Tue Mar 10 08:43:44 1998 +0000 @@ -1234,7 +1234,7 @@ ;;; Define the formal stuff for a minor mode named RefTeX. ;;; -;; This file corresponds to RefTeX version 3.21.0.3 +;; This file corresponds to RefTeX version 3.22 (defvar reftex-mode nil "Determines if RefTeX minor mode is active.") @@ -5448,7 +5448,7 @@ (font-lock-mode 1))) ((fboundp 'font-lock-set-defaults-1) ;; Looks like the XEmacs font-lock stuff. - ;; FIXME: this is still kind of a hack, but might go away with XEmacs 20.4 + ;; FIXME: this is still kind of a hack, but might go away some day. (set (make-local-variable 'font-lock-keywords) nil) (let ((major-mode 'latex-mode) (font-lock-defaults-computed nil)) @@ -5761,6 +5761,15 @@ (define-key reftex-mode-map "\C-c[" 'reftex-citation) (define-key reftex-mode-map "\C-c&" 'reftex-view-crossref) +;; Bind `reftex-mouse-view-crossref' only when the key is still free +(if (string-match "XEmacs" emacs-version) + (unless (key-binding [(shift button2)]) + (define-key reftex-mode-map [(shift button2)] + 'reftex-mouse-view-crossref)) + (unless (key-binding [(shift mouse-2)]) + (define-key reftex-mode-map [(shift mouse-2)] + 'reftex-mouse-view-crossref))) + ;; If the user requests so, she can have a few more bindings: (cond (reftex-extra-bindings