Mercurial > emacs

changeset 7912:f87185e63bbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively): Ignore `-' in string. (Fcall_interactively): Don't call minibuffer-window-active-p; determine directly whether a minibuf window is active.
author Richard M. Stallman <rms@gnu.org>
date Wed, 15 Jun 1994 18:17:55 +0000
parents 185c1f12db67
children a9e0390bbc56
files src/callint.c
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Wed Jun 15 18:13:52 1994 +0000
+++ b/src/callint.c	Wed Jun 15 18:17:55 1994 +0000
@@ -311,7 +311,7 @@
 	(XVECTOR (this_command_keys)->contents[next_event]))
       break;
   
-  /* Handle special starting chars `*' and `@'.  */
+  /* Handle special starting chars `*' and `@'.  Also `-'.  */
   while (1)
     {
       if (*string == '*')
@@ -320,6 +320,9 @@
 	  if (!NILP (current_buffer->read_only))
 	    Fbarf_if_buffer_read_only ();
 	}
+      /* Ignore this for semi-compatibility with Lucid.  */
+      else if (*string == '-')
+	string++;
       else if (*string == '@')
 	{
 	  Lisp_Object event;
@@ -331,8 +334,7 @@
 	      && XTYPE (event = XCONS (event)->car) == Lisp_Window)
 	    {
 	      if (MINI_WINDOW_P (XWINDOW (event))
-		  && NILP (call1 (intern ("minibuffer-window-active-p"),
-				  event)))
+		  && ! (minibuf_level > 0 && EQ (event, minibuf_window)))
 		error ("Attempt to select inactive minibuffer window");
 	      Fselect_window (event);
 	    }