From 51d5b4eca9d2bb0789c057cc7017179db5f2d5fe Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 25 May 2011 11:03:59 +0200 Subject: [PATCH] * textmodes/rst.el (rst-define-level-faces): Do not define face symbol if it is already defined. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/rst.el | 11 ++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4af052c84e0..9987237c6ef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-05-25 Julien Danjou + + * textmodes/rst.el (rst-define-level-faces): Do not define face + symbol if it is already defined. + 2011-05-24 Vincent Belaïche * play/5x5.el (5x5-new-game, 5x5-randomize): diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index b55146c2ff9..9ed5309bb53 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el @@ -2800,11 +2800,12 @@ details check the Rst Faces Defaults group." rst-level-face-base-color (+ (* (1- i) rst-level-face-step-light) rst-level-face-base-light)))) - (make-empty-face sym) - (set-face-doc-string sym doc) - (set-face-background sym col) - (set sym sym) - (setq i (1+ i)))))) + (unless (boundp sym) + (make-empty-face sym) + (set-face-doc-string sym doc) + (set-face-background sym col) + (set sym sym)) + (setq i (1+ i)))))) (rst-define-level-faces) -- 2.39.2