![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to x-win.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp / term|
Return to x-win.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp / term |
1.1 ! root 1: ;; Parse switches controlling how Emacs interfaces with X window system. ! 2: ;; Copyright (C) 1986, 1988 Free Software Foundation, Inc. ! 3: ! 4: ;; This file is part of GNU Emacs. ! 5: ! 6: ;; GNU Emacs is distributed in the hope that it will be useful, ! 7: ;; but WITHOUT ANY WARRANTY. No author or distributor ! 8: ;; accepts responsibility to anyone for the consequences of using it ! 9: ;; or for whether it serves any particular purpose or works at all, ! 10: ;; unless he says so in writing. Refer to the GNU Emacs General Public ! 11: ;; License for full details. ! 12: ! 13: ;; Everyone is granted permission to copy, modify and redistribute ! 14: ;; GNU Emacs, but only under the conditions described in the ! 15: ;; GNU Emacs General Public License. A copy of this license is ! 16: ;; supposed to have been given to you along with GNU Emacs so you ! 17: ;; can know your rights and responsibilities. It should be in a ! 18: ;; file named COPYING. Among other things, the copyright notice ! 19: ;; and this notice must be preserved on all copies. ! 20: ! 21: (defconst window-system-version window-system-version ! 22: "*Window system version number now in use.") ! 23: ! 24: (defvar x-sigio-bug nil ! 25: "Non-NIL means don't use interrupts for input when using X.") ! 26: ! 27: (defvar x-processed-defaults nil ! 28: "Non-NIL means that user's X defaults have already been processed.") ! 29: ! 30: (defvar x-switches nil ! 31: "Alist of command switches and values for X window system interface. ! 32: You can set this in your init file, if you want some defaults ! 33: for these switches. Example: ! 34: (setq x-switches '((\"-r\" . t) (\"-font\" . \"foo\") (\"-b\" . \"8\"))) ! 35: This feature is currently broken for X11.") ! 36: ! 37: (if (= window-system-version 10) ! 38: (setq command-switch-alist ! 39: (append '(("-r" . x-handle-switch) ! 40: ("-i" . x-handle-switch) ! 41: ("-font" . x-handle-switch) ! 42: ("-w" . x-handle-switch) ! 43: ("-b" . x-handle-switch) ! 44: ("-ib" . x-handle-switch) ! 45: ("-fg" . x-handle-switch) ! 46: ("-bg" . x-handle-switch) ! 47: ("-bd" . x-handle-switch) ! 48: ("-cr" . x-handle-switch) ! 49: ("-ms" . x-handle-switch)) ! 50: command-switch-alist)) ! 51: (setq command-switch-alist ! 52: (append '(("-rn" . x-ignore-arg) ! 53: ("-r" . ignore) ! 54: ("-i" . ignore) ! 55: ("-rn" . x-ignore-arg) ! 56: ("-font" . x-ignore-arg) ! 57: ("-fn" . x-ignore-arg) ! 58: ("-wn" . x-ignore-arg) ! 59: ("-in" . x-ignore-arg) ! 60: ("-w" . x-ignore-arg) ! 61: ("-geometry" . x-ignore-arg) ! 62: ("-b" . x-ignore-arg) ! 63: ("-ib" . x-ignore-arg) ! 64: ("-fg" . x-ignore-arg) ! 65: ("-bg" . x-ignore-arg) ! 66: ("-bd" . x-ignore-arg) ! 67: ("-cr" . x-ignore-arg) ! 68: ("-ms" . x-ignore-arg)) ! 69: command-switch-alist))) ! 70: ! 71: (defun x-ignore-arg (&rest ignore) ! 72: (setq command-line-args-left (cdr command-line-args-left))) ! 73: ! 74: ;; This is run after the command args are parsed. ! 75: (defun x-handle-switch (switch) ! 76: (if (x-handle-switch-1 switch (car command-line-args-left)) ! 77: (setq command-line-args-left (cdr command-line-args-left)))) ! 78: ! 79: (defun x-handle-switch-1 (switch arg) ! 80: (cond ((string= switch "-r") ! 81: (x-flip-color) ! 82: nil) ! 83: ((string= switch "-i") ! 84: (x-set-icon t) ! 85: nil) ! 86: ((string= switch "-font") ! 87: (x-set-font arg) ! 88: t) ! 89: ((string= switch "-b") ! 90: (x-set-border-width (string-to-int arg)) ! 91: t) ! 92: ((string= switch "-ib") ! 93: (x-set-internal-border-width (string-to-int arg)) ! 94: t) ! 95: ((string= switch "-w") ! 96: (x-create-x-window arg) ! 97: t) ! 98: ((string= switch "-fg") ! 99: (x-set-foreground-color arg) ! 100: t) ! 101: ((string= switch "-bg") ! 102: (x-set-background-color arg) ! 103: t) ! 104: ((string= switch "-bd") ! 105: (x-set-border-color arg) ! 106: t) ! 107: ((string= switch "-cr") ! 108: (x-set-cursor-color arg) ! 109: t) ! 110: ((string= switch "-ms") ! 111: (x-set-mouse-color arg) ! 112: t))) ! 113: ! 114: ;; Convert a string of the form "WWxHH+XO+YO", ! 115: ;; where WW, HH, XO and YO are numerals, ! 116: ;; into a list (WW HH XO YO). ! 117: ;; "xHH" may be omitted; then 0 is used for HH. ! 118: ;; XO and YO may be preceded by - instead of + to make them negative. ! 119: ;; Either YO or both XO and YO may be omitted; zero is used. ! 120: (defun x-parse-edge-spec (arg) ! 121: (let ((cols-by-font 0) ! 122: (rows-by-font 0) ! 123: (xoffset 0) ! 124: (yoffset 0)) ! 125: (if (string-match "^=" arg) ! 126: (setq cols-by-font (x-extract-number)) ! 127: (error "Invalid X window size/position spec")) ! 128: (if (string-match "^x" arg) ;get rows-by-font ! 129: (setq rows-by-font (x-extract-number))) ! 130: (if (string-match "^[-+]" arg) ! 131: (setq xoffset (x-extract-number))) ! 132: (if (string-match "^[-+]" arg) ! 133: (setq yoffset (x-extract-number))) ! 134: (or (equal arg "") ! 135: (error "Invalid X window size/position spec")) ! 136: (list cols-by-font rows-by-font xoffset yoffset))) ! 137: ! 138: ;; Subroutine to extract the next numeral from the front of arg, ! 139: ;; returning it and shortening arg to remove its text. ! 140: ;; If arg is negative, subtract 1 before returning it. ! 141: (defun x-extract-number () ! 142: (if (string-match "^[x=]" arg) ! 143: (setq arg (substring arg 1))) ! 144: (or (string-match "[-+]?[0-9]+" arg) ! 145: (error "Invalid X window size/position spec")) ! 146: (prog1 ! 147: (+ (string-to-int arg) ! 148: (if (string-match "^-" arg) -1 0)) ! 149: (setq arg ! 150: (substring arg ! 151: (or (string-match "[^0-9]" arg 1) ! 152: (length arg)))))) ! 153: ! 154: (defun x-get-default-args () ! 155: (setq x-processed-defaults t) ! 156: (let (value) ! 157: (if (not (string= (setq value (x-get-default "bodyfont")) "")) ! 158: (x-handle-switch-1 "-font" value)) ! 159: (if (string-match "on" (x-get-default "bitmapicon")) ! 160: (x-handle-switch-1 "-i" t)) ! 161: (if (not (string= (setq value (x-get-default "borderwidth")) "")) ! 162: (x-handle-switch-1 "-b" value)) ! 163: (if (not (string= (setq value (x-get-default "internalborder")) "")) ! 164: (x-handle-switch-1 "-ib" value)) ! 165: (if (not (string= (setq value (x-get-default "foreground")) "")) ! 166: (x-handle-switch-1 "-fg" value)) ! 167: (if (not (string= (setq value (x-get-default "background")) "")) ! 168: (x-handle-switch-1 "-bg" value)) ! 169: (if (not (string= (setq value (x-get-default "border")) "")) ! 170: (x-handle-switch-1 "-bd" value)) ! 171: (if (not (string= (setq value (x-get-default "cursor")) "")) ! 172: (x-handle-switch-1 "-cr" value)) ! 173: (if (not (string= (setq value (x-get-default "mouse")) "")) ! 174: (x-handle-switch-1 "-ms" value)) ! 175: (if (string-match "on" (x-get-default "reversevideo")) ! 176: (x-handle-switch-1 "-r" t)))) ! 177: ! 178: (defun x-new-display (display) ! 179: "This function takes one argument, the display where you wish to ! 180: continue your editing session. Your current window will be unmapped and ! 181: the current display will be closed. The new X display will be opened and ! 182: the rubber-band outline of the new window will appear on the new X display." ! 183: (interactive "sDisplay to switch emacs to: ") ! 184: (x-change-display display) ! 185: (x-get-default-args)) ! 186: ! 187: ;; So far we have only defined some functions. ! 188: ;; Now we start processing X-related switches ! 189: ;; and redefining commands and variables, ! 190: ;; only if Emacs has been compiled to support direct interface to X. ! 191: ! 192: (if (eq window-system 'x) ! 193: (progn ! 194: (require 'x-mouse) ! 195: (if (= window-system-version 10) ! 196: (progn ! 197: ;; xterm.c depends on using interrupt-driven input. ! 198: (set-input-mode t nil) ! 199: ! 200: ;; Not defvar! This is not DEFINING this variable, just specifying ! 201: ;; a value for it. ! 202: (setq window-setup-hook 'x-pop-up-window) ! 203: ! 204: ;; Process switch settings made by .emacs file. ! 205: (while x-switches ! 206: (x-handle-switch-1 (car (car x-switches)) (cdr (car x-switches))) ! 207: (setq x-switches (cdr x-switches))))) ! 208: ! 209: ;; On certain systems, turn off use of sigio, because it's broken. ! 210: (if x-sigio-bug ! 211: (set-input-mode nil nil)) ! 212: ! 213: (put 'suspend-emacs 'disabled ! 214: "Suspending a program running in an X window is silly ! 215: and you would not be able to start it again. Just switch windows instead.\n") ! 216: (setq suspend-hook '(lambda () (error "Suspending an emacs running under X makes no sense"))) ! 217: (substitute-key-definition 'suspend-emacs nil global-map) ! 218: (substitute-key-definition 'suspend-emacs nil esc-map) ! 219: (substitute-key-definition 'suspend-emacs nil ctl-x-map) ! 220: ;; Not needed any more -- done in C. ! 221: ;; (if (not x-processed-defaults) (x-get-default-args)) ! 222: ))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.