Changeset 3012
- Timestamp:
- 02/22/03 10:41:33 (6 years ago)
- Files:
-
- work/cvs2svn/lisp/ChangeLog.Meadow (modified) (1 diff)
- work/cvs2svn/lisp/international/mw32misc.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
work/cvs2svn/lisp/ChangeLog.Meadow
r3001 r3012 1 2003-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 1 7 2003-02-19 MIYOSHI Masanori <miyoshi@boreas.dti.ne.jp> 2 8 work/cvs2svn/lisp/international/mw32misc.el
r2990 r3012 780 780 (spacing (cdr (or (assq 'spacing required) 781 781 (assq 'spacing recommended)))) 782 (centering (cdr (or (assq 'centering required) 783 (assq 'centering recommended)))) 782 784 charset logfont option font-request) 783 785 ;; build font option 784 786 (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))) 786 790 787 791 (while logfont-list … … 816 820 (spacing (cdr (or (assq 'spacing required) 817 821 (assq 'spacing recommended)))) 822 (centering (cdr (or (assq 'centering required) 823 (assq 'centering recommended)))) 818 824 (fr-old (cdr (assq 'strict-spec (w32-get-font-info name)))) 819 825 (fr-new (logfont-list-from-request required recommended)) … … 827 833 ;; build font option 828 834 (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))) 830 838 ;; 831 839 (while fr-new
