Changeset 4115

Show
Ignore:
Timestamp:
07/19/06 00:02:31 (2 years ago)
Author:
miyoshi
Message:

(mw32-convert-fr-spec-to-vec): Accept
'undecided for any properties of <SPEC-PLIST>.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/ChangeLog.Meadow

    r4114 r4115  
     12006-07-19  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * international/mw32misc.el (mw32-convert-fr-spec-to-vec): Accept 
     4        'undecided for any properties of <SPEC-PLIST>. 
     5 
    162006-07-18  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    27 
    38        * international/mw32misc.el (mw32-convert-font-request-alist): 
    4         Accept 'any for <SPEC-PLIST> . 
     9        Accept 'any for <SPEC-PLIST>. 
    510 
    6112006-07-16  MIYOSHI Masanori  <miyoshi@meadowy.org> 

  • trunk/lisp/international/mw32misc.el

    r4114 r4115  
    367367                           ((char-table-p val) val) 
    368368                           ((eq val 'any) val) 
     369                           ((eq val 'unspecified) val) 
    369370                           (t (error "Invalid value for :char-spec :%S" 
    370371                                     val)))) 
    …… 
    372373              ((eq key :width) 
    373374               (if (not (or (numberp val) 
    374                             (memq val '(any normal 
     375                            (memq val '(any unspecified normal 
    375376                                            condensed semi-expanded 
    376377                                            expanded extra-condensed 
    …… 
    382383              ((eq key :height) 
    383384               (if (not (or (numberp val) 
    384                             (eq val 'any))) 
     385                            (eq val 'any) 
     386                            (eq val 'unspecified))) 
    385387                   (error "Invalid value for :height :%S" 
    386388                          val)) 
    …… 
    388390              ((eq key :family) 
    389391               (if (not (or (stringp val) 
    390                             (eq val 'any))) 
     392                            (eq val 'any) 
     393                            (eq val 'unspecified))) 
    391394                   (error "Invalid value for :family :%S" 
    392395                          val)) 
    …… 
    394397              ((eq key :weight) 
    395398               (if (not (memq val 
    396                               '(any normal 
     399                              '(any unspecified normal 
    397400                                    bold semi-bold 
    398401                                    extra-bold light 
    …… 
    403406               (aset vec 4 val)) 
    404407              ((eq key :slant) 
    405                (if (not (memq val '(any normal 
     408               (if (not (memq val '(any unspecified normal 
    406409                                        italic reverse-italic 
    407410                                        oblique reverse-oblique)))