.

OBS-URL: https://build.opensuse.org/package/show/M17N/xemacs?expand=0&rev=84

skel.init.el

@@ -2,16 +2,17 @@
 ;;; File name: ` ~/.xemacs/init.el '
 ;;; ---------------------
 ;;;
-;;; Copyright (c) 2002 SuSE Gmbh Nuernberg, Germany. 
+;;; Copyright (c) 2002,2015 SuSE Gmbh Nuernberg, Germany. 
 ;;;
-;;; Author: Werner Fink, <feedback@suse.de> 2002
+;;; Author: Werner Fink, <feedback@suse.de> 2002,2015
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;;
 ;; Load custom file
 ;; ----------------
 (setq custom-file "~/.xemacs/custom.el")
-(load "~/.xemacs/custom.el" t t)
+(if (file-exists-p custom-file)
+  (load-options-file custom-file))
 
 ;;
 ;; More coding systems (UNICODE)

xemacs-21.5.34-custom-fonts.patch

@@ -0,0 +1,26 @@
+---
+ lisp/cus-face.el |    6 +++++-
+ 1 file changed, 5 insertions(+), 1 deletion(-)
+
+--- lisp/cus-face.el
++++ lisp/cus-face.el	2015-07-10 10:52:20.177518702 +0000
+@@ -42,6 +42,9 @@
+ (eval-when-compile
+   (require 'font))
+ 
++;; Simply to apply any custom faces
++(autoload 'initialize-custom-faces "faces")
++
+ ;;; Declaring a face.
+ 
+ ;;;###autoload
+@@ -336,7 +339,8 @@ and non-nil, FACE will also be created a
+ COMMENT is a string comment about FACE.
+ 
+ See `defface' for the format of SPEC."
+-  (apply #'custom-theme-set-faces 'user args))
++  (apply #'custom-theme-set-faces 'user args)
++  (initialize-custom-faces))
+ 
+ ;;;###autoload
+ (defun custom-theme-set-faces (theme &rest args)

xemacs.changes

@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Fri Jul 10 11:23:15 UTC 2015 - werner@suse.de
+
+- Add patch xemacs-21.5.34-custom-fonts.patch to be able to apply
+  any custom font/face change at startup (bsc#932321)
+
 -------------------------------------------------------------------
 Tue Jun 23 17:18:48 UTC 2015 - schwab@suse.de
 

xemacs.spec

@@ -89,8 +89,10 @@ Patch54:        xemacs-21.5.34-gcc5.patch
 Patch56:        xemacs-libpng15.patch
 Patch292811:    bugzilla-292811-make-x-make-font-bold-italic-xft-work.patch
 Patch301352:    bugzilla-301352-fix-wrong-incrementing-in-macros.patch
-# PATCH-FIC-UPSTREAM bsc#930170
+# PATCH-FIX-UPSTREAM bsc#930170
 Patch57:        xemacs-21.5.34-Xaw3D_I18N.patch
+# PATCH-FIX-SUSE bsc#932321
+Patch58:        xemacs-21.5.34-custom-fonts.patch
 Requires(pre):  permissions
 Requires:       ctags
 Requires:       efont-unicode
@@ -181,6 +183,7 @@ echo Use xfs, that is XFontSet support for internationalized menubar.
 %patch292811 -p1
 %patch301352 -p1
 %patch57 -p0
+%patch58 -p0
 %patch0 -p1
 find lisp/ etc/ -name '*.elc' | xargs -r rm -f
 find . -name CVS -type d | xargs rm -rf