Mercurial > emacs
comparison lisp/term/x-win.el @ 1099:178215fd8a20
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 12 Sep 1992 01:20:58 +0000 |
parents | cc82116a8f1c |
children | 49e9dffbb2dc |
comparison
equal
deleted
inserted
replaced
1098:79f020f34683 | 1099:178215fd8a20 |
---|---|
413 all-colors (cdr all-colors)) | 413 all-colors (cdr all-colors)) |
414 (and (x-defined-color this-color) | 414 (and (x-defined-color this-color) |
415 (setq defined-colors (cons this-color defined-colors)))) | 415 (setq defined-colors (cons this-color defined-colors)))) |
416 defined-colors)) | 416 defined-colors)) |
417 | 417 |
418 (defvar scroll-bar-mode nil) | |
419 | |
420 ;;; ??? x-create-screen needs to be changed to use scroll-bar-mode | |
421 ;;; to decide (by default) whether to make a scroll bar. | |
422 (defun scroll-bar-mode (flag) | |
423 "Toggle display of vertical scroll bars on each frame. | |
424 This command applies to all frames that exist and frames to be | |
425 created in the future. | |
426 With a numeric argument, if the argument is negative, | |
427 turn off scroll bars; otherwise, turn on scroll bars." | |
428 (interactive "P") | |
429 (setq scroll-bar-mode (if (null flag) (not scroll-bar-mode) | |
430 (or (not (numberp flag)) (>= flag 0)))) | |
431 (let ((frames (frame-list))) | |
432 (while frames | |
433 (modify-frame-parameters (car frames) | |
434 (list (cons 'vertical-scrollbar scroll-bar-mode))) | |
435 (setq frames (cdr frames))))) | |
436 | |
418 ;;;; Function keys | 437 ;;;; Function keys |
419 | 438 |
420 ;;; Give some common function keys reasonable definitions. | 439 ;;; Give some common function keys reasonable definitions. |
421 (define-key global-map [home] 'beginning-of-line) | 440 (define-key global-map [home] 'beginning-of-line) |
422 (define-key global-map [left] 'backward-char) | 441 (define-key global-map [left] 'backward-char) |