awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
(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 ()