Mercurial > hg > xemacs-beta
diff lisp/packages/terminal.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:13:56 +0200 |
| parents | 131b0175ea99 |
| children | 9f59509498e1 |
line wrap: on
line diff
--- a/lisp/packages/terminal.el Mon Aug 13 09:12:43 2007 +0200 +++ b/lisp/packages/terminal.el Mon Aug 13 09:13:56 2007 +0200 @@ -100,7 +100,7 @@ (define-key map "m" 'te-toggle-more-processing) (define-key map "x" 'te-escape-extended-command) (define-key map "?" 'te-escape-help) - (define-key map (char-to-string help-char) 'te-escape-help) + (define-key map (vector help-char) 'te-escape-help) (setq terminal-escape-map map))) (defvar te-escape-command-alist '()) @@ -139,7 +139,7 @@ (define-key map s 'te-more-break-unwind) (setq i (1+ i)))) - (define-key map (char-to-string help-char) 'te-more-break-help) + (define-key map (vector help-char) 'te-more-break-help) (define-key map " " 'te-more-break-resume) (define-key map "\C-l" 'redraw-display) (define-key map "\C-o" 'te-more-break-flush-pending-output)