Mercurial > hg > xemacs-beta
comparison lisp/unicode.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 | 75e7ab37b6c8 |
comparison
equal
deleted
inserted
replaced
| 4604:e0a8715fdb1f | 4605:c786c3fd0740 |
|---|---|
| 639 ""))) | 639 ""))) |
| 640 (ranges (make-range-table)) | 640 (ranges (make-range-table)) |
| 641 (looking-at-arg (concat "[" skip-chars-arg "]")) | 641 (looking-at-arg (concat "[" skip-chars-arg "]")) |
| 642 (case-fold-search nil) | 642 (case-fold-search nil) |
| 643 fail-range-start fail-range-end char-after failed | 643 fail-range-start fail-range-end char-after failed |
| 644 extent char-unicode invalid-sequence-p failed-reason | 644 extent char-unicode failed-reason previous-failed-reason) |
| 645 previous-failed-reason) | |
| 646 (save-excursion | 645 (save-excursion |
| 647 (when highlightp | 646 (when highlightp |
| 648 (query-coding-clear-highlights begin end buffer)) | 647 (query-coding-clear-highlights begin end buffer)) |
| 649 (goto-char begin buffer) | 648 (goto-char begin buffer) |
| 650 (skip-chars-forward skip-chars-arg end buffer) | 649 (skip-chars-forward skip-chars-arg end buffer) |