Fix two no-X compilation warnings

* 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.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 93c89de91c2a7c043120f0c2d016b5e587585a7c..30b19510a46016ce1cfa3d76dfa3a6371d520544 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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

diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el
index 8e17864284eee390f6f329e8da296ee30b0502a6..114f98edb57de50e735808c9d67447419ea74454 100644 (file)
--- a/lisp/term/pgtk-win.el
+++ b/lisp/term/pgtk-win.el
@@ -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)