From: Juri Linkov <juri@linkov.net>
To: "積丹尼 Dan Jacobson" <jidanni@jidanni.org>
Cc: 35480@debbugs.gnu.org
Subject: bug#35480: insert-wide-parentheses
Date: Tue, 30 Apr 2019 23:15:27 +0300 [thread overview]
Message-ID: <87y33rw9n4.fsf@mail.linkov.net> (raw)
In-Reply-To: <87muk8b6ci.8.fsf@jidanni.org> ("積丹尼 Dan Jacobson"'s message of "Tue, 30 Apr 2019 09:59:57 +0800")
>>> M-( is insert-parentheses, so
>>> M-( should be insert-wide-parentheses.
>
> JL> (define-key esc-map "(" 'insert-pair)
> JL> (add-to-list 'insert-pair-alist '(?\( ?\( ?\)))
>
> OK but now it looks like
> perl -C -wple 's/\d+/chr $&/eg;'
> ((( ( ))
> (( ))
> ([ ])
> ({ })
> (< >)
> (" ")
> (' ')
> (` '))
>
> So I bet just
>
> (add-to-list 'insert-pair-alist '(?\( ?\)))
>
> is good enough. Anyways, I'm hoping the emacs authors will add this to
> the defaults.
>
> In fact they need to add wide versions of all those current narrow items there.
OK, this adds all Unicode pairs to the default:
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index d10d5f0d10..f73dbb269d 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -646,7 +646,13 @@ narrow-to-defun
(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
next prev parent reply other threads:[~2019-04-30 20:15 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-04-28 20:38 bug#35480: insert-wide-parentheses 積丹尼 Dan Jacobson
2019-04-29 20:00 ` Juri Linkov
2019-04-30 1:59 ` 積丹尼 Dan Jacobson
2019-04-30 20:15 ` Juri Linkov [this message]
2019-05-05 19:34 ` Juri Linkov
2019-05-05 22:27 ` Andreas Schwab
2019-05-06 2:35 ` Eli Zaretskii
2019-05-06 19:33 ` Juri Linkov
2019-05-06 22:47 ` Noam Postavsky
2019-05-07 20:21 ` Juri Linkov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87y33rw9n4.fsf@mail.linkov.net \
--to=juri@linkov.net \
--cc=35480@debbugs.gnu.org \
--cc=jidanni@jidanni.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.