Changeset 3012

Show
Ignore:
Timestamp:
02/22/03 10:41:33 (6 years ago)
Author:
miyoshi
Message:

(create-fontset-from-request): Support
`centering' option.
(change-fontset-from-request): Ditto.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • work/cvs2svn/lisp/ChangeLog.Meadow

    r3001 r3012  
     12003-02-22  MIYOSHI Masanori  <miyoshi@boreas.dti.ne.jp> 
     2 
     3        * international/mw32misc.el (create-fontset-from-request): Support 
     4        `centering' option. 
     5        (change-fontset-from-request): Ditto. 
     6 
    172003-02-19  MIYOSHI Masanori  <miyoshi@boreas.dti.ne.jp> 
    28 
  • work/cvs2svn/lisp/international/mw32misc.el

    r2990 r3012  
    780780        (spacing (cdr (or (assq 'spacing required) 
    781781                          (assq 'spacing recommended)))) 
     782        (centering (cdr (or (assq 'centering required) 
     783                            (assq 'centering recommended)))) 
    782784        charset logfont option font-request) 
    783785    ;; build font option 
    784786    (when (numberp spacing) 
    785       (setq option (list (cons 'spacing spacing)))) 
     787      (setq option (cons (cons 'spacing spacing) option))) 
     788    (when (symbolp centering) 
     789      (setq option (cons (cons 'centering centering) option))) 
    786790 
    787791    (while logfont-list 
     
    816820        (spacing (cdr (or (assq 'spacing required) 
    817821                          (assq 'spacing recommended)))) 
     822        (centering (cdr (or (assq 'centering required) 
     823                            (assq 'centering recommended)))) 
    818824        (fr-old (cdr (assq 'strict-spec (w32-get-font-info name)))) 
    819825        (fr-new (logfont-list-from-request required recommended)) 
     
    827833    ;; build font option 
    828834    (when (numberp spacing) 
    829       (setq option (list (cons 'spacing spacing)))) 
     835      (setq option (cons (cons 'spacing spacing) option))) 
     836    (when (symbolp centering) 
     837      (setq option (cons (cons 'centering centering) option))) 
    830838    ;; 
    831839    (while fr-new