cb6c95a394
This allows us to reuse much of the lisp build and installation machinery,
rather than duplicating it.
* Makefile.in (abs_builddir, leimdir): Remove.
(buildlisppath, SUBDIR, COPYDIR, COPYDESTS): No more leim directory.
(epaths-force-w32): No longer set BLD.
(leim): Remove.
(install-arch-indep): No longer run or install leim.
(mostlyclean, clean): No longer run leim rule.
(bootstrap-clean): Change leim target.
(maintainer-clean): Add leim.
(check-declare): Remove leim.
* README: Update for leim changes.
* configure.ac (leimdir): Remove.
(standardlisppath): No more leimdir.
* make-dist: Update for files from leim/ now being in lisp/leim/.
* doc/lispref/loading.texi (Library Search):
* doc/lispref/os.texi (Startup Summary): No more leim directory.
* leim/Makefile.in (leimdir): New variable.
(TIT_GB, TIT_BIG5, MISC, changed.tit, changed.misc)
(${leimdir}/leim-list.el, ${leimdir}/ja-dic/ja-dic.el):
Generate in $leimdir.
(all): Remove compilation, add ja-dic.
(leim-list.el): Now PHONY.
(setwins, compile-targets, compile-main, clean, mostlyclean)
(extraclean): Remove.
(bootstrap-clean): Delete all generated files.
* leim/README: Update for moved leim/ directory.
* leim/leim-ext.el (ucs-input-activate, hangul-input-method-activate):
Remove manual autoloads; now in loaddefs.el.
Disable byte-compile, version-control, autoloads in the output.
* lisp/Makefile.in (setwins_for_subdirs): Skip leim/ directory.
(compile-main): Depend on lisp/leim rule.
(leim): New rule.
* lisp/loadup.el: Move leim-list.el to leim/ subdirectory.
* lisp/startup.el (normal-top-level): No more leim directory.
* lisp/international/ja-dic-cnv.el (skkdic-convert):
Disable version-control and autoloads in output files.
* lisp/international/titdic-cnv.el (titdic-convert, miscdic-convert):
Disable version-control and autoloads in output files.
* lisp/leim/quail: Move here from ../leim.
* lisp/leim/quail/hangul.el (hangul-input-method-activate):
Add autoload cookie.
(generated-autoload-load-name): Set file-local value.
* lisp/leim/quail/uni-input.el (ucs-input-activate): Add autoload cookie.
(generated-autoload-load-name): Set file-local value.
* nt/README.W32:
* nt/addpm.c (env_vars):
* nt/epaths.nt (PATH_LOADSEARCH, PATH_DUMPLOADSEARCH):
* nt/paths.h (PATH_LOADSEARCH): No more leim directory.
* src/Makefile.in (leimdir): Now in lisp source directory.
($(leimdir)/leim-list.el): Just use ../leim .
* src/epaths.in (PATH_DUMPLOADSEARCH):
* src/lread.c (load_path_default):
* src/nsterm.m (ns_load_path): No more leim directory.
* .bzrignore: Update for relocated leim files.
201 lines
3.3 KiB
EmacsLisp
201 lines
3.3 KiB
EmacsLisp
;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: utf-8;-*-
|
||
|
||
;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
|
||
|
||
;; Author: Dave Love <fx@gnu.org>
|
||
;; Keywords: i18n
|
||
|
||
;; This file is part of GNU Emacs.
|
||
|
||
;; GNU Emacs is free software: you can redistribute it and/or modify
|
||
;; it under the terms of the GNU General Public License as published by
|
||
;; the Free Software Foundation, either version 3 of the License, or
|
||
;; (at your option) any later version.
|
||
|
||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
;;; Commentary:
|
||
|
||
;; Welsh input following the Yudit map by david@sheetmusic.org.uk.
|
||
|
||
;;; Code:
|
||
|
||
(require 'quail)
|
||
|
||
(quail-define-package
|
||
"welsh" "Welsh" "Ŵ" t
|
||
"Welsh postfix input method"
|
||
nil t nil nil nil nil nil nil nil nil t)
|
||
|
||
(quail-define-rules
|
||
("A\\" ?À)
|
||
("A/" ?Á)
|
||
("A^" ?Â)
|
||
("A+" ?Â)
|
||
("A\"" ?Ä)
|
||
("a\\" ?à)
|
||
("a/" ?á)
|
||
("a^" ?â)
|
||
("a+" ?â)
|
||
("a\"" ?ä)
|
||
|
||
("E\\" ?È)
|
||
("E/" ?É)
|
||
("E^" ?Ê)
|
||
("E+" ?Ê)
|
||
("E\"" ?Ë)
|
||
("e\\" ?è)
|
||
("e/" ?é)
|
||
("e^" ?ê)
|
||
("e+" ?ê)
|
||
("e\"" ?ë)
|
||
|
||
("I\\" ?Ì)
|
||
("I/" ?Í)
|
||
("I^" ?Î)
|
||
("I+" ?Î)
|
||
("I\"" ?Ï)
|
||
("i\\" ?ì)
|
||
("i/" ?í)
|
||
("i^" ?î)
|
||
("i+" ?î)
|
||
("i\"" ?ï)
|
||
|
||
("O\\" ?Ò)
|
||
("O/" ?Ó)
|
||
("O^" ?Ô)
|
||
("O+" ?Ô)
|
||
("O\"" ?Ö)
|
||
("o\\" ?ò)
|
||
("o/" ?ó)
|
||
("o^" ?ô)
|
||
("o+" ?ô)
|
||
("o\"" ?ö)
|
||
|
||
("U\\" ?Ù)
|
||
("U/" ?Ú)
|
||
("U^" ?Û)
|
||
("U+" ?Û)
|
||
("U\"" ?Ü)
|
||
("u\\" ?ù)
|
||
("u/" ?ú)
|
||
("u^" ?û)
|
||
("u+" ?û)
|
||
("u\"" ?ü)
|
||
|
||
("Y\\" ?Ỳ)
|
||
("Y/" ?Ý)
|
||
("Y^" ?Ŷ)
|
||
("Y+" ?Ŷ)
|
||
("Y\"" ?Ÿ)
|
||
("y\\" ?ỳ)
|
||
("y/" ?ý)
|
||
("y\"" ?ÿ)
|
||
("y^" ?ŷ)
|
||
("y+" ?ŷ)
|
||
|
||
("W\\" ?Ẁ)
|
||
("W/" ?Ẃ)
|
||
("W^" ?Ŵ)
|
||
("W+" ?Ŵ)
|
||
("W\"" ?Ẅ)
|
||
("w\\" ?ẁ)
|
||
("w/" ?ẃ)
|
||
("w^" ?ŵ)
|
||
("w+" ?ŵ)
|
||
("w\"" ?ẅ)
|
||
|
||
;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint.
|
||
("(h)" ?ⓗ))
|
||
|
||
;; (quail-define-package
|
||
;; "welsh" "Welsh" "Ŵ" t
|
||
;; "Welsh postfix input method, using Latin-8"
|
||
;; nil t nil nil nil nil nil nil nil nil t)
|
||
|
||
;; (quail-define-rules
|
||
;; ("A\\" ?À)
|
||
;; ("A/" ?Á)
|
||
;; ("A^" ?Â)
|
||
;; ("A+" ?Â)
|
||
;; ("A\"" ?Ä)
|
||
;; ("a\\" ?à)
|
||
;; ("a/" ?á)
|
||
;; ("a^" ?â)
|
||
;; ("a+" ?â)
|
||
;; ("a\"" ?ä)
|
||
|
||
;; ("E\\" ?È)
|
||
;; ("E/" ?É)
|
||
;; ("E^" ?Ê)
|
||
;; ("E+" ?Ê)
|
||
;; ("E\"" ?Ë)
|
||
;; ("e\\" ?è)
|
||
;; ("e/" ?é)
|
||
;; ("e^" ?ê)
|
||
;; ("e+" ?ê)
|
||
;; ("e\"" ?ë)
|
||
|
||
;; ("I\\" ?Ì)
|
||
;; ("I/" ?Í)
|
||
;; ("I^" ?Î)
|
||
;; ("I+" ?Î)
|
||
;; ("I\"" ?Ï)
|
||
;; ("i\\" ?ì)
|
||
;; ("i/" ?í)
|
||
;; ("i^" ?î)
|
||
;; ("i+" ?î)
|
||
;; ("i\"" ?ï)
|
||
|
||
;; ("O\\" ?Ò)
|
||
;; ("O/" ?Ó)
|
||
;; ("O^" ?Ô)
|
||
;; ("O+" ?Ô)
|
||
;; ("O\"" ?Ö)
|
||
;; ("o\\" ?ò)
|
||
;; ("o/" ?ó)
|
||
;; ("o^" ?ô)
|
||
;; ("o+" ?ô)
|
||
;; ("o\"" ?ö)
|
||
|
||
;; ("U\\" ?Ù)
|
||
;; ("U/" ?Ú)
|
||
;; ("U^" ?Û)
|
||
;; ("U+" ?Û)
|
||
;; ("U\"" ?Ü)
|
||
;; ("u\\" ?ù)
|
||
;; ("u/" ?ú)
|
||
;; ("u^" ?û)
|
||
;; ("u+" ?û)
|
||
;; ("u\"" ?ü)
|
||
|
||
;; ("Y\\" ?¬)
|
||
;; ("Y/" ?Ý)
|
||
;; ("Y^" ?Þ)
|
||
;; ("Y+" ?Þ)
|
||
;; ("Y\"" ?¯)
|
||
;; ("y\\" ?¼)
|
||
;; ("y/" ?ý)
|
||
;; ("y\"" ?ÿ)
|
||
;; ("y^" ?þ)
|
||
;; ("y+" ?þ)
|
||
|
||
;; ("W\\" ?¨)
|
||
;; ("W/" ?ª)
|
||
;; ("W^" ?Ð)
|
||
;; ("W+" ?Ð)
|
||
;; ("W\"" ?½)
|
||
;; ("w\\" ?¸)
|
||
;; ("w/" ?º)
|
||
;; ("w^" ?ð)
|
||
;; ("w+" ?ð)
|
||
;; ("w\"" ?¾))
|
||
|
||
|
||
;;; welsh.el ends here
|