branch: elpa/cdlatex
commit 3adedafd20da04ed690c3af9b3bb13f250163264
Author: Carsten Dominik <[email protected]>
Commit: Carsten Dominik <[email protected]>
Add vars keeping cdlatex from taking over parens insert
This is an attempt to avoid bad interaction with other packages
messing with these insertion commands.
---
cdlatex.el | 38 ++++++++++++++++++++++++++++++--------
1 file changed, 30 insertions(+), 8 deletions(-)
diff --git a/cdlatex.el b/cdlatex.el
index da0759e0cd..4ae1c13267 100644
--- a/cdlatex.el
+++ b/cdlatex.el
@@ -557,6 +557,23 @@ Font-lock must be loaded as well to actually get fontified
display."
:group 'cdlatex-miscellaneous-configurations
:type '(boolean))
+(defcustom cdlatex-takeover-parenthesis t
+ "*Non-nil means, cdlatex is allowed to take over the parenthesis insertion.
+THis means it will redefine the `(', `{', and `[' keys."
+ :group 'cdlatex-miscellaneous-configurations
+ :type '(boolean))
+
+(defcustom cdlatex-takeover-dollar t
+ "*Non-nil means, cdlatex is allowed to take over the $.
+THis means it will redefine the `$' keys."
+ :group 'cdlatex-miscellaneous-configurations
+ :type '(boolean))
+
+(defcustom cdlatex-takeover-subsuperscript t
+ "*Non-nil means, cdlatex is allowed to take over the ^ and _ keys."
+ :group 'cdlatex-miscellaneous-configurations
+ :type '(boolean))
+
(defcustom cdlatex-paired-parens "$[{"
"*String with the opening parens you want to have inserted paired.
The following parens are allowed here: `$([{|<'.
@@ -2156,14 +2173,19 @@ these variables via `cdlatex-add-to-label-alist'."
;;; Keybindings --------------------------------------------------------------
-(define-key cdlatex-mode-map "$" 'cdlatex-dollar)
-(define-key cdlatex-mode-map "(" 'cdlatex-pbb)
-(define-key cdlatex-mode-map "{" 'cdlatex-pbb)
-(define-key cdlatex-mode-map "[" 'cdlatex-pbb)
-(define-key cdlatex-mode-map "|" 'cdlatex-pbb)
-(define-key cdlatex-mode-map "<" 'cdlatex-pbb)
-(define-key cdlatex-mode-map "^" 'cdlatex-sub-superscript)
-(define-key cdlatex-mode-map "_" 'cdlatex-sub-superscript)
+(if cdlatex-takeover-dollar
+ (define-key cdlatex-mode-map "$" 'cdlatex-dollar))
+(if cdlatex-takeover-parenthesis
+ (progn
+ (define-key cdlatex-mode-map "(" 'cdlatex-pbb)
+ (define-key cdlatex-mode-map "{" 'cdlatex-pbb)
+ (define-key cdlatex-mode-map "[" 'cdlatex-pbb)
+ (define-key cdlatex-mode-map "|" 'cdlatex-pbb)
+ (define-key cdlatex-mode-map "<" 'cdlatex-pbb)))
+(if cdlatex-takeover-subsuperscript
+ (progn
+ (define-key cdlatex-mode-map "^" 'cdlatex-sub-superscript)
+ (define-key cdlatex-mode-map "_" 'cdlatex-sub-superscript)))
(define-key cdlatex-mode-map "\t" 'cdlatex-tab)
(define-key cdlatex-mode-map "\C-c?" 'cdlatex-command-help)
