Mercurial > emacs
diff lisp/language/ethio-util.el @ 38436:b174db545cfd
Some fixes to follow coding conventions.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 16 Jul 2001 12:23:00 +0000 |
parents | b82a6fbaae16 |
children | 2e75c71d9db1 |
line wrap: on
line diff
--- a/lisp/language/ethio-util.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/ethio-util.el Mon Jul 16 12:23:00 2001 +0000 @@ -24,6 +24,8 @@ ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> +;;; Commentary: + ;;; Code: ;; Information for exiting Ethiopic environment. @@ -1296,7 +1298,7 @@ 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 @@ (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