Changeset 3056

Timestamp:

03/09/03 16:12:51 (6 years ago)

Author:

miyoshi

Message:

(mw32-convert-font-request-attribute):
Undo the last change. These codes are moved to
mw32_check_font_request_alist() in mw32font.c.

Files:

• work/cvs2svn/lisp/ChangeLog.Meadow (modified) (1 diff)
• work/cvs2svn/lisp/international/mw32misc.el (modified) (1 diff)

work/cvs2svn/lisp/ChangeLog.Meadow

@@ +1 @@
+2003-03-09  MIYOSHI Masanori  <miyoshi@boreas.dti.ne.jp>
+
+        * international/mw32misc.el (mw32-convert-font-request-attribute):
+        Undo the last change. These codes are moved to
+        mw32_check_font_request_alist() in mw32font.c.
+
-2003-03-09  MIYASHITA Hisashi  <himi@meadowy.org>
-

work/cvs2svn/lisp/international/mw32misc.el

@@ -358 +358 @@
-      (when (cdr (last (car options)))
-        (error "Option must be alist :%S" (car options)))
-      (let (elem value)
-        ;; check `spacing'
-        (setq elem (assoc 'spacing (car options)))
-        (when elem
-          (unless (numberp (cdr elem))
-            (error "Invalid value for spacing :%S" elem)))
-
-        ;; needless to check `centering'
-
-        ;; check `relative-compose'
-        (setq elem (assoc 'relative-compose (car options)))
-        (when elem
-          (unless (numberp (cdr elem))
-            (error "Invalid value for relative-compose :%S" elem)))
-
-        ;; check `default-ascent'
-        (setq elem (assoc 'default-ascent (car options)))
-        (when elem
-          (unless (numberp (cdr elem))
-            (error "Invalid value for default-ascent :%S" elem)))
-
-        ;; check `encoding'
-        (let ((valid-key '(nil 1-byte-set-msb 2-byte-set-msb
-                               shift_jis unicode)))
-          (setq elem (assoc 'encoding  (car options)))
-          (when elem
-            (setq value (cdr elem))
-            (unless (memq value valid-key)
-              (when (or (null (symbolp value))
-                        (null (get value 'ccl-program)))
-                (error "Invalid value for encoding :%S" elem))))))
-
-      (setq rs (cons (cons vec (cons llf options)) rs))
-      (setq ss (cdr ss)))