awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -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

8
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)
(cons "" "")
(let ((pair (narf--embrace-get-pair (string char)))
(text (if (sp-point-in-string) "\\\\%s" "\\%s"))) (text (if (sp-point-in-string) "\\\\%s" "\\%s")))
(cons (format text (car pair)) (cons (format text (car pair))
(format text (cdr pair))))) (format text (cdr pair)))))))
;;;###autoload ;;;###autoload
(defun narf/embrace-latex () (defun narf/embrace-latex ()