Hello community, here is the log from the commit of package xemacs checked in at Fri Dec 21 20:31:46 CET 2007. -------- --- xemacs/xemacs.changes 2007-12-20 16:34:32.000000000 +0100 +++ /mounts/work_src_done/STABLE/xemacs/xemacs.changes 2007-12-21 18:22:36.000000000 +0100 @@ -1,0 +2,6 @@ +Fri Dec 21 18:21:34 CET 2007 - mfabian@suse.de + +- improve Xft font setup hacks: clear all settings first when + trying to set new fonts for all faces. + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ xemacs.spec ++++++ --- /var/tmp/diff_new_pack.s30983/_old 2007-12-21 19:35:42.000000000 +0100 +++ /var/tmp/diff_new_pack.s30983/_new 2007-12-21 19:35:42.000000000 +0100 @@ -37,7 +37,7 @@ Conflicts: gnuserv AutoReqProv: on Version: 21.5.28.20071220 -Release: 1 +Release: 2 Summary: XEmacs BuildRoot: %{_tmppath}/%{name}-%{version}-build # Howto get the cvs tree of XEmacs: @@ -577,6 +577,9 @@ %dir /usr/share/xemacs/site-packages/lisp/term/ %changelog +* Fri Dec 21 2007 - mfabian@suse.de +- improve Xft font setup hacks: clear all settings first when + trying to set new fonts for all faces. * Thu Dec 20 2007 - ro@suse.de - update to CVS of 20071220 - deleted bugzilla-294746-support-windows-1252.patch (upstream) ++++++ suse-xft-init.el ++++++ --- xemacs/suse-xft-init.el 2007-07-13 20:45:40.000000000 +0200 +++ /mounts/work_src_done/STABLE/xemacs/suse-xft-init.el 2007-12-21 18:20:58.000000000 +0100 @@ -61,7 +61,10 @@ (set-face-font face (format "%s:size=%d" (cdr (assoc "en" suse-xft-fonts-alist)) - size)) + size) + 'global + nil + 'remove-all) ;; then append the fonts for the other languages (mapcar (lambda (tag) @@ -69,7 +72,7 @@ (format "%s:size=%d" (cdr (assoc tag suse-xft-fonts-alist)) size) - nil + 'global (list (intern tag)) 'remove-tag-set-append)) suse-xft-lang-tags) @@ -90,6 +93,13 @@ )) (face-list)))) +(defun suse-xft-set-size (size) + (interactive "nset all fonts to point-size: ") + (setq suse-xft-current-size size) + (if (> 1 suse-xft-current-size) + (setq suse-xft-current-size 1)) + (suse-xft-set-all-faces suse-xft-current-size)) + (defun suse-xft-change-size (delta) (interactive "nsize change in point (may be negative): ") (setq suse-xft-current-size (+ delta suse-xft-current-size)) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org