Mercurial > emacs

comparison src/callint.c @ 49600:23a1cea22d13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 14:56:31 +0000
parents edd0dd275f1f
children 2f5cdffaaa04 d7ddb3e565de
comparison
equal deleted inserted replaced
49599:5ade352e8d1c 49600:23a1cea22d13
741 if (NILP (prefix_arg)) 741 if (NILP (prefix_arg))
742 { 742 {
743 args[i] = Qnil; 743 args[i] = Qnil;
744 varies[i] = -1; 744 varies[i] = -1;
745 } 745 }
746 else 746 else
747 { 747 {
748 args[i] 748 args[i]
749 = Fread_non_nil_coding_system (build_string (callint_message)); 749 = Fread_non_nil_coding_system (build_string (callint_message));
750 visargs[i] = last_minibuf_string; 750 visargs[i] = last_minibuf_string;
751 } 751 }
818 818
819 val = Ffuncall (count + 1, args); 819 val = Ffuncall (count + 1, args);
820 UNGCPRO; 820 UNGCPRO;
821 return unbind_to (speccount, val); 821 return unbind_to (speccount, val);
822 } 822 }
823 } 823 }
824 824
825 DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value, 825 DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value,
826 1, 1, 0, 826 1, 1, 0,
827 doc: /* Return numeric meaning of raw prefix argument RAW. 827 doc: /* Return numeric meaning of raw prefix argument RAW.
828 A raw prefix argument is what you get from `(interactive "P")'. 828 A raw prefix argument is what you get from `(interactive "P")'.
829 Its numeric meaning is what you would get from `(interactive "p")'. */) 829 Its numeric meaning is what you would get from `(interactive "p")'. */)
830 (raw) 830 (raw)
831 Lisp_Object raw; 831 Lisp_Object raw;
832 { 832 {
833 Lisp_Object val; 833 Lisp_Object val;
834 834
835 if (NILP (raw)) 835 if (NILP (raw))
836 XSETFASTINT (val, 1); 836 XSETFASTINT (val, 1);
837 else if (EQ (raw, Qminus)) 837 else if (EQ (raw, Qminus))
838 XSETINT (val, -1); 838 XSETINT (val, -1);
839 else if (CONSP (raw) && INTEGERP (XCAR (raw))) 839 else if (CONSP (raw) && INTEGERP (XCAR (raw)))