Mercurial > hg > xemacs-beta
comparison lisp/unicode.el @ 4783:e29fcfd8df5f
Eliminate most core code byte-compile warnings.
2009-12-18 Aidan Kehoe <kehoea@parhasard.net>
* alist.el (modify-alist):
* autoload.el (update-autoload-files, autoload-print-form):
* bytecomp.el (batch-byte-compile-1)
(byte-compile-multiple-value-call, byte-compile-funcall)
(byte-compile-insert, byte-compile-concat, byte-compile-list)
(byte-compile-normal-call, byte-compile-flush-pending):
* cl-macs.el (letf):
* cl.el:
* disass.el (disassemble-1):
* easy-mmode.el (easy-mmode-define-syntax):
* faces.el (set-face-parent):
* files.el (cd):
* finder.el (finder-list-matches, finder-list-keywords)
(finder-compile-keywords):
* frame.el (frame-notice-user-settings)
(frame-remove-geometry-props):
* ldap.el (ldap-delete-entries, ldap-modify-entries)
(ldap-add-entries):
* loadhist.el (unload-feature):
* map-ynp.el (map-y-or-n-p):
* menubar-items.el (default-menubar):
* mouse.el (default-mouse-track-next-move-rect)
(default-mouse-track-next-move-rect)
(default-mouse-track-cleanup-hook)
(default-mouse-track-cleanup-extent):
* mule/ethio-util.el (ethio-fidel-to-sera-buffer)
(ethio-modify-vowel):
* obsolete.el:
* package-get.el (package-get-update-all):
* package-ui.el (pui-list-packages)
(pui-install-selected-packages, pui-install-selected-packages):
* select.el (select-make-extent-for-selection)
(dehilight-selection):
* simple.el (clone-buffer):
* term/tvi970.el:
* term/wyse50.el:
* unicode.el:
(load-unicode-tables):
* x-font-menu.el (fc-make-font-menu-entry)
(x-reset-device-font-menus-xft):
* x-misc.el (x-init-specifier-from-resources):
Eliminate byte-compile warnings, with the exception of Stephen's
various non-defined fontconfig functions, as I don't know if he
plans to add them and is keeping the warnings around as a
reminder. The warnings actually eliminated involve i) using mapcar
instead of mapc where the result is discarded and ii) using a
lambda quoted as data in a context where it is unequivocally used
as a function.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 18 Dec 2009 17:49:43 +0000 |
| parents | 257b468bf2ca |
| children | a67bfb29dd8b |
comparison
equal
deleted
inserted
replaced
| 4782:1523f1d28be1 | 4783:e29fcfd8df5f |
|---|---|
| 133 ) | 133 ) |
| 134 ("unicode/other" | 134 ("unicode/other" |
| 135 ("lao.txt" lao) | 135 ("lao.txt" lao) |
| 136 ) | 136 ) |
| 137 ))) | 137 ))) |
| 138 (mapcar #'(lambda (tables) | 138 (mapc #'(lambda (tables) |
| 139 (let ((undir | 139 (let ((undir |
| 140 (expand-file-name (car tables) data-directory))) | 140 (expand-file-name (car tables) data-directory))) |
| 141 (mapcar #'(lambda (args) | 141 (mapc #'(lambda (args) |
| 142 (apply 'load-unicode-mapping-table | 142 (apply 'load-unicode-mapping-table |
| 143 (expand-file-name (car args) undir) | 143 (expand-file-name (car args) undir) |
| 144 (cdr args))) | 144 (cdr args))) |
| 145 (cdr tables)))) | 145 (cdr tables)))) |
| 146 parse-args) | 146 parse-args) |
| 147 ;; The default-unicode-precedence-list. We set this here to default to | 147 ;; The default-unicode-precedence-list. We set this here to default to |
| 148 ;; *not* mapping various European characters to East Asian characters; | 148 ;; *not* mapping various European characters to East Asian characters; |
| 149 ;; otherwise the default-unicode-precedence-list is numerically ordered | 149 ;; otherwise the default-unicode-precedence-list is numerically ordered |
| 150 ;; by charset ID. | 150 ;; by charset ID. |
| 617 ;; We do this in such a roundabout way--instead of having the above defun | 617 ;; We do this in such a roundabout way--instead of having the above defun |
| 618 ;; and defvar calls inside a (when (featurep 'mule) ...) form--to have | 618 ;; and defvar calls inside a (when (featurep 'mule) ...) form--to have |
| 619 ;; make-docfile.c pick up symbol and function documentation correctly. An | 619 ;; make-docfile.c pick up symbol and function documentation correctly. An |
| 620 ;; alternative approach would be to fix make-docfile.c to be able to read | 620 ;; alternative approach would be to fix make-docfile.c to be able to read |
| 621 ;; Lisp. | 621 ;; Lisp. |
| 622 (mapcar #'unintern | 622 (mapc #'unintern |
| 623 '(ccl-encode-to-ucs-2 unicode-error-default-translation-table | 623 '(ccl-encode-to-ucs-2 unicode-error-default-translation-table |
| 624 unicode-invalid-regexp-range frob-unicode-errors-region | 624 unicode-invalid-regexp-range frob-unicode-errors-region |
| 625 unicode-error-translate-region unicode-query-coding-region | 625 unicode-error-translate-region unicode-query-coding-region |
| 626 unicode-query-coding-skip-chars-arg))) | 626 unicode-query-coding-skip-chars-arg))) |
| 627 | 627 |
| 628 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's | 628 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's |
| 629 ;; an implementation in appendix A.1 of the Unicode Standard, Version | 629 ;; an implementation in appendix A.1 of the Unicode Standard, Version |
| 630 ;; 2.0, but I don't know its licensing characteristics. | 630 ;; 2.0, but I don't know its licensing characteristics. |
| 631 | 631 |