OBS User unknown 2008-01-03 17:01:03 +00:00 committed by Git OBS Bridge
parent a4fda93143
commit dad08ad681
3 changed files with 23 additions and 16 deletions

View File

@ -82,21 +82,21 @@
(make-face-bold face)) (make-face-bold face))
(if (string-match "italic" (symbol-name face)) (if (string-match "italic" (symbol-name face))
(make-face-italic face))) (make-face-italic face)))
(if (fboundp 'custom-face-get-spec) (when (fboundp 'custom-face-get-spec)
(if (and (eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :bold)) (if (and (eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :bold))
(eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :italic))) (eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :italic)))
(make-face-bold-italic face))
(if (and (eq 'bold (plist-get (cadr (assoc t (custom-face-get-spec face))) :weight))
(eq 'italic (plist-get (cadr (assoc t (custom-face-get-spec face))) :slant)))
(make-face-bold-italic face) (make-face-bold-italic face)
(if (eq 'bold (plist-get (cadr (assoc t (custom-face-get-spec face))) :weight)) (if (and (eq 'bold (plist-get (cadr (assoc t (custom-face-get-spec face))) :weight))
(make-face-bold face)) (eq 'italic (plist-get (cadr (assoc t (custom-face-get-spec face))) :slant)))
(if (eq 'italic (plist-get (cadr (assoc t (custom-face-get-spec face))) :slant)) (make-face-bold-italic face)
(make-face-italic face)) (if (eq 'bold (plist-get (cadr (assoc t (custom-face-get-spec face))) :weight))
(if (eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :bold)) (make-face-bold face))
(make-face-bold face)) (if (eq 'italic (plist-get (cadr (assoc t (custom-face-get-spec face))) :slant))
(if (eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :italic)) (make-face-italic face))
(make-face-italic face)))) (if (eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :bold))
(make-face-bold face))
(if (eq t (plist-get (cadr (assoc t (custom-face-get-spec face))) :italic))
(make-face-italic face)))))
)) ))
(face-list)))) (face-list))))

View File

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Wed Jan 02 19:39:36 CET 2008 - mfabian@suse.de
- Bugzilla #350554: fix a serious bug in the last change.
------------------------------------------------------------------- -------------------------------------------------------------------
Fri Dec 21 19:41:57 CET 2007 - mfabian@suse.de Fri Dec 21 19:41:57 CET 2007 - mfabian@suse.de

View File

@ -1,7 +1,7 @@
# #
# spec file for package xemacs (Version 21.5.28.20071220) # spec file for package xemacs (Version 21.5.28.20071220)
# #
# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany. # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine # This file and all modifications and additions to the pristine
# package are under the same license as the package itself. # package are under the same license as the package itself.
# #
@ -37,7 +37,7 @@ Requires: xemacs-info xemacs-packages ctags
Conflicts: gnuserv Conflicts: gnuserv
AutoReqProv: on AutoReqProv: on
Version: 21.5.28.20071220 Version: 21.5.28.20071220
Release: 2 Release: 7
Summary: XEmacs Summary: XEmacs
BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRoot: %{_tmppath}/%{name}-%{version}-build
# Howto get the cvs tree of XEmacs: # Howto get the cvs tree of XEmacs:
@ -577,6 +577,8 @@ rm -rf $RPM_BUILD_ROOT
%dir /usr/share/xemacs/site-packages/lisp/term/ %dir /usr/share/xemacs/site-packages/lisp/term/
%changelog %changelog
* Wed Jan 02 2008 - mfabian@suse.de
- Bugzilla #350554: fix a serious bug in the last change.
* Fri Dec 21 2007 - mfabian@suse.de * Fri Dec 21 2007 - mfabian@suse.de
- some more hacks in the Xft font setup. - some more hacks in the Xft font setup.
* Fri Dec 21 2007 - mfabian@suse.de * Fri Dec 21 2007 - mfabian@suse.de