-;;; riece-emacs.el --- FSF Emacs specific functions
+;;; riece-emacs.el --- FSF Emacs specific functions -*- lexical-binding: t -*-
;; Copyright (C) 1999 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(car (last (symbol-function function)))
function)))))
-(defun riece-popup-menu-popup (menu event)
+(defun riece-popup-menu-popup (menu _event)
(let ((function (riece-popup-menu-bogus-filter-constructor menu)))
(if function
(funcall function))))