From: Stefan Monnier <monnier@iro.umontreal.ca>
To: Glenn Morris <rgm@gnu.org>
Cc: 20444@debbugs.gnu.org
Subject: bug#20444: paste error in emacs -nw
Date: Wed, 06 May 2015 17:05:54 -0400 [thread overview]
Message-ID: <jwvk2wl8lv0.fsf-monnier+emacsbugs@gnu.org> (raw)
In-Reply-To: <c68ud1fsrs.fsf@fencepost.gnu.org> (Glenn Morris's message of "Wed, 06 May 2015 14:46:47 -0400")
>> (add-hook (quote terminal-init-xterm-hook)
>> (lambda ()
>> (message "t-i-x-h: %S"
>> (lookup-key input-decode-map
>> "\e[200~"))))
>>
>> (advice-add (quote xterm-register-default-colors)
>> :before
>> (lambda (&rest _)
>> (message "x-r-d-c: %S"
>> (lookup-key input-decode-map
>> "\e[200~"))))
> x-r-d-c: 5
> t-i-x-h: 5
Hmm...
OK, next step:
(advice-add (quote xterm-register-default-colors) :before
(lambda (&rest _)
(message "x-r-d-c-1: %S"
(lookup-key xterm-function-map
"\e[200~"))
(message "x-r-d-c-2: %S"
(lookup-key (copy-keymap xterm-function-map)
"\e[200~"))
(message "x-r-d-c-3: %S"
(lookup-key (keymap-parent input-decode-map)
"\e[200~"))
(message "x-r-d-c-4: %S"
(lookup-key (let ((map (copy-keymap xterm-function-map)))
(set-keymap-parent map (keymap-parent input-decode-map))
map)
"\e[200~"))
))
-- Stefan
PS: While you're at it, could you try the patch below, which shouldn't
make any difference to your problem, but would be good anyway.
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 79699c6..ec8b1ef 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -696,17 +696,16 @@ We run the first FUNCTION whose STRING matches the input events."
(string-match "\\`rxvt" (getenv "COLORTERM" (selected-frame))))
(tty-run-terminal-initialization (selected-frame) "rxvt")
- (let ((map (copy-keymap xterm-alternatives-map)))
- (set-keymap-parent map (keymap-parent local-function-key-map))
- (set-keymap-parent local-function-key-map map))
-
- (let ((map (copy-keymap xterm-function-map)))
-
- ;; Use inheritance to let the main keymap override those defaults.
- ;; This way we don't override terminfo-derived settings or settings
- ;; made in the init file.
- (set-keymap-parent map (keymap-parent input-decode-map))
- (set-keymap-parent input-decode-map map)))
+ (let ((push-map
+ ;; Use inheritance to let the main keymaps override those defaults.
+ ;; This way we don't override terminfo-derived settings or settings
+ ;; made in the init file.
+ (lambda (map basemap)
+ (set-keymap-parent
+ basemap
+ (make-composed-keymap map (keymap-parent basemap))))))
+ (funcall push-map xterm-alternatives-map local-function-key-map)
+ (funcall push-map xterm-function-map input-decode-map)))
(xterm-register-default-colors)
(tty-set-up-initial-frame-faces)
next prev parent reply other threads:[~2015-05-06 21:05 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-04-27 20:18 bug#20444: paste error in emacs -nw Glenn Morris
2015-04-30 22:36 ` Stefan Monnier
2015-05-01 15:34 ` Glenn Morris
2015-05-04 1:28 ` Stefan Monnier
2015-05-04 17:09 ` Glenn Morris
2015-05-04 21:46 ` Stefan Monnier
2015-05-05 0:54 ` Glenn Morris
2015-05-06 2:41 ` Stefan Monnier
2015-05-06 18:46 ` Glenn Morris
2015-05-06 21:05 ` Stefan Monnier [this message]
2015-05-07 2:03 ` Glenn Morris
2015-05-08 22:34 ` Stefan Monnier
2015-05-11 6:06 ` Glenn Morris
2015-05-11 15:31 ` Stefan Monnier
2015-05-11 17:19 ` Glenn Morris
2015-05-11 20:36 ` Stefan Monnier
2015-05-11 21:24 ` Stefan Monnier
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=jwvk2wl8lv0.fsf-monnier+emacsbugs@gnu.org \
--to=monnier@iro.umontreal.ca \
--cc=20444@debbugs.gnu.org \
--cc=rgm@gnu.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.