mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; Fix PGTK declare-function mistakes

Browse source 
* 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>.
This commit is contained in:
Po Lu 2022-05-14 21:42:21 +08:00
parent dbfbae8708
commit 8d1aa370d3
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/frame.el
View file

@ -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)))))

1
lisp/term/pgtk-win.el
View file

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