Mercurial > emacs
comparison lisp/frame.el @ 52614:a77e35d5d0c2
(frame-current-scroll-bars): New defun.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 24 Sep 2003 22:54:55 +0000 |
parents | 695cf19ef79e |
children | fe9b37bee5f7 45cc6f8abd8d |
comparison
equal
deleted
inserted
replaced
52613:b9d9fbfea220 | 52614:a77e35d5d0c2 |
---|---|
940 The frame name is displayed on the modeline if the terminal displays only | 940 The frame name is displayed on the modeline if the terminal displays only |
941 one frame, otherwise the name is displayed on the frame's caption bar." | 941 one frame, otherwise the name is displayed on the frame's caption bar." |
942 (interactive "sFrame name: ") | 942 (interactive "sFrame name: ") |
943 (modify-frame-parameters (selected-frame) | 943 (modify-frame-parameters (selected-frame) |
944 (list (cons 'name name)))) | 944 (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))) | |
945 | 957 |
946 ;;;; Frame/display capabilities. | 958 ;;;; Frame/display capabilities. |
947 (defun display-mouse-p (&optional display) | 959 (defun display-mouse-p (&optional display) |
948 "Return non-nil if DISPLAY has a mouse available. | 960 "Return non-nil if DISPLAY has a mouse available. |
949 DISPLAY can be a display name, a frame, or nil (meaning the selected | 961 DISPLAY can be a display name, a frame, or nil (meaning the selected |