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/mouse.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/mouse.el')
-rw-r--r-- | lisp/mouse.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 8d727536e05..53d5a22167e 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -420,10 +420,8 @@ must be one of the symbols `header', `mode', or `vertical'." (let ((divider-width (frame-right-divider-width frame))) (when (and (or (not (numberp divider-width)) (zerop divider-width)) - (eq (cdr (assq 'vertical-scroll-bars - (frame-parameters frame))) - 'left)) - (setq window (window-in-direction 'left window t)))))) + (eq (frame-parameter frame 'vertical-scroll-bars) 'left)) + (setq window (window-in-direction 'left window t)))))) (let* ((exitfun nil) (move @@ -1705,7 +1703,7 @@ and selects that window." ;; Font selection. (defun font-menu-add-default () - (let* ((default (cdr (assq 'font (frame-parameters (selected-frame))))) + (let* ((default (frame-parameter nil 'font)) (font-alist x-fixed-font-alist) (elt (or (assoc "Misc" font-alist) (nth 1 font-alist)))) (if (assoc "Default" elt) |