mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Some fixes to follow coding conventions.

Browse source
This commit is contained in:
Pavel Janík 2001-07-16 12:23:00 +00:00
parent 4cba8c0bdc
commit e8af40eed4
147 changed files with 455 additions and 323 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/language/ethio-util.el
View file

@ -24,6 +24,8 @@
;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
;;; Commentary:
;;; Code:
;; Information for exiting Ethiopic environment.
@ -1296,7 +1298,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
composite t))
;; neither gemination nor fidel
((not (eq (char-charset ch) 'ethiopic))
(error "Not a valid character.")))
(error "Not a valid character")))
;; set frequently referred character features
(setq ch (ethio-char-to-ethiocode ch)
@ -1306,7 +1308,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
(if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000
(and (>= ch 448) (<= ch 452)) ;; \~X - \~A
(>= ch 458)) ;; private punctuations
(error "Not a valid character."))
(error "Not a valid character"))
(setq
newch