Changeset 3683

Timestamp:

04/10/05 21:04:33 (4 years ago)

Author:

miyoshi

Message:

* info: Sync up with Emacs CVS HEAD.

* leim: Ditto.

Files:

• branches/2.2/ChangeLog.Meadow (modified) (1 diff)
• branches/2.2/info/dir (modified) (3 diffs)
• branches/2.2/leim/ChangeLog (modified) (3 diffs)
• branches/2.2/leim/leim-ext.el (modified) (1 diff)
• branches/2.2/leim/quail/georgian.el (modified) (1 diff)
• branches/2.2/leim/quail/greek.el (modified) (13 diffs)
• branches/2.2/leim/quail/lao.el (modified) (3 diffs)
• branches/2.2/leim/quail/uni-input.el (modified) (6 diffs)

branches/2.2/ChangeLog.Meadow

@@ +1 @@
+2005-04-10  MIYOSHI Masanori  <miyoshi@meadowy.org>
+
+        * info: Sync up with Emacs CVS HEAD.
+
+        * leim: Ditto.
+
-2005-04-10  MIYOSHI Masanori  <miyoshi@meadowy.org>
-

branches/2.2/info/dir

@@ -5 +5 @@
-
-File: dir       Node: Top       This is the top of the INFO tree
-  This (the Directory node) gives a menu of major topics. 
-  Typing "d" returns here, "q" exits, "?" lists all INFO commands, "h" 
-  gives a primer for first-timers, "mEmacs<Return>" visits the Emacs topic,
-  etc.
-  In Emacs, you can click mouse button 2 on a menu item or cross reference
-  to select it.
-  --- PLEASE ADD DOCUMENTATION TO THIS TREE. (See INFO topic first.) ---
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-Emacs
-* Info: (info).         How to use the documentation browsing system.
-* Emacs: (emacs).       The extensible self-documenting text editor.
-* Emacs FAQ: (efaq).    Frequently Asked Questions about Emacs.
+* Emacs Lisp Introduction: (eintr).
+                        A simple introduction to Emacs Lisp programming.
+* Elisp: (elisp).       The Emacs Lisp Reference Manual.
-
-* CL: (cl).             Partial Common Lisp support for Emacs Lisp.
-* Dired-X: (dired-x).   Dired Extra Features.
-
+
+
+
-* PCL-CVS: (pcl-cvs).   Emacs front-end to CVS.
-* Speedbar: (speedbar). File/Tag summarizing utility.
-
-The GNU 
-The GNU Emacs mode for editing C, C++, Objective-C
-and Java
+
+Emacs mode for editing C, C++, Objective-C,
+Java, Pike, and IDL
-* Ebrowse: (ebrowse).   A C++ class browser for Emacs.
+* Flymake: (flymake).   An on-the-fly syntax checker for Emacs.
-* IDLWAVE: (idlwave).   Major mode and shell for IDL and WAVE/CL files.
-
@@ -35 +48 @@
-* Message: (message).   Mail and news composition mode that goes with Gnus.
-* MH-E: (mh-e).         Emacs interface to the MH mail system.
-
-
+
+
+
-                          replying to, in flexible ways.
+* SMTP: (smtpmail).     Emacs library for sending mail via SMTP.
+* Sieve: (sieve).       Managing Sieve scripts in Emacs.
-
-* Autotype: (autotype). Convenient features for text that you enter frequently
-                          in Emacs.
+* Calc: (calc).         Advanced desk calculator and mathematical tool.
-* Eshell: (eshell).     A command shell implemented in Emacs Lisp.
-Emacs Unified Directory Client
+An Emacs client for directory servers (LDAP, PH)
-* Forms: (forms).       Emacs package for editing data bases
-                          by filling in forms.
-* RefTeX: (reftex).     Emacs support for LaTeX cross-references and citations.
+* SES: (ses).           Simple Emacs Spreadsheet
+* Tramp: (tramp).       Transparent Remote (file) Access, Multiple Protocol.
+                          Edit remote files via a remote shell (rsh,
+                          ssh, telnet).
+* URL: (url).           URL loading package.
-* Widget: (widget).     The "widget" package used by the Emacs Customization
-                          facility.
@@ -51 +73 @@
-
-* VIPER: (viper).       The newest Emacs VI-emulation mode.
+                          (also, A VI Plan for Emacs Rescue
+                           or the VI PERil.)
-* VIP: (vip).           An older VI-emulation for Emacs.

