Mercurial > emacs
annotate oldXMenu/FindPane.c @ 54770:e8824c4f5f7e
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-196
Remove RCS keywords
2004-04-10 Miles Bader <miles@gnu.org>
RCS keyword removal (only non-comment changes are enumerated here):
* lisp/emacs-lisp/bytecomp.el (byte-compile-version): Variable removed.
(byte-compile-insert-header): Don't use `byte-compile-version'.
* lisp/url/url-vars.el (url-version): Use the constant string "Emacs"
instead of calculating something from the RCS `State' keyword
[the latter is almost entirely useless anyway].
* lisp/forms.el (forms-version): Variable removed.
(forms-mode): Don't use `forms-version'.
* lisp/recentf.el (recentf-version): Variable removed.
* lisp/progmodes/delphi.el (delphi-version): Variable removed.
* lisp/progmodes/ada-mode.el (ada-mode): RCS keyword removed from docstring.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 10 Apr 2004 05:55:49 +0000 |
parents | 695cf19ef79e |
children | 3861ff8f4bf1 8e5779acd195 |
rev | line source |
---|---|
25858 | 1 #include "copyright.h" |
2 | |
3 /* Copyright Massachusetts Institute of Technology 1985 */ | |
4 | |
5 /* | |
6 * XMenu: MIT Project Athena, X Window system menu package | |
7 * | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25858
diff
changeset
|
8 * XMenuFindPane - Find the first menu pane who's label matches a |
25858 | 9 * particular string. |
10 * | |
11 * Author: Tony Della Fera, DEC | |
12 * January 22, 1986 | |
13 * | |
14 */ | |
15 | |
16 #include "XMenuInt.h" | |
17 | |
18 int | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25858
diff
changeset
|
19 XMenuFindPane(menu, label) |
25858 | 20 register XMenu *menu; |
21 register char *label; | |
22 { | |
23 register XMPane *p_ptr; | |
24 register int i = 0; | |
25 | |
26 /* | |
27 * Check for NULL pointers! | |
28 */ | |
29 if (label == NULL) { | |
30 _XMErrorCode = XME_ARG_BOUNDS; | |
31 return(XM_FAILURE); | |
32 } | |
33 | |
34 /* | |
35 * Find the pane who's label matches the given label. | |
36 */ | |
37 for ( | |
38 p_ptr = menu->p_list->next; | |
39 p_ptr != menu->p_list; | |
40 p_ptr = p_ptr->next | |
41 ){ | |
42 if (p_ptr->label_length == 0) { | |
43 if (*label == '\0') { | |
44 _XMErrorCode = XME_NO_ERROR; | |
45 return (i); | |
46 } | |
47 } | |
48 else { | |
49 if (strncmp (label, p_ptr->label, p_ptr->label_length) == 0) { | |
50 _XMErrorCode = XME_NO_ERROR; | |
51 return (i); | |
52 } | |
53 } | |
54 i++; | |
55 } | |
56 | |
57 /* | |
58 * If we get here then we have not found | |
59 * a match. | |
60 */ | |
61 _XMErrorCode = XME_P_NOT_FOUND; | |
62 return (XM_FAILURE); | |
63 } | |
52401 | 64 |
65 /* arch-tag: b6c94285-0d1d-4569-a071-b34b63c67a54 | |
66 (do not change this comment) */ |