svnno****@sourc*****
svnno****@sourc*****
2007年 5月 20日 (日) 11:27:03 JST
Revision: 463
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=macemacsjp&view=rev&rev=463
Author: matsuan
Date: 2007-05-20 11:27:03 +0900 (Sun, 20 May 2007)
Log Message:
-----------
add new veriable
Modified Paths:
--------------
fixed-width-fontset/trunk/fixed-width-fontset.el
-------------- next part --------------
Modified: fixed-width-fontset/trunk/fixed-width-fontset.el
===================================================================
--- fixed-width-fontset/trunk/fixed-width-fontset.el 2007-05-20 02:26:04 UTC (rev 462)
+++ fixed-width-fontset/trunk/fixed-width-fontset.el 2007-05-20 02:27:03 UTC (rev 463)
@@ -1,8 +1,8 @@
;; fixed-width-fontset.el -*- coding: iso-2022-7bit -*-
;; Copyright (C) 2005-2007 by T. Hiromatsu <matsu****@users*****>
-;; Version 1_0_5
-;; 2007-01-19
+;; Version 1_0_6
+;; 2007-05-20
;;; Commentary:
@@ -88,6 +88,12 @@
(ecd-fml-reg (fixed-width-create-encode-family-reg-list new-list)))
(fixed-width-set-fontset-font asc-fontset ecd-fml-reg))))
+;;
+;; variables
+;;
+
+(defvar fixed-width-rescale t)
+
;; font-width-compensation function section
;; $B%+%l%s%H%U%l!<%`$G;H$o$l$F$$$k%U%)%s%H$N!"%j%9%1!<%k%U%!%/%?!<$r!"(B
;; fixed-width-scale-alist $B$+$i!"<hF@$9$k!#(B
@@ -102,7 +108,7 @@
(size (aref (x-decompose-font-name asc) xlfd-regexp-pixelsize-subnum)))
(dolist (elt fixed-width-get-scale-alist)
(let* ((font (car elt))
- (new (or (cdr (assoc size elt)) 1.0))
+ (new (if fixed-width-rescale (or (cdr (assoc size elt)) 1.0) 1.0))
(old (assoc font res-alist)))
(if old (setcdr old new) (add-to-list 'res-alist (cons font new)))))
(setq face-font-rescale-alist res-alist)))