comparison lisp/mule/hebrew.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 949ac151a10d
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; ISO 8859-8 (Hebrew) support. 27 ;; ISO 8859-8 (Hebrew) support.
28 28
29 ;;; Code: 29 ;;; Code:
30
31 ; (make-charset 'hebrew-iso8859-8
32 ; "Right-Hand Part of Latin/Hebrew Alphabet (ISO/IEC 8859-8): ISO-IR-138"
33 ; '(dimension
34 ; 1
35 ; registry "ISO8859-8"
36 ; chars 96
37 ; columns 1
38 ; direction r2l
39 ; final ?H
40 ; graphic 1
41 ; short-name "RHP of ISO8859/8"
42 ; long-name "RHP of Hebrew (ISO 8859-8): ISO-IR-138"
43 ; ))
30 44
31 ;; Syntax of Hebrew characters 45 ;; Syntax of Hebrew characters
32 (loop for c from 96 to 122 46 (loop for c from 96 to 122
33 do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w")) 47 do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w"))
34 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space 48 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space