comparison lisp/mule/ethio-util.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 cef5f57bb9e2
children 308d34e9f07d
comparison
equal deleted inserted replaced
4782:1523f1d28be1 4783:e29fcfd8df5f
1053 (aset ethio-fidel-to-sera-map 359 "?") 1053 (aset ethio-fidel-to-sera-map 359 "?")
1054 (aset ethio-fidel-to-sera-map 463 "`?")) 1054 (aset ethio-fidel-to-sera-map 463 "`?"))
1055 (aset ethio-fidel-to-sera-map 359 "`?") 1055 (aset ethio-fidel-to-sera-map 359 "`?")
1056 (aset ethio-fidel-to-sera-map 463 "?")) 1056 (aset ethio-fidel-to-sera-map 463 "?"))
1057 1057
1058 (mapcar 1058 (mapc
1059 #'(lambda (x) 1059 #'(lambda (x)
1060 (aset (aref ethio-fidel-to-sera-map x) 1060 (aset (aref ethio-fidel-to-sera-map x)
1061 2 1061 2
1062 (if ethio-W-sixth-always ?' ?u))) 1062 (if ethio-W-sixth-always ?' ?u)))
1063 '(77 93 141 181 197 277 440 441 442 443 444 457)) 1063 '(77 93 141 181 197 277 440 441 442 443 444 457))
1298 (composite nil) ; geminated or not 1298 (composite nil) ; geminated or not
1299 newch base vowel modulo) 1299 newch base vowel modulo)
1300 1300
1301 (cond 1301 (cond
1302 ;; in case of gemination 1302 ;; in case of gemination
1303 ((eq (char-charset ch) 'composition) 1303 ;; XEmacs change; the (and nil ...) eliminates a warning about using
1304 ;; decompose-composite-char. The name of the composite charset is
1305 ;; composite, anyway, not composition; and it has never worked.
1306 ((and nil (eq (char-charset ch) 'composition))
1304 (setq ch (string-to-char (decompose-composite-char ch)) 1307 (setq ch (string-to-char (decompose-composite-char ch))
1305 composite t)) 1308 composite t))
1306 ;; neither gemination nor fidel 1309 ;; neither gemination nor fidel
1307 ((not (eq (char-charset ch) 'ethiopic)) 1310 ((not (eq (char-charset ch) 'ethiopic))
1308 (error "Not a valid character"))) 1311 (error "Not a valid character")))