branches/2.2/leim/ChangeLog

@@ +1 @@
+2004-12-04  Kenichi Handa  <handa@m17n.org>
+
+        * quail/lao.el (lao-key-alist): Declare it by defvar.
+        (lao-key-alist-vector): New variable.
+        (lao-consonant-key-alist, lao-semivowel-key-alist)
+        (lao-vowel-key-alist, lao-voweltone-key-alist)
+        (lao-tone-key-alist, lao-other-key-alist): Initialize them from
+        lao-key-alist-vector.
+
+2004-09-25  Kenichi Handa  <handa@m17n.org>
+
+        * quail/uni-input.el (ucs-input-method): Add error clause to
+        condition-case.
+
+2004-09-21  Kenichi Handa  <handa@m17n.org>
+
+        * quail/uni-input.el: Move the call of register-input-method to
+        leim-ext.el.
+        (ucs-input-insert-char): New function.
+        (ucs-input-method): Use ucs-input-insert-char.
+        (ucs-input-activate): Call quail-hide-guidance instead of
+        quail-hide-guidance-buf.
+
+        * leim-ext.el: Add autoload for 'ucs-input-activate and
+        register-input-method for "ucs".
+
+2004-08-21  David Kastrup  <dak@gnu.org>
+
+        * quail/greek.el ("greek-babel"): Add accent/breathing/uppercase
+        combinations.
+
+2004-08-16  Kenichi Handa  <handa@m17n.org>
+
+        * quail/georgian.el ("georgian"): Call quail-define-package with
+        the show-layout arg t.
+
-2004-08-06  Andreas Schwab  <schwab@suse.de>
-
@@ -100 +136 @@
-        (maintainer-clean): Delete files that are not in CVS repository.
-
-bi(Br,b
+Ai(Br,A
-
-        * Makefile.in (distclean maintainer-clean): Depend on clean.
@@ -238 +274 @@
-        ("ukrainian-computer", "belarusian", "bulgarian-bds")
-        ("russian-computer"): New.
-,L
+$,1(
-        ("russian-typewriter"): Rename from cyrillic-jcuken.
-

branches/2.2/leim/leim-ext.el

@@ -35 +35 @@
-  '(quail-defrule "ling2" ?$(0!r(B nil t))
-
+(autoload 'ucs-input-activate "quail/uni-input"
+  "Activate UCS input method.
+With arg, activate UCS input method if and only if arg is positive.
+
+While this input method is active, the variable
+`input-method-function' is bound to the function `ucs-input-method'.")
+
+(register-input-method "ucs" "UTF-8" 'ucs-input-activate "U+"
+                       "Unicode input as hex in the form Uxxxx.")
+
-;; arch-tag: 75cfdfc7-de85-44f9-b408-ff67d1ec664e

branches/2.2/leim/quail/georgian.el

@@ -35 +35 @@
- "georgian" "Georgian" "გ" t
- "A common Georgian transliteration (using Unicode)"
-nil
+t
-
-(quail-define-rules

branches/2.2/leim/quail/greek.el

@@ -490 +490 @@
-
- ("A" ?$,1&q(B)
+ ("A|" ?$,1q|(B)
- ("B" ?$,1&r(B)
- ("D" ?$,1&t(B)
@@ -496 +497 @@
- ("G" ?$,1&s(B)
- ("H" ?$,1&w(B)
+ ("H|" ?$,1r,(B)
- ("I" ?$,1&y(B)
- ("J" ?$,1&x(B)
@@ -510 +512 @@
- ("U" ?$,1'%(B)
- ("W" ?$,1')(B)
+ ("W|" ?$,1r\(B)
- ("X" ?$,1&~(B)
- ("Y" ?$,1'((B)
@@ -561 +564 @@
- ("\"`i" ?$,1r2(B)
-
+ ("<I" ?$,1pY(B)
+ (">I" ?$,1pX(B)
+ ("'I" ?$,1r;(B)
+ ("<'I" ?$,1p](B)
+ (">'I" ?$,1p\(B)
+ ("`I" ?$,1r:(B)
+ ("<`I" ?$,1p[(B)
+ (">`I" ?$,1pZ(B)
+ ("<~I"  ?$,1p_(B)
+ (">~I"  ?$,1p^(B)
+ ("\"I" ?$,1'*(B)
+
- ("<~"  ?$,1r?(B)
- (">~"  ?$,1r/(B)
@@ -578 +593 @@
- ("<`e" ?$,1p3(B)
- (">`e" ?$,1p2(B)
+
+ ("<E" ?$,1p9(B)
+ (">E" ?$,1p8(B)
+ ("'E" ?$,1r)(B)
+ ("<'E" ?$,1p=(B)
+ (">'E" ?$,1p<(B)
+ ("`E" ?$,1r((B)
+ ("<`E" ?$,1p;(B)
+ (">`E" ?$,1p:(B)
-
- ("<a" ?$,1p!(B)
@@ -591 +615 @@
- (">~a"  ?$,1p&(B)
-
+ ("<A" ?$,1p)(B)
+ (">A" ?$,1p((B)
+ ("'A" ?$,1q{(B)
+ ("<'A" ?$,1p-(B)
+ (">'A" ?$,1p,(B)
+ ("`A" ?$,1qz(B)
+ ("<`A" ?$,1p+(B)
+ (">`A" ?$,1p*(B)
+ ("<~A"  ?$,1p/(B)
+ (">~A"  ?$,1p.(B)
+
- ("<a|" ?$,1qA(B)
- (">a|" ?$,1q@(B)
@@ -603 +638 @@
- (">~a|"  ?$,1qF(B)
-
+ ("<A|" ?$,1qI(B)
+ (">A|" ?$,1qH(B)
+ ("<'A|" ?$,1qM(B)
+ (">'A|" ?$,1qL(B)
+ ("<`A|" ?$,1qK(B)
+ (">`A|" ?$,1qJ(B)
+ ("<~A|"  ?$,1qO(B)
+ (">~A|"  ?$,1qN(B)
+
- ("<r" ?$,1rE(B)
- (">r" ?$,1rD(B)
+
+ ("<R" ?$,1rL(B)
-
- ("<h" ?$,1pA(B)
@@ -618 +664 @@
- (">~h"  ?$,1pF(B)
-
+ ("<H" ?$,1pI(B)
+ (">H" ?$,1pH(B)
+ ("'H" ?$,1r+(B)
+ ("<'H" ?$,1pM(B)
+ (">'H" ?$,1pL(B)
+ ("`H" ?$,1r*(B)
+ ("<`H" ?$,1pK(B)
+ (">`H" ?$,1pJ(B)
+ ("<~H"  ?$,1pO(B)
+ (">~H"  ?$,1pN(B)
+
- ("|" ?$,1&Z(B) ; ypogegrammeni
-
@@ -632 +689 @@
- (">~h|"  ?$,1qV(B)
-
+ ("<H|" ?$,1qY(B)
+ (">H|" ?$,1qX(B)
+ ("<'H|" ?$,1q](B)
+ (">'H|" ?$,1q\(B)
+ ("<`H|" ?$,1q[(B)
+ (">`H|" ?$,1qZ(B)
+ ("<~H|"  ?$,1q_(B)
+ (">~H|"  ?$,1q^(B)
+
- ("<o" ?$,1pa(B)
- (">o" ?$,1p`(B)
@@ -640 +706 @@
- ("<`o" ?$,1pc(B)
- (">`o" ?$,1pb(B)
+
+ ("<O" ?$,1pi(B)
+ (">O" ?$,1ph(B)
+ ("'O" ?$,1rY(B)
+ ("<'O" ?$,1pm(B)
+ (">'O" ?$,1pl(B)
+ ("`O" ?$,1rX(B)
+ ("<`O" ?$,1pk(B)
+ (">`O" ?$,1pj(B)
-
- ("<u"   ?$,1pq(B)
@@ -656 +731 @@
- ("`\"u" ?$,1rB(B)
-
+ ("<U"   ?$,1py(B)
+ ("'U"   ?$,1rK(B)
+ ("<'U"  ?$,1p}(B)
+ ("`U"   ?$,1rJ(B)
+ ("<`U"  ?$,1p{(B)
+ ("<~U"  ?$,1p(B)
+ ("\"U"  ?$,1'+(B)
+
- ("<w"  ?$,1q!(B)
- (">w"  ?$,1q (B)
@@ -668 +751 @@
- (">~w" ?$,1q&(B)
-
+ ("<W"  ?$,1q)(B)
+ (">W"  ?$,1q((B)
+ ("'W"  ?$,1r[(B)
+ ("<'W" ?$,1q-(B)
+ (">'W" ?$,1q,(B)
+ ("`W"  ?$,1rZ(B)
+ ("<`W" ?$,1q+(B)
+ (">`W" ?$,1q*(B)
+ ("<~W" ?$,1q/(B)
+ (">~W" ?$,1q.(B)
+
- ("<w|"  ?$,1qa(B)
- (">w|"  ?$,1q`(B)
@@ -679 +773 @@
- ("<~w|" ?$,1qg(B)
- (">~w|" ?$,1qf(B)
+
+ ("<W|"  ?$,1qi(B)
+ (">W|"  ?$,1qh(B)
+ ("'W|"  ?$,1rT(B)
+ ("<'W|" ?$,1qm(B)
+ (">'W|" ?$,1ql(B)
+ ("<`W|" ?$,1qk(B)
+ (">`W|" ?$,1qj(B)
+ ("<~W|" ?$,1qo(B)
+ (">~W|" ?$,1qn(B)
- )
-

branches/2.2/leim/quail/lao.el

@@ -3 +3 @@
-;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2004
+;;   National Institute of Advanced Industrial Science and Technology (AIST)
+;;   Registration Number H14PRO021
-
-;; Keywords: multilingual, input method, Lao
@@ -43 +46 @@
-  control-flag)
-
-const
+var
-  '(("!" . "1")
-    ("\"" . "=")
@@ -147 +150 @@
-    ("\\8" . "(1x(B")
-    ("\\9" . "(1y(B")
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                                                    'phonetic-type))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(quail-define-package

branches/2.2/leim/quail/uni-input.el

@@ -67 +67 @@
-               (write ((r0 & ?\x3F) | ?\x80))))))))))
-
+(defun ucs-input-insert-char (char)
+  (insert char)
+  (move-overlay quail-overlay (overlay-start quail-overlay) (point)))
+
-(defun ucs-input-method (key)
-  (if (or buffer-read-only
@@ -72 +76 @@
-      (list key)
-    (quail-setup-overlays nil)
-
-
-
+
-    (let ((modified-p (buffer-modified-p))
-          (buffer-undo-list t)
@@ -95 +97 @@
-                      (progn
-                        (push key events)
-
-
-
+
-                    (let ((last-command-char key)
-                          (current-prefix-arg))
-
-
+
+
+
-                    (quail-delete-region)
-                    (throw 'non-digit (append (reverse events)
@@ -110 +111 @@
-                                          16))
-                     (c (decode-char 'ucs n))
-
+ 
-                (if c
-                    (list c)
@@ -130 +131 @@
-      (unwind-protect
-          (progn
--buf
+
-            (quail-delete-overlays)
-            (setq describe-current-input-method-function nil))
@@ -156 +157 @@
-Input as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex number.")))
-
-
-
+
+
+
-
-(provide 'uni-input)