Mercurial > hg > xemacs-beta
view netinstall/dialog.cc @ 4502:8748a3f7ceb4
Handle varalias chains, custom variables in #'user-variable-p.
src/ChangeLog addition:
2008-08-23 Aidan Kehoe <kehoea@parhasard.net>
* eval.c (Fuser_variable_p): Moved to symbols.c
* symbols.c (Fcustom_variable_p): Moved here from custom.el.
(user_variable_alias_check_fun): Mapper function used in
`user-variable-p'.
(Fuser_variable_p): Moved here from eval.c, to allow it to examine
the variable alias chain. Expanded to check each entry in the
variable alias chain for signs of being a user variable;
documentation updated, noting the differences between GNU's
behaviour and ours (ours is a little more sensible)
(map_varalias_chain): New.
Given a C function, call it at least once for each symbol in a
symbol's varalias chain, signalling an error if there's a cycle,
and returning immediately if the function returns something other
than Qzero.
(Fdefvaralias): Correct the use of the word "alias" in the
docstring and in the argument name. Motivate this in a
comment. Add support for a DOCSTRING argument, something GNU has
too, and document this
* gc.c (vars_of_gc): Start the docstring of
`garbage-collection-messages' with an asterisk, to indicate that
it's a user variable.
lisp/ChangeLog addition:
2008-08-23 Aidan Kehoe <kehoea@parhasard.net>
* custom.el: Move #'custom-variable-p to C, since it's now called
from #'user-variable-p.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 23 Aug 2008 16:38:51 +0200 |
parents | 3078fd1074e8 |
children |
line wrap: on
line source
/* * Copyright (c) 2000, Red Hat, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * A copy of the GNU General Public License can be found at * http://www.gnu.org/ * * Written by DJ Delorie <dj@cygnus.com> * */ /* The purpose of this file is to provide common functionality for all the dialogs in the program. */ #include "win32.h" #include <stdio.h> #include <stdlib.h> #include "dialog.h" #include "msg.h" #include "log.h" char * eget (HWND h, int id, char *var) { char tmp[4000]; if (var) { free (var); var = 0; } if (GetDlgItemText (h, id, tmp, sizeof (tmp)) > 0) { var = (char *) malloc (strlen (tmp)+1); strcpy (var, tmp); } return var; } int eget (HWND h, int id) { BOOL s; int r = GetDlgItemInt (h, id, &s, TRUE); return r; } void eset (HWND h, int id, char *val) { SetDlgItemText (h, id, val); } void eset (HWND h, int id, int val) { SetDlgItemInt (h, id, (UINT)val, TRUE); } int rbget (HWND h, int *ids) { int i; for (i=0; ids[i]; i++) if (IsDlgButtonChecked (h, ids[i]) == BST_CHECKED) return ids[i]; return 0; } void rbset (HWND h, int *ids, int id) { int i; for (i=0; ids[i]; i++) CheckDlgButton (h, ids[i], id==ids[i] ? BST_CHECKED : BST_UNCHECKED); } void fatal (char *m) { DWORD e = GetLastError (); char *buf; FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM, 0, e, 0, (CHAR *)&buf, 0, 0); MessageBox (0, buf, m, 0); exit_setup (1); }