From a40869789fc5502e3d4e393b7c31d78cb7f29aa1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sun, 26 Apr 2015 11:44:41 +0100 Subject: [PATCH] `tex-insert-quote' after single `'' opens quotes instead of closing Without this, it's very hard to precede double quotes with the apostrophe character, i.e. insert the sequence '`` (quote-backquote-backquote), commonly useful in portuguese, for instance. * tex-mode.el (tex-insert-quote): Add ?' to the list of preceding chars making `tex-insert-quote' be in the "opening" context. --- lisp/textmodes/tex-mode.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index c26c6098364..274cb4aa434 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -1331,7 +1331,9 @@ inserts \" characters." (goto-char saved) (insert (if (> saved (mark)) tex-close-quote tex-open-quote))) (if (or (memq (char-syntax (preceding-char)) '(?\( ?> ?\s)) - (memq (preceding-char) '(?~))) + (memq (preceding-char) '(?~ ?'))) + ;; We're in an "opening" context + ;; (if electric-pair-mode (if (looking-at (regexp-quote tex-close-quote)) (forward-char (length tex-close-quote)) @@ -1339,6 +1341,8 @@ inserts \" characters." (insert tex-close-quote) (backward-char (length tex-close-quote))) (insert tex-open-quote)) + ;; We're in a "closing" context. + ;; (if (looking-at (regexp-quote tex-close-quote)) (forward-char (length tex-close-quote)) (insert tex-close-quote)))))) -- 2.39.2