comparison lisp/mule/cyril-util.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children 026c5bf9c134
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
19 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the Free 20 ;; along with XEmacs; see the file COPYING. If not, write to the Free
21 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 21 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
22 ;; 02111-1307, USA. 22 ;; 02111-1307, USA.
23 23
24 ;;; Synched up with: Emacs 21.0.103 (language/cyril-util.el). 24 ;;; Synched up with: Emacs 21.1 (language/cyril-util.el).
25
26 ;;; Commentary:
25 27
26 ;;; Code: 28 ;;; Code:
27 29
28 ;;;###autoload 30 ;;;###autoload
29 (defun cyrillic-encode-koi8-r-char (char) 31 (defun cyrillic-encode-koi8-r-char (char)
30 "Return KOI8-R external character code of CHAR if appropriate." 32 "Return KOI8-R external character code of CHAR if appropriate."
31 (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0) 33 (get-char-table char cyrillic-koi8-r-nonascii-translation-table))
32 char))
33 34
34 ;;;###autoload 35 ;;;###autoload
35 (defun cyrillic-encode-alternativnyj-char (char) 36 (defun cyrillic-encode-alternativnyj-char (char)
36 "Return ALTERNATIVNYJ external character code of CHAR if appropriate." 37 "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
37 (aref (char-table-extra-slot 38 (get-char-table char cyrillic-alternativnyj-nonascii-translation-table))
38 cyrillic-alternativnyj-nonascii-translation-table 0)
39 char))
40 39
41 40
42 ;; Display 41 ;; Display
43 42
44 ;; Written by Valery Alexeev <valery@math.uga.edu>. 43 ;; Written by Valery Alexeev <valery@math.uga.edu>.
189 188
190 189
191 ;; 190 ;;
192 (provide 'cyril-util) 191 (provide 'cyril-util)
193 192
194 ;;; cyril-util.el ends here
195
196 ;; Local Variables: 193 ;; Local Variables:
197 ;; coding: iso-2022-7bit 194 ;; coding: iso-2022-7bit
198 ;; End: 195 ;; End:
196
197 ;;; cyril-util.el ends here