From: Roland Winkler Date: Sat, 20 Apr 2013 17:33:52 +0000 (-0500) Subject: lisp/faces.el (read-face-name): Bug fix, return just one face if arg multiple is nil X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~416 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7f5c16f47faa5764ae83a175e765066f55176f0;p=emacs.git lisp/faces.el (read-face-name): Bug fix, return just one face if arg multiple is nil --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8758eb33e77..2f625deedc6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-04-20 Roland Winkler + + * faces.el (read-face-name): Bug fix, return just one face if arg + multiple is nil. (Bug#14209) + 2013-04-20 Stefan Monnier * emacs-lisp/nadvice.el (advice--where-alist): Add :override. diff --git a/lisp/faces.el b/lisp/faces.el index de6d36c7ae8..6179ed7dfa7 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -979,9 +979,8 @@ if the user entered more than one face name, return only the first one." ;; (for example, because DEFAULT was "all faces") (if (facep face) (push (intern face) faces))) ;; Return either a list of faces or just one face. - (if multiple - (nreverse faces) - (last faces)))) + (setq faces (nreverse faces)) + (if multiple faces (car faces)))) ;; Not defined without X, but behind window-system test. (defvar x-bitmap-file-path)