;;; pc-win.el --- setup support for `PC windows' (whatever that is) -*- lexical-binding:t -*-
-;; Copyright (C) 1994, 1996-1997, 1999, 2001-2015 Free Software
+;; Copyright (C) 1994, 1996-1997, 1999, 2001-2016 Free Software
;; Foundation, Inc.
;; Author: Morten Welinder <terra@diku.dk>
PATTERN is case-insensitive.
The return value is a list of strings, suitable as arguments to
-\`set-face-font'.
+`set-face-font'.
Fonts Emacs can't use may or may not be excluded
even if they match PATTERN and FACE.
;; gui-get-selection is used in select.el
(cl-defmethod gui-backend-get-selection (_selection-symbol _target-type
- &context (window-system (eql pc)))
+ &context (window-system pc))
"Return the value of the current selection.
Consult the selection. Treat empty strings as if they were unset."
;; Don't die if x-get-selection signals an error.
(declare-function w16-selection-exists-p "w16select.c")
;; gui-selection-owner-p is used in simple.el.
(cl-defmethod gui-backend-selection-exists-p (selection
- &context (window-system (eql pc)))
+ &context (window-system pc))
(w16-selection-exists-p selection))
(cl-defmethod gui-backend-selection-owner-p (selection
- &context (window-system (eql pc)))
+ &context (window-system pc))
(w16-selection-owner-p selection))
(defun w16-selection-owner-p (_selection)
(declare-function w16-set-clipboard-data "w16select.c"
(string &optional ignored))
(cl-defmethod gui-backend-set-selection (selection value
- &context (window-system (eql pc)))
+ &context (window-system pc))
(if (not value)
(if (w16-selection-owner-p selection)
t)
(window-system)))
;; window-system-initialization is called by startup.el:command-line.
-(cl-defmethod window-system-initialization (&context (window-system (eql pc))
+(cl-defmethod window-system-initialization (&context (window-system pc)
&optional _display)
"Initialization function for the `pc' \"window system\"."
(or (eq (window-system) 'pc)
(run-hooks 'terminal-init-msdos-hook))
;; frame-creation-function is called by frame.el:make-frame.
-(cl-defmethod frame-creation-function (params &context (window-system (eql pc)))
+(cl-defmethod frame-creation-function (params &context (window-system pc))
(msdos-create-frame-with-faces params))
;; We don't need anything beyond tty-handle-args for handling
;; command-line argument; see startup.el.
-(cl-defmethod handle-args-function (args &context (window-system (eql pc)))
+(cl-defmethod handle-args-function (args &context (window-system pc))
(tty-handle-args args))
;; ---------------------------------------------------------------------------
(provide 'pc-win)
+(provide 'term/pc-win)
;;; pc-win.el ends here