Mercurial > hg > xemacs-beta
annotate lisp/mule/canna-leim.el @ 5753:dbd8305e13cb
Warn about non-string non-integer ARG to #'gensym, bytecomp.el.
lisp/ChangeLog addition:
2013-08-21 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el:
* bytecomp.el (gensym):
* bytecomp.el (byte-compile-gensym): New.
Warn that gensym called in a for-effect context is unlikely to be
useful.
Warn about non-string non-integer ARGs, this is incorrect.
Am not changing the function to error with same, most code that
makes the mistake is has no problems, which is why it has survived
so long.
* window-xemacs.el (save-window-excursion/mapping):
* window.el (save-window-excursion):
Call #'gensym with a string, not a symbol.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 21 Aug 2013 19:02:59 +0100 |
| parents | b9167d522a9a |
| children |
| rev | line source |
|---|---|
| 502 | 1 ;;; canna-leim.el --- Canna-related code for LEIM -*- coding: iso-2022-7bit; -*- |
| 333 | 2 ;; Copyright (C) 1997 Stephen Turnbull <turnbull@sk.tsukuba.ac.jp> |
| 3 ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
| 4 ;; | |
| 5 ;; Shamelessly ripped off from | |
| 6 ;; | |
| 7 ;; skk-leim.el --- SKK related code for LEIM | |
| 8 ;; Copyright (C) 1997 | |
| 9 ;; Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp> | |
| 10 ;; | |
| 11 ;; Author: Stephen Turnbull <turnbull@sk.tsukuba.ac.jp> | |
| 12 ;; Version: canna-leim.el,v 1.2 1997/10/27 10:08:49 steve Exp | |
| 13 ;; Keywords: japanese, input method, LEIM | |
| 14 ;; Last Modified: 1997/10/27 10:08:49 | |
| 15 | |
|
5289
9e51b172d50f
More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3824
diff
changeset
|
16 ;; This file is part of XEmacs. |
|
9e51b172d50f
More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3824
diff
changeset
|
17 |
|
5404
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
18 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
19 ;; under the terms of the GNU General Public License as published by the |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
20 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
21 ;; option) any later version. |
| 333 | 22 |
|
5404
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
23 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
24 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
25 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
26 ;; for more details. |
| 333 | 27 |
| 28 ;; You should have received a copy of the GNU General Public License | |
|
5404
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
3824
diff
changeset
|
29 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 333 | 30 |
| 31 ;;; TODO | |
| 32 ;; | |
| 33 ;; Add pointers to Canna documentation in LEIM format | |
| 34 | |
| 778 | 35 (globally-declare-boundp 'canna:*japanese-mode*) |
| 36 (globally-declare-fboundp '(canna canna-toggle-japanese-mode)) | |
| 37 | |
| 3824 | 38 ;; use (locate-file "canna_api" module-load-path module-extensions) |
| 2973 | 39 ;; to locate the module without loading it. |
| 40 ;; then we could autoload canna-activate and dump and/or autoload: | |
| 3824 | 41 ;; (and (locate-file "canna_api" module-load-path module-extensions) |
| 2973 | 42 ;; (locate-library "canna") |
| 43 ;; (register-input-method 'japanese-canna "Japanese" 'canna-activate nil | |
| 44 ;; "Canna - a kana to kanji conversion program")) | |
| 45 | |
| 333 | 46 (defun canna-activate (&optional name) |
| 2973 | 47 ;; XEmacs 21.5.10 and later have 3-argument require. |
| 3824 | 48 (unless (require 'CANNA "canna_api" 'no-error) |
| 2973 | 49 (error 'file-error |
| 50 "No Canna API support!? See M-x describe-installation & C-h v module-load-path.")) | |
| 51 (unless (require 'canna nil 'no-error) | |
| 52 (error 'file-error | |
| 53 "Canna LISP support not found. Is the mule-base package missing?")) | |
| 333 | 54 (setq inactivate-current-input-method-function 'canna-inactivate) |
| 55 (unless (featurep 'leim-canna-initialized) | |
| 56 (canna) | |
| 57 (provide 'leim-canna-initialized)) | |
| 58 (canna-toggle-japanese-mode)) | |
| 59 | |
| 60 (defun canna-inactivate () | |
| 778 | 61 (cond (canna:*japanese-mode* (canna-toggle-japanese-mode)))) |
| 333 | 62 |
| 63 (register-input-method | |
| 64 'japanese-canna "Japanese" | |
| 65 'canna-activate nil | |
| 66 "Canna - a kana to kanji conversion program" ) | |
| 67 | |
| 68 (provide 'canna-leim) | |
| 69 | |
| 70 ;;; canna-leim.el ends here |