[Emacs-diffs] master b6a8025 1/4: Add support for curly quotation marks to electric-pair-mode

[Reuben Thomas]

branch: master
commit b6a8025eed3349ef98701ef07fa47e4abf22d1cc
Author: Reuben Thomas <address@hidden>
Commit: Reuben Thomas <address@hidden>

    Add support for curly quotation marks to electric-pair-mode
    
    * lisp/elec-pair.el (electric-pair-pairs, electric-pair-text-pairs): Add
    entries for left/right single/double quotation marks, from
    electric-quote-chars. Note that this is safe for single quotation marks,
    unlike with the ASCII apostrophe, since, although the right quotation
    mark can be used as an apostrophe, it is the left quotation mark that is
    typed to get a pair (Bug#24901).
---
 lisp/elec-pair.el |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el
index 1162920..47d44b1 100644
--- a/lisp/elec-pair.el
+++ b/lisp/elec-pair.el
@@ -28,7 +28,9 @@
 ;;; Electric pairing.
 
 (defcustom electric-pair-pairs
-  '((?\" . ?\"))
+  '((?\" . ?\")
+    ((nth 0 electric-quote-chars) . (nth 1 electric-quote-chars))
+    ((nth 2 electric-quote-chars) . (nth 3 electric-quote-chars)))
   "Alist of pairs that should be used regardless of major mode.
 
 Pairs of delimiters in this list are a fallback in case they have
@@ -42,7 +44,9 @@ See also the variable `electric-pair-text-pairs'."
 
 ;;;###autoload
 (defcustom electric-pair-text-pairs
-  '((?\" . ?\" ))
+  '((?\" . ?\" )
+    ((nth 0 electric-quote-chars) . (nth 1 electric-quote-chars))
+    ((nth 2 electric-quote-chars) . (nth 3 electric-quote-chars)))
   "Alist of pairs that should always be used in comments and strings.
 
 Pairs of delimiters in this list are a fallback in case they have