diff options
Diffstat (limited to 'lisp/term/pc-win.el')
| -rw-r--r-- | lisp/term/pc-win.el | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el index ab776ea6257..96831cea9a6 100644 --- a/lisp/term/pc-win.el +++ b/lisp/term/pc-win.el @@ -164,22 +164,22 @@ created." ;; platforms. (Bug#10783) ;; From src/xfns.c -(defun x-list-fonts (pattern &optional face frame maximum width) +(defun x-list-fonts (_pattern &optional _face _frame _maximum width) (if (or (null width) (and (numberp width) (= width 1))) (list "ms-dos") (list "no-such-font"))) (defun x-display-pixel-width (&optional frame) (frame-width frame)) (defun x-display-pixel-height (&optional frame) (frame-height frame)) -(defun x-display-planes (&optional frame) 4) ;bg switched to 16 colors as well -(defun x-display-color-cells (&optional frame) 16) -(defun x-server-max-request-size (&optional frame) 1000000) ; ??? -(defun x-server-vendor (&optional frame) t "GNU") -(defun x-server-version (&optional frame) '(1 0 0)) -(defun x-display-screens (&optional frame) 1) -(defun x-display-mm-height (&optional frame) 245) ; Guess the size of my -(defun x-display-mm-width (&optional frame) 322) ; monitor, EZ... -(defun x-display-backing-store (&optional frame) 'not-useful) -(defun x-display-visual-class (&optional frame) 'static-color) +(defun x-display-planes (&optional _frame) 4) ;bg switched to 16 colors as well +(defun x-display-color-cells (&optional _frame) 16) +(defun x-server-max-request-size (&optional _frame) 1000000) ; ??? +(defun x-server-vendor (&optional _frame) t "GNU") +(defun x-server-version (&optional _frame) '(1 0 0)) +(defun x-display-screens (&optional _frame) 1) +(defun x-display-mm-height (&optional _frame) 245) ; Guess the size of my +(defun x-display-mm-width (&optional _frame) 322) ; monitor, EZ... +(defun x-display-backing-store (&optional _frame) 'not-useful) +(defun x-display-visual-class (&optional _frame) 'static-color) (fset 'x-display-save-under 'ignore) (fset 'x-get-resource 'ignore) @@ -253,7 +253,7 @@ is not used)." (setq x-last-selected-text text)))))) ;; x-selection-owner-p is used in simple.el. -(defun x-selection-owner-p (&optional selection terminal) +(defun x-selection-owner-p (&optional _selection _terminal) "Whether the current Emacs process owns the given X Selection. The arg should be the name of the selection in question, typically one of the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. @@ -285,7 +285,7 @@ On Nextstep, TERMINAL is unused. ;; x-own-selection-internal and x-disown-selection-internal are used ;; in select.el:x-set-selection. -(defun x-own-selection-internal (selection value &optional frame) +(defun x-own-selection-internal (_selection value &optional _frame) "Assert an X selection of the type SELECTION with and value VALUE. SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. \(Those are literal upper-case symbol names, since that's what X expects.) @@ -302,7 +302,7 @@ On Nextstep, FRAME is unused. (x-select-text value)) value) -(defun x-disown-selection-internal (selection &optional time-object terminal) +(defun x-disown-selection-internal (selection &optional _time-object _terminal) "If we own the selection SELECTION, disown it. Disowning it means there is no such selection. @@ -321,7 +321,8 @@ On MS-DOS, all this does is return non-nil if we own the selection. t)) ;; x-get-selection-internal is used in select.el -(defun x-get-selection-internal (selection-symbol target-type &optional time-stamp terminal) +(defun x-get-selection-internal (_selection-symbol _target-type + &optional _time-stamp _terminal) "Return text selected from some X window. SELECTION-SYMBOL is typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. \(Those are literal upper-case symbol names, since that's what X expects.) @@ -403,7 +404,7 @@ Errors out because it is not supposed to be called, ever." (error "terminal-init-internal called for window-system `%s'" (window-system))) -(defun msdos-initialize-window-system (&optional display) +(defun msdos-initialize-window-system (&optional _display) "Initialization function for the `pc' \"window system\"." (or (eq (window-system) 'pc) (error |