APPROVE COMMIT NOTE: This patch has been committed # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1530365490 -3600 # Sat Jun 30 14:31:30 2018 +0100 # Node ID 50251aabc6979321092e15ecdf377dd8822b1fa2 # Parent 1934022c81ce664c730d89fc5f3eea24106eb091 Silence some Lisp byte-compiler warnings in the GTK code. lisp/ChangeLog addition: 2018-06-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * gtk-widgets.el: Avoid duplicate function imports in this file. * gtk-faces.el: Silence warnings about unbound symbols within this file when byte-compiling. * gtk-file-dialog.el: Silence warnings about #'gtk-dialog-get-content-area not being #'fboundp. * gtk-init.el: Silence warnings about #'gtk-load-css not having a function binding. diff -r 1934022c81ce -r 50251aabc697 lisp/ChangeLog --- a/lisp/ChangeLog Sat Jun 30 13:54:50 2018 +0100 +++ b/lisp/ChangeLog Sat Jun 30 14:31:30 2018 +0100 ＠＠ -1,3 +1,17 ＠＠ +2018-06-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * gtk-widgets.el: + Avoid duplicate function imports in this file. + * gtk-faces.el: + Silence warnings about unbound symbols within this file when + byte-compiling. + * gtk-file-dialog.el: + Silence warnings about #'gtk-dialog-get-content-area not being + #'fboundp. + * gtk-init.el: + Silence warnings about #'gtk-load-css not having a function + binding. + 2018-06-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * test-harness.el (test-harness-from-buffer): diff -r 1934022c81ce -r 50251aabc697 lisp/gtk-faces.el --- a/lisp/gtk-faces.el Sat Jun 30 13:54:50 2018 +0100 +++ b/lisp/gtk-faces.el Sat Jun 30 14:31:30 2018 +0100 ＠＠ -40,6 +40,8 ＠＠ gtk-font-selection-dialog-cancel-button gtk-widget-show-all gtk-main gtk-style-info)) +(globally-declare-boundp '(gtk-major-version gtk-fallback-font-name)) + (eval-when-compile (defmacro gtk-style-munge-face (face attribute value) (let ((func (intern (format "face-%s" (eval attribute))))) diff -r 1934022c81ce -r 50251aabc697 lisp/gtk-file-dialog.el --- a/lisp/gtk-file-dialog.el Sat Jun 30 13:54:50 2018 +0100 +++ b/lisp/gtk-file-dialog.el Sat Jun 30 14:31:30 2018 +0100 ＠＠ -40,7 +40,7 ＠＠ '(gtk-clist-clear gtk-clist-freeze gtk-clist-append gtk-clist-thaw gtk-combo-set-popdown-strings gtk-dialog-new - gtk-dialog-get-context-area gtk-dialog-get-action-area gtk-window-set-title + gtk-dialog-get-content-area gtk-dialog-get-action-area gtk-window-set-title gtk-button-new-with-label gtk-container-add gtk-signal-connect gtk-entry-get-text gtk-widget-destroy gtk-combo-new gtk-combo-disable-activate gtk-box-pack-start gtk-combo-entry diff -r 1934022c81ce -r 50251aabc697 lisp/gtk-init.el --- a/lisp/gtk-init.el Sat Jun 30 13:54:50 2018 +0100 +++ b/lisp/gtk-init.el Sat Jun 30 14:31:30 2018 +0100 ＠＠ -28,7 +28,7 ＠＠ '(gtk-initial-argv-list gtk-initial-geometry)) (globally-declare-fboundp - '(gtk-keysym-on-keyboard-p)) + '(gtk-keysym-on-keyboard-p gtk-load-css)) (defvar gtk-early-lisp-options-file "~/.xemacs/gtk-options.el" "Path where GTK-specific early options should be stored. diff -r 1934022c81ce -r 50251aabc697 lisp/gtk-widgets.el --- a/lisp/gtk-widgets.el Sat Jun 30 13:54:50 2018 +0100 +++ b/lisp/gtk-widgets.el Sat Jun 30 14:31:30 2018 +0100 ＠＠ -1569,15 +1569,7 ＠＠ (gtk-import-function nil gtk_widget_unref GtkWidget) (gtk-import-function nil gtk_widget_destroy GtkWidget) (gtk-import-function nil gtk_widget_unparent GtkWidget) -(gtk-import-function nil gtk_widget_show GtkWidget) (gtk-import-function nil gtk_widget_show_now GtkWidget) -(gtk-import-function nil gtk_widget_hide GtkWidget) -(gtk-import-function nil gtk_widget_show_all GtkWidget) -(gtk-import-function nil gtk_widget_hide_all GtkWidget) -(gtk-import-function nil gtk_widget_map GtkWidget) -(gtk-import-function nil gtk_widget_unmap GtkWidget) -(gtk-import-function nil gtk_widget_realize GtkWidget) -(gtk-import-function nil gtk_widget_unrealize GtkWidget) (gtk-import-function nil gtk_widget_queue_draw GtkWidget) (gtk-import-function nil gtk_widget_queue_draw_area GtkWidget gint gint gint gint) ＠＠ -1609,8 +1601,6 ＠＠ (gtk-import-function nil gtk_widget_popup GtkWidget gint gint) (gtk-import-function nil gtk_widget_grab_focus GtkWidget) (gtk-import-function nil gtk_widget_grab_default GtkWidget) -(gtk-import-function nil gtk_widget_set_name GtkWidget GtkString) -(gtk-import-function GtkString gtk_widget_get_name GtkWidget) (gtk-import-function nil gtk_widget_set_state GtkWidget GtkStateType) (gtk-import-function nil gtk_widget_set_sensitive GtkWidget gboolean) (gtk-import-function nil gtk_widget_set_app_paintable GtkWidget gboolean) ＠＠ -1693,7 +1683,6 ＠＠  (gtk-import-function GType gtk_window_get_type) -(gtk-import-function GtkWidget gtk_window_new GtkWindowType) (gtk-import-function nil gtk_window_set_title GtkWindow GtkString) (gtk-import-function nil gtk_window_set_wmclass GtkWindow GtkString GtkString) (gtk-import-function nil gtk_window_set_policy GtkWindow gint gint gint) -- ‘As I sat looking up at the Guinness ad, I could never figure out / How your man stayed up on the surfboard after forty pints of stout’ (C. Moore)