branch: elpa/cdlatex
commit 90d785a94c0db7aa0043ea62f5807af3df155438
Author: Carsten Dominik <carsten.domi...@gmail.com>
Commit: GitHub <nore...@github.com>
New option `cdlatex-sub-super-scripts-outside-math-mode'.
Thanks to Benedikt Tissot for suggesting it.
---
cdlatex.el | 48 +++++++++++++++++++++++++++++-------------------
1 file changed, 29 insertions(+), 19 deletions(-)
diff --git a/cdlatex.el b/cdlatex.el
index 9c3a2d7d37..e2e6be1f8c 100644
--- a/cdlatex.el
+++ b/cdlatex.el
@@ -1,9 +1,9 @@
;;; cdlatex.el --- Fast input methods for LaTeX environments and math
-;; Copyright (c) 2010, 2011, 2012, 2014 Free Software Foundation, Inc.
+;; Copyright (c) 2010, 2011, 2012, 2014, 2019 Free Software Foundation, Inc.
;;
;; Author: Carsten Dominik <carsten.domi...@gmail.com>
;; Keywords: tex
-;; Version: 4.7
+;; Version: 4.8
;;
;; This file is not part of GNU Emacs.
;;
@@ -551,6 +551,13 @@ letter, the parenthesis will be removed."
:group 'cdlatex-miscellaneous-configurations
:type '(boolean))
+(defcustom cdlatex-sub-super-scripts-outside-math-mode t
+ "*Non-nil means, inserting ^ or _ will add dollars outside math environment.
+So in text mode surrounding dollars and braces will be added with `_' and `^'.
+When nil, `_' and `^' will just self-insert."
+ :group 'cdlatex-miscellaneous-configurations
+ :type '(boolean))
+
(defcustom cdlatex-auto-help-delay 1.5
"Number of idle seconds before display of auto-help.
When executing cdlatex-math-symbol or cdlatex-math-modify, display
@@ -772,23 +779,26 @@ When not in LaTeX math environment, _{} and ^{} will have
dollars."
(if (cdlatex-number-of-backslashes-is-odd)
;; Quoted
(insert (event-basic-type last-command-event))
- ;; Check if we need to switch to math mode
- (if (not (texmathp)) (cdlatex-dollar))
- (if (string= (buffer-substring (max (point-min) (- (point) 2)) (point))
- (concat (char-to-string (event-basic-type last-command-event))
- "{"))
- ;; We are at the start of a sub/suberscript. Allow a__{b} and a^^{b}
- ;; This is an undocumented feature, please keep it in. It supports
- ;; a special notation which can be used for upright sub- and
- ;; superscripts.
- (progn
- (backward-char 1)
- (insert (event-basic-type last-command-event))
- (forward-char 1))
- ;; Insert the normal template.
- (insert (event-basic-type last-command-event))
- (insert "{}")
- (forward-char -1))))
+ ;; Check if we are in math mode, if not switch to or only add _ or ^
+ (if (and (not (texmathp))
+ (not cdlatex-sub-super-scripts-outside-math-mode))
+ (insert (event-basic-type last-command-event))
+ (if (not (texmathp)) (cdlatex-dollar))
+ (if (string= (buffer-substring (max (point-min) (- (point) 2)) (point))
+ (concat (char-to-string (event-basic-type
last-command-event))
+ "{"))
+ ;; We are at the start of a sub/suberscript. Allow a__{b} and a^^{b}
+ ;; This is an undocumented feature, please keep it in. It supports
+ ;; a special notation which can be used for upright sub- and
+ ;; superscripts.
+ (progn
+ (backward-char 1)
+ (insert (event-basic-type last-command-event))
+ (forward-char 1))
+ ;; Insert the normal template.
+ (insert (event-basic-type last-command-event))
+ (insert "{}")
+ (forward-char -1)))))
(defun cdlatex-lr-pair ()
"Insert a \\left-\\right pair of parens."
