Mercurial > hg > xemacs-beta
annotate src/widget.c @ 5198:bc3ede8f29a8
fix spacing in some files
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-04-09 Ben Wing <ben@xemacs.org>
* fileio.c (check_writable):
* fileio.c (Fdo_auto_save):
* redisplay-xlike-inc.c (separate_textual_runs_nomule):
* redisplay-xlike-inc.c (separate_textual_runs_xft_nomule):
* redisplay-xlike-inc.c (separate_textual_runs_xft_mule):
* redisplay-xlike-inc.c (separate_textual_runs_mule):
* redisplay-xlike-inc.c (XLIKE_output_string):
* redisplay-xlike-inc.c (XLIKE_output_vertical_divider):
* redisplay.c (create_text_block):
* redisplay.c (regenerate_window):
* redisplay.c (redisplay_window):
* redisplay.c (redisplay_device):
* redisplay.c (window_line_number):
* redisplay.c (point_would_be_visible):
* redisplay.c (compute_display_line_dynarr_usage):
* specifier.c (prune_specifiers):
* specifier.c (finalize_specifier):
* specifier.c (make_magic_specifier):
* specifier.c (charset_matches_specifier_tag_set_p):
* specifier.c (Fdefine_specifier_tag):
* specifier.c (setup_device_initial_specifier_tags):
* specifier.c (bodily_specifier):
* specifier.c (add_spec_to_ghost_specifier):
* specifier.c (remove_ghost_specifier):
* specifier.c (set_specifier_fallback):
* specifier.c (specifier_instance_from_inst_list):
* specifier.c (set_specifier_caching):
Fix coding style to correspond to GNU standard.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Fri, 09 Apr 2010 23:38:02 -0500 |
parents | 80cd90837ac5 |
children | 308d34e9f07d |
rev | line source |
---|---|
428 | 1 /* Primitives for work of the "widget" library. |
2 Copyright (C) 1997 Free Software Foundation, Inc. | |
3 | |
4 This file is part of XEmacs. | |
5 | |
6 XEmacs is free software; you can redistribute it and/or modify it | |
7 under the terms of the GNU General Public License as published by the | |
8 Free Software Foundation; either version 2, or (at your option) any | |
9 later version. | |
10 | |
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
14 for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with XEmacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
19 Boston, MA 02111-1307, USA. */ | |
20 | |
21 /* Synched up with: Not in FSF. */ | |
22 | |
23 /* In an ideal world, this file would not have been necessary. | |
24 However, elisp function calls being as slow as they are, it turns | |
25 out that some functions in the widget library (wid-edit.el) are the | |
26 bottleneck of Widget operation. Here is their translation to C, | |
27 for the sole reason of efficiency. */ | |
28 | |
29 #include <config.h> | |
30 #include "lisp.h" | |
31 #include "buffer.h" | |
32 | |
33 | |
34 Lisp_Object Qwidget_type; | |
35 | |
36 | |
37 DEFUN ("widget-plist-member", Fwidget_plist_member, 2, 2, 0, /* | |
38 Like `plist-get', but returns the tail of PLIST whose car is PROP. | |
39 */ | |
40 (plist, prop)) | |
41 { | |
42 while (!NILP (plist) && !EQ (Fcar (plist), prop)) | |
43 { | |
44 /* Check for QUIT, so a circular plist doesn't lock up the | |
45 editor. */ | |
46 QUIT; | |
47 plist = Fcdr (Fcdr (plist)); | |
48 } | |
49 return plist; | |
50 } | |
51 | |
52 DEFUN ("widget-put", Fwidget_put, 3, 3, 0, /* | |
53 In WIDGET set PROPERTY to VALUE. | |
54 The value can later be retrieved with `widget-get'. | |
55 */ | |
56 (widget, property, value)) | |
57 { | |
58 CHECK_CONS (widget); | |
59 XCDR (widget) = Fplist_put (XCDR (widget), property, value); | |
60 return widget; | |
61 } | |
62 | |
63 DEFUN ("widget-get", Fwidget_get, 2, 2, 0, /* | |
64 In WIDGET, get the value of PROPERTY. | |
65 The value could either be specified when the widget was created, or | |
66 later with `widget-put'. | |
67 */ | |
68 (widget, property)) | |
69 { | |
70 Lisp_Object value = Qnil; | |
71 | |
72 while (1) | |
73 { | |
74 Lisp_Object tmp = Fwidget_plist_member (Fcdr (widget), property); | |
75 if (!NILP (tmp)) | |
76 { | |
77 value = Fcar (Fcdr (tmp)); | |
78 break; | |
79 } | |
80 tmp = Fcar (widget); | |
81 if (!NILP (tmp)) | |
82 { | |
83 widget = Fget (tmp, Qwidget_type, Qnil); | |
84 continue; | |
85 } | |
86 break; | |
87 } | |
88 return value; | |
89 } | |
90 | |
91 DEFUN ("widget-apply", Fwidget_apply, 2, MANY, 0, /* | |
92 Apply the value of WIDGET's PROPERTY to the widget itself. | |
93 ARGS are passed as extra arguments to the function. | |
4693
80cd90837ac5
Add argument information to remaining MANY or UNEVALLED C subrs.
Aidan Kehoe <kehoea@parhasard.net>
parents:
563
diff
changeset
|
94 |
80cd90837ac5
Add argument information to remaining MANY or UNEVALLED C subrs.
Aidan Kehoe <kehoea@parhasard.net>
parents:
563
diff
changeset
|
95 arguments: (WIDGET PROPERTY &rest ARGS) |
428 | 96 */ |
97 (int nargs, Lisp_Object *args)) | |
98 { | |
99 /* This function can GC */ | |
100 Lisp_Object newargs[3]; | |
101 struct gcpro gcpro1; | |
102 | |
103 newargs[0] = Fwidget_get (args[0], args[1]); | |
104 newargs[1] = args[0]; | |
105 newargs[2] = Flist (nargs - 2, args + 2); | |
434 | 106 GCPRO1 (newargs[2]); |
428 | 107 RETURN_UNGCPRO (Fapply (3, newargs)); |
108 } | |
109 | |
110 void | |
111 syms_of_widget (void) | |
112 { | |
563 | 113 DEFSYMBOL (Qwidget_type); |
428 | 114 |
115 DEFSUBR (Fwidget_plist_member); | |
116 DEFSUBR (Fwidget_put); | |
117 DEFSUBR (Fwidget_get); | |
118 DEFSUBR (Fwidget_apply); | |
119 } |