Mercurial > hg > xemacs-beta
diff lisp/mule/mule-coding.el @ 4605:c786c3fd0740
Listen to the byte-compiler, core Lisp.
lisp/ChangeLog addition:
2009-02-07 Aidan Kehoe <kehoea@parhasard.net>
* descr-text.el (describe-text-sexp):
pp is in packages, use cl-prettyprint instead.
* mule/mule-coding.el (make-8-bit-generate-helper):
Don't uselessly bind args-out-of-range, thank you the byte
compiler.
* mule/mule-coding.el (8-bit-fixed-query-coding-region):
Don't uselessly bind previous-fail, thank you the byte compiler.
* tty-init.el (make-device-early-tty-entry-point):
Set make-device-early-tty-entry-point-called-p, not
pre-tty-win-initted, thank you the byte compiler.
* unicode.el (unicode-query-coding-region):
Don't uselessly bind invalid-sequence-p, thank you the
byte-compiler.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 07 Feb 2009 18:31:21 +0000 |
| parents | e0a8715fdb1f |
| children | 257b468bf2ca |
line wrap: on
line diff
--- a/lisp/mule/mule-coding.el Sat Feb 07 17:13:37 2009 +0000 +++ b/lisp/mule/mule-coding.el Sat Feb 07 18:31:21 2009 +0000 @@ -287,7 +287,7 @@ (charset-lower -1) (charset-upper -1) worth-trying known-charsets encode-program - other-charset-vector ucs args-out-of-range) + other-charset-vector ucs) (loop for char across decode-table do (pushnew (char-charset char) known-charsets)) @@ -297,7 +297,6 @@ do ;; This is not possible for two dimensional charsets. (when (eq 1 (charset-dimension known-charset)) - (setq args-out-of-range t) (if (eq 'control-1 known-charset) (setq charset-lower 0 charset-upper 31) @@ -677,7 +676,7 @@ '8-bit-fixed-invalid-sequences-skip-chars))) (ranges (make-range-table)) (case-fold-search nil) - char-after fail-range-start fail-range-end previous-fail extent + char-after fail-range-start fail-range-end extent failed invalid-sequences-looking-at failed-reason previous-failed-reason) (check-type from-unicode hash-table)