From 62ba336a3657f2617cc32a0b346121da204e7519 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 20 May 2016 09:06:30 -0400 Subject: [PATCH] embrace: handle escaped pairs better --- core/defuns/defuns-embrace.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/core/defuns/defuns-embrace.el b/core/defuns/defuns-embrace.el index 20f772731..b41a6b7ca 100644 --- a/core/defuns/defuns-embrace.el +++ b/core/defuns/defuns-embrace.el @@ -13,11 +13,13 @@ ;;;###autoload (defun narf/embrace-escaped () "Escaped surround characters." - (let* ((char (string (read-char "\\"))) - (pair (narf--embrace-get-pair char)) - (text (if (sp-point-in-string) "\\\\%s" "\\%s"))) - (cons (format text (car pair)) - (format text (cdr pair))))) + (let ((char (read-char "\\"))) + (if (eq char 27) + (cons "" "") + (let ((pair (narf--embrace-get-pair (string char))) + (text (if (sp-point-in-string) "\\\\%s" "\\%s"))) + (cons (format text (car pair)) + (format text (cdr pair))))))) ;;;###autoload (defun narf/embrace-latex ()