Mercurial > emacs
view oldXMenu/FindSel.c @ 80895:776cb0a1bb24
Merge from emacs--rel--22
Patches applied:
* emacs--rel--22 (patch 13)
- Update from CVS
2007-05-10 Richard Stallman <rms@gnu.org>
* lisp/international/iso-cvt.el (iso-cvt-read-only): Ignore arguments.
(iso-cvt-write-only): Likewise.
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
Fix generated doc string.
* lisp/startup.el (fancy-splash-text): Add URL of guided tour.
Adjust horizontal and vertical whitespace.
* lisp/progmodes/compile.el (compilation-handle-exit):
Use run-hook-with-args to run compilation-finish-functions.
* lisp/files.el (file-start-mode-alist): New variable.
(magic-mode-regexp-match-limit): Doc fix.
(set-auto-mode): Handle file-start-mode-alist.
A little cleanup of structure.
2007-05-10 Richard Stallman <rms@gnu.org>
* lispref/keymaps.texi (Scanning Keymaps): Update where-is-internal example.
* lispref/help.texi (Keys in Documentation): Add reference to
Documentation Tips.
* lispref/files.texi (Format Conversion): TO-FN gets three arguments.
* lispref/modes.texi (Auto Major Mode): Document file-start-mode-alist.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-743
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 11 May 2007 04:44:30 +0000 |
parents | 3d45362f1d38 |
children | 43c5da03890c b8d9a391daf3 95d0cdf160ea |
line wrap: on
line source
#include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ /* Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package * * XMenuFindSelection - Find the first selection in a pane who's * label matches a particular string. * * Author: Tony Della Fera, DEC * January 22, 1986 * */ #include "XMenuInt.h" int XMenuFindSelection(menu, p_num, label) register XMenu *menu; int p_num; register char *label; { register XMPane *p_ptr; register XMSelect *s_ptr; register int i = 0; /* * Check for NULL pointers! */ if (label == NULL) { _XMErrorCode = XME_ARG_BOUNDS; return(XM_FAILURE); } /* * Find the right pane. */ p_ptr = _XMGetPanePtr(menu, p_num); if (p_ptr == NULL) return(XM_FAILURE); /* * Find the right selection. */ for ( s_ptr = p_ptr->s_list->next; s_ptr != p_ptr->s_list; s_ptr = s_ptr->next ){ if (s_ptr->label_length == 0) { if (*label == '\0') { _XMErrorCode = XME_NO_ERROR; return (i); } } else { if (strncmp (label, s_ptr->label, s_ptr->label_length) == 0) { _XMErrorCode = XME_NO_ERROR; return (i); } } i++; } /* * If we get here then we have not found * a match. */ _XMErrorCode = XME_S_NOT_FOUND; return (XM_FAILURE); } /* arch-tag: 564a4a95-9ab0-4580-b05f-6970c4b25dd4 (do not change this comment) */