martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix two no-X compilation warnings

Browse Source 
* lisp/mouse.el (x-hide-tip, x-show-tip): Declare to avoid no-X
build compilation warnings (bug#54524).

* lisp/term/pgtk-win.el (window-system-initialization): Avoid no-X
compilation warning.
This commit is contained in:
Lars Ingebrigtsen
2022-03-22 21:14:21 +01:00
parent a0e3385070
commit c8bde5b0a3
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/mouse.el
View File

@@ -2998,6 +2998,9 @@ Call `tooltip-show-help-non-mode' instead on non-graphical displays."
(x-show-tip tooltip)
(tooltip-show-help-non-mode tooltip)))
(declare-function x-hide-tip "xfns.c")
(declare-function x-show-tip "xfns.c")
(defun mouse-drag-and-drop-region-hide-tooltip ()
"Hide any tooltip currently displayed.
Call `tooltip-show-help-non-mode' to clear the echo area message

5
lisp/term/pgtk-win.el
View File

@@ -255,14 +255,15 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(setq command-line-args (x-handle-args command-line-args))
;; Make sure we have a valid resource name.
(or (stringp x-resource-name)
(when (boundp 'x-resource-name)
(unless (stringp x-resource-name)
(let (i)
(setq x-resource-name (copy-sequence invocation-name))
;; Change any . or * characters in x-resource-name to hyphens,
;; so as not to choke when we use it in X resource queries.
(while (setq i (string-match "[.*]" x-resource-name))
(aset x-resource-name i ?-))))
(aset x-resource-name i ?-)))))
;; Setup the default fontset.
(create-default-fontset)