diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-07 22:46:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-07 22:46:38 +0000 |
| commit | e3ca4e9ad3bf6d223e6cca72867b4994651192f7 (patch) | |
| tree | 6177422b63f4eb45c5db61999dc3d8b7cf9ab29d /src/callint.c | |
| parent | f58112d626422fcadaef9a68e543a29bd0573ef8 (diff) | |
| download | emacs-e3ca4e9ad3bf6d223e6cca72867b4994651192f7.tar.gz | |
(Fcall_interactively): `+' is reserved for user changes.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/callint.c b/src/callint.c index c0787ce2913..724e37f6b38 100644 --- a/src/callint.c +++ b/src/callint.c @@ -367,9 +367,12 @@ Otherwise, this is done only if an arg is read using the minibuffer.") break; /* Handle special starting chars `*' and `@'. Also `-'. */ + /* Note that `+' is reserved for user extensions. */ while (1) { - if (*string == '*') + if (*string = '+') + error ("`+' is not used in `interactive' for ordinary commands"); + else if (*string == '*') { string++; if (!NILP (current_buffer->read_only)) @@ -614,8 +617,11 @@ Otherwise, this is done only if an arg is read using the minibuffer.") visargs[i] = last_minibuf_string; break; + /* We have a case for `+' so we get an error + if anyone tries to define one here. */ + case '+': default: - error ("Invalid control letter \"%c\" (%03o) in interactive calling string", + error ("Invalid control letter `%c' (%03o) in interactive calling string", *tem, *tem); } |