/[emacs]/emacs/lisp/frame.el
ViewVC logotype

Diff of /emacs/lisp/frame.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.204 by miles, Mon Sep 1 15:45:12 2003 UTC revision 1.205 by kfstorm, Wed Sep 24 22:54:55 2003 UTC
# Line 942  one frame, otherwise the name is display Line 942  one frame, otherwise the name is display
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)

Legend:
Removed from v.1.204  
changed lines
  Added in v.1.205

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26