From: Juri Linkov <juri@jurta.org>
Date: Tue, 8 Jul 2014 09:03:23 +0000 (+0300)
Subject: * lisp/faces.el (face-name): Return input arg `face' as is
X-Git-Tag: emacs-24.3.93~84
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6dc311adc3908257011bd9d21426a5d4d92616eb;p=emacs.git

* lisp/faces.el (face-name): Return input arg `face' as is
when it's not a symbol.
(x-resolve-font-name): Don't check if the face is a symbol.

Fixes: debbugs:17956
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4803ca0f1e1..d346ac65def 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2014-07-08  Juri Linkov  <juri@jurta.org>
+
+	* faces.el (face-name): Return input arg `face' as is
+	when it's not a symbol.
+	(x-resolve-font-name): Don't check if the face is a symbol.
+	(Bug#17956)
+
 2014-07-08  Juri Linkov  <juri@jurta.org>
 
 	* facemenu.el (list-colors-print): In help-echo format use %.2f
diff --git a/lisp/faces.el b/lisp/faces.el
index 7caba9a96c2..d0e768c834e 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -359,7 +359,10 @@ If `inhibit-x-resources' is non-nil, this function does nothing."
 
 (defun face-name (face)
   "Return the name of face FACE."
-  (symbol-name (check-face face)))
+  (check-face face)
+  (if (symbolp face)
+      (symbol-name face)
+    face))
 
 
 (defun face-all-attributes (face &optional frame)
@@ -2731,8 +2734,8 @@ If PATTERN is nil, return the name of the frame's base font, which never
 contains wildcards.
 Given optional arguments FACE and FRAME, return a font which is
 also the same size as FACE on FRAME, or fail."
-  (or (symbolp face)
-      (setq face (face-name face)))
+  (when face
+    (setq face (face-name face)))
   (and (eq frame t)
        (setq frame nil))
   (if pattern