diff options
Diffstat (limited to 'lisp/term/w32-win.el')
| -rw-r--r-- | lisp/term/w32-win.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index e8451930133..80afcb36040 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -284,7 +284,8 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") '(libxml2 "libxml2-2.dll" "libxml2.dll") '(zlib "zlib1.dll" "libz-1.dll") '(lcms2 "liblcms2-2.dll") - '(json "libjansson-4.dll"))) + '(json "libjansson-4.dll") + '(gccjit "libgccjit-0.dll"))) ;;; multi-tty support (defvar w32-initialized nil @@ -409,7 +410,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") ;;; Fix interface to (X-specific) mouse.el (defun w32--set-selection (type value) (if (eq type 'CLIPBOARD) - (w32-set-clipboard-data (replace-regexp-in-string "\0" "\\0" value t t)) + (w32-set-clipboard-data (string-replace "\0" "\\0" value)) (put 'x-selections (or type 'PRIMARY) value))) (defun w32--get-selection (&optional type data-type) @@ -555,6 +556,9 @@ be found in this alist. This alist is used by w32font.c when it looks for fonts that can display characters from scripts for which no USBs are defined.") +(declare-function x-list-fonts "xfaces.c" + (pattern &optional face frame maximum width)) + (defun w32-find-non-USB-fonts (&optional frame size) "Compute the value of `w32-non-USB-fonts' for specified SIZE and FRAME. FRAME defaults to the selected frame. |