cgit.sxemacs.org Git - sxemacs/blob - src/callint.c

   1 /* Call a Lisp function interactively.
   2    Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc.
   3    Copyright (C) 1995, 1996 Ben Wing.
   4
   5 This file is part of SXEmacs
   6
   7 SXEmacs is free software: you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation, either version 3 of the License, or
  10 (at your option) any later version.
  11
  12 SXEmacs is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  19
  20
  21 /* Synched up with: FSF 19.30, Mule 2.0. */
  22
  23 /* Authorship:
  24
  25    FSF: long ago.
  26    Mly or JWZ: various changes.
  27  */
  28
  29 #include <config.h>
  30 #include "lisp.h"
  31
  32 #include "buffer.h"
  33 #include "bytecode.h"
  34 #include "commands.h"
  35 #define INCLUDE_EVENTS_H_PRIVATE_SPHERE
  36 #include "events/events.h"
  37 #include "ui/insdel.h"
  38 #include "ui/window.h"
  39
  40 extern Charcount num_input_chars;
  41
  42 Lisp_Object Vcurrent_prefix_arg;
  43 Lisp_Object Qcall_interactively;
  44 Lisp_Object Vcommand_history;
  45
  46 Lisp_Object Vcommand_debug_status, Qcommand_debug_status;
  47 Lisp_Object Qenable_recursive_minibuffers;
  48
  49 #if 0                           /* FSFmacs */
  50 /* Non-nil means treat the mark as active
  51    even if mark_active is 0.  */
  52 Lisp_Object Vmark_even_if_inactive;
  53 #endif
  54
  55 #if 0                           /* ill-conceived */
  56 /* FSF calls Qmouse_leave_buffer_hook at all sorts of random places,
  57    including a bunch of places in their mouse.el.  If this is
  58    implemented, it has to be done cleanly. */
  59 Lisp_Object Vmouse_leave_buffer_hook, Qmouse_leave_buffer_hook;
  60 #endif
  61
  62 Lisp_Object QletX, Qsave_excursion;
  63
  64 Lisp_Object Qread_from_minibuffer;
  65 Lisp_Object Qread_file_name;
  66 Lisp_Object Qread_directory_name;
  67 Lisp_Object Qcompleting_read;
  68 Lisp_Object Qread_buffer;
  69 Lisp_Object Qread_function;
  70 Lisp_Object Qread_variable;
  71 Lisp_Object Qread_expression;
  72 Lisp_Object Qread_command;
  73 Lisp_Object Qread_number;
  74 Lisp_Object Qread_string;
  75 Lisp_Object Qevents_to_keys;
  76
  77 #if defined(MULE) || defined(FILE_CODING)
  78 Lisp_Object Qread_coding_system;
  79 Lisp_Object Qread_non_nil_coding_system;
  80 #endif
  81
  82 /* ARGSUSED */
  83 DEFUN("interactive", Finteractive, 0, UNEVALLED, 0,     /*
  84 Specify a way of parsing arguments for interactive use of a function.
  85 For example, write
  86 (defun foo (arg) "Doc string" (interactive "p") ...use arg...)
  87 to make ARG be the prefix argument when `foo' is called as a command.
  88 The "call" to `interactive' is actually a declaration rather than a function;
  89 it tells `call-interactively' how to read arguments
  90 to pass to the function.
  91 When actually called, `interactive' just returns nil.
  92
  93 The argument of `interactive' is usually a string containing a code letter
  94 followed by a prompt.  (Some code letters do not use I/O to get