942 |
(interactive "sFrame name: ") |
(interactive "sFrame name: ") |
943 |
(modify-frame-parameters (selected-frame) |
(modify-frame-parameters (selected-frame) |
944 |
(list (cons 'name name)))) |
(list (cons 'name name)))) |
945 |
|
|
946 |
|
(defun frame-current-scroll-bars (&optional frame) |
947 |
|
"Return the current scroll-bar settings in frame FRAME. |
948 |
|
Value is a cons (VERTICAL . HORISONTAL) where VERTICAL specifies the |
949 |
|
current location of the vertical scroll-bars (left, right, or nil), |
950 |
|
and HORISONTAL specifies the current location of the horisontal scroll |
951 |
|
bars (top, bottom, or nil)." |
952 |
|
(let ((vert (frame-parameter frame 'vertical-scroll-bars)) |
953 |
|
(hor nil)) |
954 |
|
(unless (memq vert '(left right nil)) |
955 |
|
(setq vert default-frame-scroll-bars)) |
956 |
|
(cons vert hor))) |
957 |
|
|
958 |
;;;; Frame/display capabilities. |
;;;; Frame/display capabilities. |
959 |
(defun display-mouse-p (&optional display) |
(defun display-mouse-p (&optional display) |