annotate oldXMenu/SetSel.c @ 39827:d9f8c7370b3a

(byte-compile-check-lambda-list): New function checking that lambda-list consists of non-constant symbols, that &rest and &optional are followed by variable names, that &rest VAR is the last element, and that variables aren't doubled. (byte-compile-lambda): Use it.

 1 #include "copyright.h"
 2 
 3 /* $Header: /u/src/emacs/19.0/oldXMenu/RCS/SetSel.c,v 1.1 1992/04/11 22:10:21 jimb Exp $ */
 4 /* Copyright    Massachusetts Institute of Technology    1985	*/
 5 
 6 /*
 7  * XMenu:	MIT Project Athena, X Window system menu package
 8  *
 9  *	XMenuSetSelection - Set a menu selection to be active or inactive.
10  *
11  *	Author:		Tony Della Fera, DEC
12  *			August, 1985
13  *
14  */
15 
16 #include "XMenuInt.h"
17 
18 int
19 XMenuSetSelection(menu, p_num, s_num, active)
20     register XMenu *menu;	/* Menu object to be modified. */
21     register int p_num;		/* Pane number to be modified. */
22     register int s_num;		/* Selection number to modified. */
23     int active;			/* Make selection active? */
24 {
25     register XMPane *p_ptr;	/* XMPane pointer. */
26     register XMSelect *s_ptr;	/* XMSelect pointer. */
27     
28     /*
29      * Find the right pane.
30      */
31     p_ptr = _XMGetPanePtr(menu, p_num);
32     if (p_ptr == NULL) return(XM_FAILURE);
33 
34     /*
35      * Find the right selection.
36      */
37     s_ptr = _XMGetSelectionPtr(p_ptr, s_num);
38     if (s_ptr == NULL) return(XM_FAILURE);
39 
40     /*
41      * Set its active switch.
42      */
43     s_ptr->active = active;
44 
45     /*
46      * Return the selection number just set.
47      */
48     _XMErrorCode = XME_NO_ERROR;
49     return(s_num);
50 }