mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1990-08-11 19:50:23 +00:00
parent 6d8f803215
commit 44a30a52c0
1 changed files with 1 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

67
lisp/term/x-win.el
View file

@ -201,7 +201,7 @@
(defun x-pop-initial-window ()
;; xterm.c depends on using interrupt-driven input.
(set-input-mode t nil t)
;; (setq mouse-motion-handler 'x-track-pointer)
(setq mouse-motion-handler 'x-track-pointer)
(setq x-switches-specified (append x-switches-specified
initial-screen-alist
screen-default-alist))
@ -458,71 +458,6 @@
;;
;; Convenience functions for dynamically changing screen parameters
;;
(defun x-set-default-font (font-name)
(interactive "sFont name: ")
(modify-screen-parameters (selected-screen)
(list (cons 'font font-name))))
(defun x-set-background (color-name)
(interactive "sColor: ")
(modify-screen-parameters (selected-screen)
(list (cons 'background-color color-name))))
(defun x-set-foreground (color-name)
(interactive "sColor: ")
(modify-screen-parameters (selected-screen)
(list (cons 'foreground-color color-name))))
(defun x-set-cursor (color-name)
(interactive "sColor: ")
(modify-screen-parameters (selected-screen)
(list (cons 'cursor-color color-name))))
(defun x-set-mouse (color-name)
(interactive "sColor: ")
(modify-screen-parameters (selected-screen)
(list (cons 'mouse-color color-name))))
(defun x-set-mouse-shape (shape)
(interactive "sShape: ")
(setq x-pointer-shape (eval (intern shape)))
(modify-screen-parameters (selected-screen)
(list (assoc 'mouse-color (screen-parameters)))))
(defun x-set-border (color-name)
(interactive "sColor: ")
(modify-screen-parameters (selected-screen)
(list (cons 'border-color color-name))))
(defun x-set-name (name)
(interactive "sName: ")
(modify-screen-parameters (selected-screen)
(list (cons 'name name))))
(defun x-set-auto-raise (toggle)
(interactive "xt or nil? ")
(modify-screen-parameters (selected-screen)
(list (cons 'auto-raise toggle))))
(defun x-set-auto-lower (toggle)
(interactive "xt or nil? ")
(modify-screen-parameters (selected-screen)
(list (cons 'auto-lower toggle))))
(defun x-set-vertical-bar (toggle)
(interactive "xt or nil? ")
(modify-screen-parameters (selected-screen)
(list (cons 'vertical-scroll-bar toggle))))
(defun x-set-horizontal-bar (toggle)
(interactive "xt or nil? ")
(modify-screen-parameters (selected-screen)
(list (cons 'horizontal-scroll-bar toggle))))
;;
;; Function key processing under X. Function keys are received through
;; in the input stream as Lisp symbols.
;;