branch: externals/cm-mode
commit e1320a8a163a80d6e56c2784401d99a7288b51a7
Author: Joost Kremers <[email protected]>
Commit: Joost Kremers <[email protected]>
Fix substitution from -> to ~>
---
cm-mode.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/cm-mode.el b/cm-mode.el
index bdb64d157a..47cb0c8747 100644
--- a/cm-mode.el
+++ b/cm-mode.el
@@ -75,7 +75,7 @@
(defvar cm-deletion-regexp "\\(?:{--.*?--}\\)"
"CriticMarkup deletion regexp.")
-(defvar cm-substitution-regexp "\\(?:{~~.*?->.*?~~}\\)"
+(defvar cm-substitution-regexp "\\(?:{~~.*?~>.*?~~}\\)"
"CriticMarkup substitution regexp.")
(defvar cm-comment-regexp "\\(?:{>>.*?<<}\\)"
@@ -168,7 +168,7 @@
"Mark a substitution."
(interactive "r")
(let ((text (delete-and-extract-region beg end)))
- (insert (concat "{~~" text "->~~}"))
+ (insert (concat "{~~" text "~>~~}"))
(backward-char 3)))
(defun cm-comment ()
