mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(x-long-option-alist, msdos-handle-args): Remove;

Browse Source 
startup.el now does that for all character-terminal frames.
This commit is contained in:
Eli Zaretskii 2000-10-28 17:19:36 +00:00
parent c381f482ac
commit f30846b1a8
1 changed files with 0 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
lisp/term/pc-win.el
View File

@ -229,78 +229,6 @@ are fixed-pitch."
(fset 'set-cursor-color 'ignore) ; Hardware determined by char under.
(fset 'set-border-color 'ignore) ; Not useful.
;; From lisp/term/x-win.el:
(defconst x-long-option-alist
'(("--name" . "-name")
("--title" . "-T")
("--reverse-video" . "-reverse")
("--foreground-color" . "-fg")
("--background-color" . "-bg")))
;; ---------------------------------------------------------------------------
;; Handle the X-like command line parameters "-fg", "-bg", "-name", etc.
(defun msdos-handle-args (args)
(let ((rest nil))
(message "%s" args)
(while args
(let* ((this (car args))
(orig-this this)
completion argval)
(setq args (cdr args))
;; Check for long options with attached arguments
;; and separate out the attached option argument into argval.
(if (string-match "^--[^=]*=" this)
(setq argval (substring this (match-end 0))
this (substring this 0 (1- (match-end 0)))))
(setq completion (try-completion this x-long-option-alist))
(if (eq completion t)
;; Exact match for long option.
(setq this (cdr (assoc this x-long-option-alist)))
(if (stringp completion)
(let ((elt (assoc completion x-long-option-alist)))
;; Check for abbreviated long option.
(or elt
(error "Option `%s' is ambiguous" this))
(setq this (cdr elt)))
;; Check for a short option.
(setq argval nil this orig-this)))
(cond ((or (string= this "-fg") (string= this "-foreground"))
(or argval (setq argval (car args) args (cdr args)))
(setq default-frame-alist
(cons (cons 'foreground-color argval)
default-frame-alist)))
((or (string= this "-bg") (string= this "-background"))
(or argval (setq argval (car args) args (cdr args)))
(setq default-frame-alist
(cons (cons 'background-color argval)
default-frame-alist)))
((or (string= this "-T") (string= this "-name"))
(or argval (setq argval (car args) args (cdr args)))
(setq default-frame-alist
(cons
(cons 'title
(if (stringp argval)
argval
(let ((case-fold-search t)
i)
(setq argval (invocation-name))
;; Change any . or * characters in name to
;; hyphens, so as to emulate behavior on X.
(while
(setq i (string-match "[.*]" argval))
(aset argval i ?-))
argval)))
default-frame-alist)))
((or (string= this "-r")
(string= this "-rv")
(string= this "-reverse"))
(setq default-frame-alist
(cons '(reverse . t)
default-frame-alist)))
(t (setq rest (cons this rest))))))
(nreverse rest)))
(setq command-line-args (msdos-handle-args command-line-args))
;; ---------------------------------------------------------------------------
;;; pc-win.el ends here