mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-09 00:11:49 -07:00
Code Issues Projects Releases Wiki Activity

* pgtk-win.el: fix compile-time warnings.

Browse source
This commit is contained in:
Yuuki Harano 2020-05-02 00:21:03 +09:00 • committed by Jeff Walsh
parent 014d56fa13
commit 5a72a07fa5
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4,7 +4,7 @@
(eval-when-compile (require 'cl-lib))
(or (featurep 'pgtk)
(error "%s: Loading pgtk-win.el but not compiled for pure Gtk+-3."
(invocation-name)))
invocation-name))
;; Documentation-purposes only: actually loaded in loadup.el.
(require 'term/common-win)
@ -108,8 +108,9 @@ the last file dropped is selected."
(defvar pgtk-right-control-modifier)
;; You say tomAYto, I say tomAHto..
(defvaralias 'pgtk-option-modifier 'pgtk-alternate-modifier)
(defvaralias 'pgtk-right-option-modifier 'pgtk-right-alternate-modifier)
(with-no-warnings
(defvaralias 'pgtk-option-modifier 'pgtk-alternate-modifier)
(defvaralias 'pgtk-right-option-modifier 'pgtk-right-alternate-modifier))
(defun pgtk-do-hide-emacs ()
(interactive)
@ -306,7 +307,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
;; Make sure we have a valid resource name.
(or (stringp x-resource-name)
(let (i)
(setq x-resource-name (invocation-name))
(setq x-resource-name 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.