/[emacs]/emacs/src/callint.c
ViewVC logotype

Diff of /emacs/src/callint.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.121 by schwab, Mon Dec 2 23:30:54 2002 UTC revision 1.122 by lektu, Tue Feb 4 14:03:11 2003 UTC
# Line 743  supply if the command inquires which eve Line 743  supply if the command inquires which eve
743                args[i] = Qnil;                args[i] = Qnil;
744                varies[i] = -1;                varies[i] = -1;
745              }              }
746            else            else
747              {              {
748                args[i]                args[i]
749                  = Fread_non_nil_coding_system (build_string (callint_message));                  = Fread_non_nil_coding_system (build_string (callint_message));
# Line 820  supply if the command inquires which eve Line 820  supply if the command inquires which eve
820      UNGCPRO;      UNGCPRO;
821      return unbind_to (speccount, val);      return unbind_to (speccount, val);
822    }    }
823  }    }
824    
825  DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value,  DEFUN ("prefix-numeric-value", Fprefix_numeric_value, Sprefix_numeric_value,
826         1, 1, 0,         1, 1, 0,
# Line 831  Its numeric meaning is what you would ge Line 831  Its numeric meaning is what you would ge
831       Lisp_Object raw;       Lisp_Object raw;
832  {  {
833    Lisp_Object val;    Lisp_Object val;
834      
835    if (NILP (raw))    if (NILP (raw))
836      XSETFASTINT (val, 1);      XSETFASTINT (val, 1);
837    else if (EQ (raw, Qminus))    else if (EQ (raw, Qminus))

Legend:
Removed from v.1.121  
changed lines
  Added in v.1.122

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26