Mercurial > emacs

changeset 11278:25b2219c415c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively): `+' is reserved for user changes.
author Richard M. Stallman <rms@gnu.org>
date Fri, 07 Apr 1995 22:46:38 +0000
parents d4547e4b0aab
children f9ec534fe44c
files src/callint.c
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Fri Apr 07 22:41:58 1995 +0000
+++ b/src/callint.c	Fri Apr 07 22:46:38 1995 +0000
@@ -367,9 +367,12 @@
       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 @@
 	  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);
 	}