diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2016-07-05 08:33:29 +0300 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2016-07-06 06:05:15 +0300 |
| commit | a7e302dc1dc18770aaf9eeedfd638f73b574bc19 (patch) | |
| tree | 7452f77ec6aa99f6155aafec4366eccaa28e0eb5 /lisp/faces.el | |
| parent | b1a64dba04146b1424eacd3bc363e5f0edeac2b2 (diff) | |
| download | emacs-a7e302dc1dc18770aaf9eeedfd638f73b574bc19.tar.gz | |
Prefer 'frame-parameter' where it is expected to be a bit faster
* lisp/international/mule-diag.el (mule-diag):
* lisp/menu-bar.el (menu-bar-showhide-scroll-bar-menu):
* lisp/mouse.el (mouse-drag-line, font-menu-add-default):
* lisp/scroll-bar.el (toggle-scroll-bar, toggle-horizontal-scroll-bar):
* lisp/faces.el (x-resolve-font-name): Use 'frame-parameter'.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index d5fc3ce834b..426de3b81db 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -2881,7 +2881,7 @@ also the same size as FACE on FRAME, or fail." pattern face))) (error "No fonts match `%s'" pattern))) (car fonts)) - (cdr (assq 'font (frame-parameters (selected-frame)))))) + (frame-parameter nil 'font))) (defcustom font-list-limit 100 "This variable is obsolete and has no effect." |