diff options
| author | Erik Naggum <erik@naggum.no> | 1996-01-09 00:30:41 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-01-09 00:30:41 +0000 |
| commit | 3e98c5dbbda1c52aefc08ebea351ef9b41ad041b (patch) | |
| tree | 4d195a644bce9a3dd519c40d4492bdaf5ec5d216 | |
| parent | 6d1b415dca114c7eab91f6b45238b53644f0b317 (diff) | |
| download | emacs-3e98c5dbbda1c52aefc08ebea351ef9b41ad041b.tar.gz | |
(Fcall_interactively, Fprefix_numeric_value): Harmonize arguments with
documentation.
| -rw-r--r-- | src/callint.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/callint.c b/src/callint.c index a509dc4f328..c0699b44fb8 100644 --- a/src/callint.c +++ b/src/callint.c @@ -175,8 +175,8 @@ See `interactive'.\n\ Optional second arg RECORD-FLAG non-nil\n\ means unconditionally put this command in the command-history.\n\ Otherwise, this is done only if an arg is read using the minibuffer.") - (function, record, keys) - Lisp_Object function, record, keys; + (function, record_flag, keys) + Lisp_Object function, record_flag, keys; { Lisp_Object *args, *visargs; unsigned char **argstrings; @@ -291,7 +291,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") input = specs; /* Compute the arg values using the user's expression. */ specs = Feval (specs); - if (i != num_input_chars || !NILP (record)) + if (i != num_input_chars || !NILP (record_flag)) { /* We should record this command on the command history. */ Lisp_Object values, car; @@ -642,7 +642,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") args[0] = function; - if (arg_from_tty || !NILP (record)) + if (arg_from_tty || !NILP (record_flag)) { visargs[0] = function; for (i = 1; i < count + 1; i++) @@ -676,7 +676,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value, 1, 1, 0, - "Return numeric meaning of raw prefix argument ARG.\n\ + "Return numeric meaning of raw prefix argument RAW.\n\ A raw prefix argument is what you get from `(interactive \"P\")'.\n\ Its numeric meaning is what you would get from `(interactive \"p\")'.") (raw) |