1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
$NetBSD: patch-ae,v 1.1 2003/11/05 22:31:43 dmcmahill Exp $
--- src/scwm_guile.c.orig 2002-03-27 23:07:03.000000000 -0500
+++ src/scwm_guile.c
@@ -45,12 +45,12 @@
extern char *prog_name;
XSCM_HOOK(error_hook, "error-hook", 5, (SCM a, SCM b, SCM c, SCM d, SCM e),
-"Called on all kinds of errors and exceptions.
-Whenever an error or other uncaught throw occurs on any callback,
-whether a hook, a mouse binding, a key binding, a menu entry, a file
-being processed, or anything else, error-hook will be invoked. Each
-procedure in the hook will be called with the throw arguments; these
-will generally include information about the nature of the error.");
+"Called on all kinds of errors and exceptions."
+"Whenever an error or other uncaught throw occurs on any callback,"
+"whether a hook, a mouse binding, a key binding, a menu entry, a file"
+"being processed, or anything else, error-hook will be invoked. Each"
+"procedure in the hook will be called with the throw arguments; these"
+"will generally include information about the nature of the error.");
struct scwm_body_apply_data {
SCM proc;
@@ -209,12 +209,12 @@ scwm_safe_call7 (SCM proc, SCM arg1, SCM
/* FIXDOC: We need a way to cross-reference concepts in docs. */
XSCM_CONCEPT("Hooks",
-"Hooks are used throughout gwave to provide a convenient mechanism for
-user callbacks on particular events. Fundamentally, a hook is just a
-variable that contains a list of procedures that are called in order
-when the relevant event occurs. However, several convenience macros
-are provided for manipulating hooks; see `add-hook!', `remove-hook!',
-`reset-hook!', and `run-hook'.");
+"Hooks are used throughout gwave to provide a convenient mechanism for"
+"user callbacks on particular events. Fundamentally, a hook is just a"
+"variable that contains a list of procedures that are called in order"
+"when the relevant event occurs. However, several convenience macros"
+"are provided for manipulating hooks; see `add-hook!', `remove-hook!',"
+"`reset-hook!', and `run-hook'.");
static SCM run_hook_proc;
@@ -395,11 +395,11 @@ scwm_handle_error (void *ARG_IGNORE(data
XSCM_DEFINE(safe_load, "safe-load", 1, 0, 0,
(SCM fname),
-"Load file FNAME while trapping and displaying errors.
-Each individual top-level-expression is evaluated separately and all
-errors are trapped and displayed. You should use this procedure if
-you need to make sure most of a file loads, even if it may contain
-errors.")
+"Load file FNAME while trapping and displaying errors."
+"Each individual top-level-expression is evaluated separately and all"
+"errors are trapped and displayed. You should use this procedure if"
+"you need to make sure most of a file loads, even if it may contain"
+"errors.")
#define FUNC_NAME s_safe_load
{
SCM_STACKITEM stack_item;
|
