procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/lisp.el (insert-pair-alist): Precompute default value.

Browse source 
Use unicode-property-table-internal with 'paired-bracket to append
pairs of open/close characters to the default value (bug#35480).
This commit is contained in:
Juri Linkov 2019-05-05 22:34:03 +03:00
parent df9b56ecff
commit c64cb02cca
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/lisp.el
View file

@ -646,7 +646,13 @@ Interactively, the behavior depends on `narrow-to-defun-include-comments'."
(narrow-to-region beg end))))
(defvar insert-pair-alist
'((?\( ?\)) (?\[ ?\]) (?\{ ?\}) (?\< ?\>) (?\" ?\") (?\' ?\') (?\` ?\'))
(append '((?\< ?\>) (?\" ?\") (?\' ?\') (?\` ?\'))
(let (alist)
(map-char-table
(lambda (open close)
(when (< open close) (push (list open close) alist)))
(unicode-property-table-internal 'paired-bracket))
(nreverse alist)))
"Alist of paired characters inserted by `insert-pair'.
Each element looks like (OPEN-CHAR CLOSE-CHAR) or (COMMAND-CHAR
OPEN-CHAR CLOSE-CHAR). The characters OPEN-CHAR and CLOSE-CHAR