From a7e302dc1dc18770aaf9eeedfd638f73b574bc19 Mon Sep 17 00:00:00 2001 From: Dmitry Antipov Date: Tue, 5 Jul 2016 08:33:29 +0300 Subject: 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'. --- lisp/scroll-bar.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'lisp/scroll-bar.el') diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 838f9bf80cd..e5fe31675da 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -183,9 +183,7 @@ when they are turned on; if it is nil, they go on the left." (interactive "P") (if (null arg) (setq arg - (if (cdr (assq 'vertical-scroll-bars - (frame-parameters (selected-frame)))) - -1 1)) + (if (frame-parameter nil 'vertical-scroll-bars) -1 1)) (setq arg (prefix-numeric-value arg))) (modify-frame-parameters (selected-frame) @@ -199,9 +197,7 @@ With ARG, turn vertical scroll bars on if and only if ARG is positive." (interactive "P") (if (null arg) (setq arg - (if (cdr (assq 'horizontal-scroll-bars - (frame-parameters (selected-frame)))) - -1 1)) + (if (frame-parameter nil 'horizontal-scroll-bars) -1 1)) (setq arg (prefix-numeric-value arg))) (modify-frame-parameters (selected-frame) -- cgit v1.2.3