HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Spelling fixes.
[bpt/emacs.git]
/
leim
/
quail
/
tibetan.el
diff --git
a/leim/quail/tibetan.el
b/leim/quail/tibetan.el
index
70a74be
..
ba47155
100644
(file)
--- a/
leim/quail/tibetan.el
+++ b/
leim/quail/tibetan.el
@@
-1,9
+1,8
@@
;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: iso-2022-7bit;-*-
;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: iso-2022-7bit;-*-
-;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2001-2011 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008
+;; 2006, 2007, 2008
, 2009, 2010, 2011
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
@@
-29,7
+28,7
@@
;; Created: Feb. 17. 1997
;; History:
;; Created: Feb. 17. 1997
;; History:
-;; 1997.03.13 Support for inputting special signs and punctuation
s
added.
+;; 1997.03.13 Support for inputting special signs and punctuation added.
;; (Only Ext. Wylie input)
;;; Commentary:
;; (Only Ext. Wylie input)
;;; Commentary:
@@
-57,7
+56,7
@@
(if (string-match "^-[dy]" quail-current-key)
(setq quail-current-key (substring quail-current-key 1)))
(let ((str (tibetan-transcription-to-tibetan quail-current-key)))
(if (string-match "^-[dy]" quail-current-key)
(setq quail-current-key (substring quail-current-key 1)))
(let ((str (tibetan-transcription-to-tibetan quail-current-key)))
- ;; If quail-current-key is for punctuation
s
, it can't be
+ ;; If quail-current-key is for punctuation, it can't be
;; transcribed by tibetan-transcription-to-tibetan, thus STR
;; contains ASCII string now. In that case, use the current
;; characters set in quail-current-str.
;; transcribed by tibetan-transcription-to-tibetan, thus STR
;; contains ASCII string now. In that case, use the current
;; characters set in quail-current-str.
@@
-81,7
+80,7
@@
'(("-d" . "
\e
$(7"2
\e
(B")
("-y" . "
\e
$(7"B
\e
(B")))
'(("-d" . "
\e
$(7"2
\e
(B")
("-y" . "
\e
$(7"B
\e
(B")))
-;; Punctuations are not transcribed.
+;; Punctuation
character
s are not transcribed.
(defconst tibetan-wylie-punctuation-alist
'(("." . " ")
(defconst tibetan-wylie-punctuation-alist
'(("." . " ")
@@
-338,7
+337,7
@@
("(" . "
\e
$(7!l
\e
(B")
("0" . "
\e
$(7!P
\e
(B")
(")" . "
\e
$(7!m
\e
(B")
("(" . "
\e
$(7!l
\e
(B")
("0" . "
\e
$(7!P
\e
(B")
(")" . "
\e
$(7!m
\e
(B")
-;;; ("-" ) ; e
n
phatic, not yet supported
+;;; ("-" ) ; e
m
phatic, not yet supported
;;; ("_" ) ; id.
;;; ("=" ) ; special sign, not yet supported
("+" . "
\e
$(7!A
\e
(B")
;;; ("_" ) ; id.
;;; ("=" ) ; special sign, not yet supported
("+" . "
\e
$(7!A
\e
(B")
@@
-428,7
+427,7
@@
1. Vowel 'a' should be typed explicitly by the key 'A'.
This is really inconvenient. But to make the coding
1. Vowel 'a' should be typed explicitly by the key 'A'.
This is really inconvenient. But to make the coding
- scheme clear, it is desirable to have an explicit
e
+ scheme clear, it is desirable to have an explicit
vowel sign for 'a'.
2. Tsheg is assigned to SPC key. You can input a space
by typing '>'.
vowel sign for 'a'.
2. Tsheg is assigned to SPC key. You can input a space
by typing '>'.
@@
-453,5
+452,4
@@
(tibetan-vowel-tibkey-alist . m-state))
(m-state tibetan-modifier-tibkey-alist))))
(tibetan-vowel-tibkey-alist . m-state))
(m-state tibetan-modifier-tibkey-alist))))
-;; arch-tag: 828fdb1a-733f-4c7b-b882-a19d2449ac99
;;; tibetan.el ends here
;;; tibetan.el ends here