emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

embrace: handle escaped pairs better

Browse source
This commit is contained in:
Henrik Lissner 2016-05-20 09:06:30 -04:00
parent 91462aabfa
commit 62ba336a36
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
core/defuns/defuns-embrace.el
View file

@ -13,11 +13,13 @@
;;;###autoload ;;;###autoload
(defun narf/embrace-escaped () (defun narf/embrace-escaped ()
"Escaped surround characters." "Escaped surround characters."
(let* ((char (string (read-char "\\"))) (let ((char (read-char "\\")))
(pair (narf--embrace-get-pair char)) (if (eq char 27)
(text (if (sp-point-in-string) "\\\\%s" "\\%s"))) (cons "" "")
(cons (format text (car pair)) (let ((pair (narf--embrace-get-pair (string char)))
(format text (cdr pair))))) (text (if (sp-point-in-string) "\\\\%s" "\\%s")))
(cons (format text (car pair))
(format text (cdr pair)))))))
;;;###autoload ;;;###autoload
(defun narf/embrace-latex () (defun narf/embrace-latex ()