diff options
author | Po Lu <luangruo@yahoo.com> | 2022-05-14 21:42:21 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2022-05-14 21:42:21 +0800 |
commit | 8d1aa370d33f51e15ca038d2a083502329c64119 (patch) | |
tree | d5e53c4f2704f835c0f8a5abe038071deb468bde /lisp/frame.el | |
parent | dbfbae8708d1ccf1015c4aafc151f96ec1caeb0e (diff) | |
download | emacs-8d1aa370d33f51e15ca038d2a083502329c64119.tar.gz |
; 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
<eliz@gnu.org>.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r-- | lisp/frame.el | 7 |
1 files changed, 5 insertions, 2 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))))) |