annotate lisp/term/vt201.el @ 5751:2b8edd304c2b

Avoid throwing an error with misc-user events in isearch-pre-command-hook. lisp/ChangeLog addition: 2013-08-05 Aidan Kehoe <kehoea@parhasard.net> * isearch-mode.el (isearch-pre-command-hook): If this function is called and (this-command-keys) contains misc-user events, #'key-binding throws an error. Eddie Corns and Alex Belits describe this happening in tracker issue 336, and we can avoid this by catching the error and handling the misc-user event in the same way that #'dispatch-event does. I haven't reproduced the actual error they describe, and welcome testing to make sure it's gone. Thank you Eddie, thank you Alex!
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 05 Aug 2013 13:34:27 +0100
parents 376386a54a3c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;; For our purposes we can treat the vt200 and vt100 almost alike.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 ;; Most differences are handled by the termcap entry.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 (load "term/vt100" nil t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ;; Make F11 an escape key.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 (define-key function-key-map "\e[23~" [?\e])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7