Mercurial > emacs

changeset 79:34eaa2fc331a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sat, 11 Aug 1990 19:50:23 +0000
parents 96d2734f0a00
children 9ebfcd47de59
files lisp/term/x-win.el
diffstat 1 files changed, 1 insertions(+), 66 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/x-win.el	Thu Aug 09 22:17:51 1990 +0000
+++ b/lisp/term/x-win.el	Sat Aug 11 19:50:23 1990 +0000
@@ -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.
 ;;