diff options
| author | Roland Winkler <winkler@gnu.org> | 2013-04-20 12:33:52 -0500 |
|---|---|---|
| committer | Roland Winkler <winkler@gnu.org> | 2013-04-20 12:33:52 -0500 |
| commit | d7f5c16f47faa5764ae83a175e765066f55176f0 (patch) | |
| tree | 45cd37154a71436a5bed1f16866eb5212656d8fa /lisp/faces.el | |
| parent | bcd7a0a4c55f8226e9322d1ef438040fed2dc57e (diff) | |
| download | emacs-d7f5c16f47faa5764ae83a175e765066f55176f0.tar.gz | |
lisp/faces.el (read-face-name): Bug fix, return just one face if arg multiple is nil
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 5 |
1 files changed, 2 insertions, 3 deletions
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) |