view oldXMenu/EvHand.c @ 27526:a71509a64082

(cl-lambda-list, cl-macro-list) (cl-macro-list1): Recognize `&allow-other-keys' instead of `&allow-other-keywords'.

+
鐃緒申#include "copyright.h"
+
鐃緒申
+
鐃緒申/* $Header: /u/src/emacs/19.0/oldXMenu/RCS/EvHand.c,v 1.1 1992/04/11 22:10:19 jimb Exp $ */
+
鐃緒申/* Copyright    Massachusetts Institute of Technology    1985	*/
+
鐃緒申
+
鐃緒申/*
+
鐃緒申 * XMenu:	MIT Project Athena, X Window system menu package
+
鐃緒申 *
+
鐃緒申 * 	XMenuEventHandler - Set the XMenu asynchronous event handler.
+
鐃緒申 *
+
鐃緒申 *	Author:		Tony Della Fera, DEC
+
鐃緒申 *			December 19, 1985
+
鐃緒申 *
+
鐃緒申 */
+
鐃緒申
+
鐃緒申#include "XMenuInt.h"
+
鐃緒申
+
鐃緒申XMenuEventHandler(handler)
+
鐃緒申    int (*handler)();
+
鐃緒申{
+
鐃緒申    /*
+
鐃緒申     * Set the global event handler variable.
+
鐃緒申     */
+
鐃緒申    _XMEventHandler = handler;
+
鐃緒申}
+
鐃緒申