From 8d1aa370d33f51e15ca038d2a083502329c64119 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Sat, 14 May 2022 21:42:21 +0800 Subject: [PATCH] ; Fix PGTK declare-function mistakes * lisp/frame.el (pgtk-frame-list-z-order): (frame-list-z-order): * lisp/term/pgtk-win.el (pgtk-hide-emacs): Remove extraneous or incorrect `declare-function's. Reported by Eli Zaretskii . --- lisp/frame.el | 7 +++++-- lisp/term/pgtk-win.el | 1 - 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index 9b8937c2580..094d67688c2 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1993,7 +1993,8 @@ workarea attribute." (declare-function x-frame-list-z-order "xfns.c" (&optional display)) (declare-function w32-frame-list-z-order "w32fns.c" (&optional display)) (declare-function ns-frame-list-z-order "nsfns.m" (&optional display)) -(declare-function pgtk-frame-list-z-order "pgtkfns.c" (&optional display)) +;; TODO: implement this on PGTK. +;; (declare-function pgtk-frame-list-z-order "pgtkfns.c" (&optional display)) (declare-function haiku-frame-list-z-order "haikufns.c" (&optional display)) (defun frame-list-z-order (&optional display) @@ -2016,7 +2017,9 @@ Return nil if DISPLAY contains no Emacs frame." ((eq frame-type 'ns) (ns-frame-list-z-order display)) ((eq frame-type 'pgtk) - (pgtk-frame-list-z-order display)) + ;; This is currently not supported on PGTK. + ;; (pgtk-frame-list-z-order display) + nil) ((eq frame-type 'haiku) (haiku-frame-list-z-order display))))) diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el index 9b22ab0970b..8abea3edba6 100644 --- a/lisp/term/pgtk-win.el +++ b/lisp/term/pgtk-win.el @@ -45,7 +45,6 @@ (defvar pgtk-use-im-context-on-new-connection) (declare-function pgtk-use-im-context "pgtkim.c") -(declare-function pgtk-hide-emacs "pgtkfns.c" (on)) (defun pgtk-drag-n-drop (event &optional new-frame force-text) "Edit the files listed in the drag-n-drop EVENT. -- 2.39.2