Mercurial > hg > xemacs-beta
changeset 5868:da732079c58d
Correct some code with badly-placed parentheses, thank you Mats Lidell.
lisp/ChangeLog addition:
2015-03-16 Aidan Kehoe <kehoea@parhasard.net>
* tty-init.el (make-frame-after-init-entry-point):
Some parentheses were placed badly here with the last change,
thank you Mats for pointing it out; in passing, change to a
version of the code that doesn't create a string for garbage, not
that it matters.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 16 Mar 2015 00:40:31 +0000 |
| parents | e0f1dfaa821e |
| children | 04b854934407 |
| files | lisp/ChangeLog lisp/tty-init.el |
| diffstat | 2 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Mar 16 00:28:18 2015 +0000 +++ b/lisp/ChangeLog Mon Mar 16 00:40:31 2015 +0000 @@ -1,3 +1,11 @@ +2015-03-16 Aidan Kehoe <kehoea@parhasard.net> + + * tty-init.el (make-frame-after-init-entry-point): + Some parentheses were placed badly here with the last change, + thank you Mats for pointing it out; in passing, change to a + version of the code that doesn't create a string for garbage, not + that it matters. + 2015-03-16 Aidan Kehoe <kehoea@parhasard.net> * obsolete.el (max-char):
--- a/lisp/tty-init.el Mon Mar 16 00:28:18 2015 +0000 +++ b/lisp/tty-init.el Mon Mar 16 00:40:31 2015 +0000 @@ -66,10 +66,9 @@ ;; override term-file-prefix. (startup.el does it after ;; loading the init file.) (when (and (find-coding-system 'euc-jp) - (member* (mismatch "kterm" - (canoncase (or (console-tty-terminal-type - console) "")) - '(nil 5)))) + (member* (mismatch "kterm" (console-tty-terminal-type console) + :test #'equalp) + '(nil 5))) (set-console-tty-coding-system console 'euc-jp)) (when init-file-loaded ;; temporarily select the console so that the changes