Mercurial > emacs
annotate src/prefix-args.c @ 85516:6260015b7802
Allow minibuffer default to be a list of default values.
With empty input use the first element of this list as returned default.
(string_to_object):
(read_minibuf_noninteractive): If defalt is cons, set val to its car.
(read_minibuf): If defalt is cons, set histstring to its car.
(Fread_string): If default_value is cons, set val to its car.
(Fread_buffer): If def is cons, use its car.
(Fcompleting_read): If defalt is cons, set val to its car.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Mon, 22 Oct 2007 00:19:51 +0000 |
parents | 65663fcd2caa |
children | 107ccd98fa12 bdb3fe0ba9fa |
rev | line source |
---|---|
20572 | 1 /* prefix-args.c - echo each argument, prefixed by a string. |
75227
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
74658
diff
changeset
|
2 Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
74658
diff
changeset
|
3 2006, 2007 Free Software Foundation, Inc. |
36273
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
4 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
5 This file is part of GNU Emacs. |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
6 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
7 GNU Emacs is free software; you can redistribute it and/or modify |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
8 it under the terms of the GNU General Public License as published by |
78260
922696f363b0
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75227
diff
changeset
|
9 the Free Software Foundation; either version 3, or (at your option) |
36273
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
10 any later version. |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
11 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
12 GNU Emacs is distributed in the hope that it will be useful, |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
15 GNU General Public License for more details. |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
16 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
18 along with GNU Emacs; see the file COPYING. If not, write to |
64084 | 19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 Boston, MA 02110-1301, USA. */ | |
36273
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
21 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
22 /* Jim Blandy <jimb@occs.cs.oberlin.edu> - September 1992 |
20572 | 23 |
24 When using GCC 2 as the linker in the build process, options | |
25 intended for the linker need to be prefixed with the "-Xlinker" | |
26 option. If an option takes an argument, we need to use -Xlinker | |
27 twice - once for the option and once for its argument. For | |
28 example, to run the linker with the options "-Bstatic" "-e" | |
29 "_start", you'd need to pass the following options to GCC: | |
30 | |
31 -Xlinker -Bstatic -Xlinker -e -Xlinker _start. | |
32 | |
33 The Emacs makefile used to use a Bourne Shell `for' loop to prefix | |
34 each linker option with "-Xlinker", but 1) the for loop was hairier | |
35 than one might hope because it had to work when there were no | |
36 arguments to pass to the linker - the shell barfs on a loop like | |
37 this: | |
38 | |
39 for arg in ; do echo -Xlinker "$arg"; done | |
40 | |
41 and 2) the whole compilation command containing this loop seems to | |
42 exit with a non-zero status and halt the build under Ultrix. | |
43 | |
44 If I can't write a completely portable program to do this in C, | |
45 I'm quitting and taking up gardening. */ | |
46 | |
74658
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
47 #ifdef HAVE_CONFIG_H |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
48 # include <config.h> |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
49 #endif |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
50 |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
51 #if STDC_HEADERS |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
52 # include <stdlib.h> /* for proper declaration of `exit' */ |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
53 #endif |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
54 |
20572 | 55 #include <stdio.h> |
83342
9216636c02fc
Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents:
64084
diff
changeset
|
56 #include <stdlib.h> |
20572 | 57 |
21514 | 58 int |
20572 | 59 main (argc, argv) |
60 int argc; | |
61 char **argv; | |
62 { | |
63 char *progname; | |
64 char *prefix; | |
65 | |
66 progname = argv[0]; | |
67 argc--, argv++; | |
68 | |
69 if (argc < 1) | |
70 { | |
71 fprintf (stderr, "Usage: %s PREFIX ARGS...\n\ | |
72 Echo each ARG preceded by PREFIX and a space.\n", progname); | |
73 exit (2); | |
74 } | |
75 | |
76 prefix = argv[0]; | |
77 argc--, argv++; | |
78 | |
79 for (; argc > 0; argc--, argv++) | |
80 printf ("%s %s%c", prefix, argv[0], (argc > 1) ? ' ' : '\n'); | |
81 | |
82 exit (0); | |
83 } | |
52401 | 84 |
85 /* arch-tag: 08136d70-e5c0-49c7-bcd8-b4850233977a | |
86 (do not change this comment) */ |