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

Diff of /emacs/src/keymap.c

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

revision 1.242 by rms, Thu Nov 1 19:55:42 2001 UTC revision 1.243 by pj, Fri Nov 2 20:29:41 2001 UTC
# Line 1958  around function keys and event symbols." Line 1958  around function keys and event symbols."
1958            /* Handle a generic character.  */            /* Handle a generic character.  */
1959            Lisp_Object name;            Lisp_Object name;
1960            name = CHARSET_TABLE_INFO (charset, CHARSET_LONG_NAME_IDX);            name = CHARSET_TABLE_INFO (charset, CHARSET_LONG_NAME_IDX);
1961            CHECK_STRING (name, 0);            CHECK_STRING (name);
1962            return concat2 (build_string ("Character set "), name);            return concat2 (build_string ("Character set "), name);
1963          }          }
1964        else        else
# Line 2037  Control characters turn into \"^char\", Line 2037  Control characters turn into \"^char\",
2037    unsigned char str[6];    unsigned char str[6];
2038    int c;    int c;
2039    
2040    CHECK_NUMBER (character, 0);    CHECK_NUMBER (character);
2041    
2042    c = XINT (character);    c = XINT (character);
2043    if (!SINGLE_BYTE_CHAR_P (c))    if (!SINGLE_BYTE_CHAR_P (c))
# Line 2941  This is text showing the elements of vec Line 2941  This is text showing the elements of vec
2941    int count = specpdl_ptr - specpdl;    int count = specpdl_ptr - specpdl;
2942    
2943    specbind (Qstandard_output, Fcurrent_buffer ());    specbind (Qstandard_output, Fcurrent_buffer ());
2944    CHECK_VECTOR_OR_CHAR_TABLE (vector, 0);    CHECK_VECTOR_OR_CHAR_TABLE (vector);
2945    describe_vector (vector, Qnil, describe_vector_princ, 0,    describe_vector (vector, Qnil, describe_vector_princ, 0,
2946                     Qnil, Qnil, (int *)0, 0);                     Qnil, Qnil, (int *)0, 0);
2947    
# Line 3306  Return list of symbols found.") Line 3306  Return list of symbols found.")
3306       Lisp_Object regexp, predicate;       Lisp_Object regexp, predicate;
3307  {  {
3308    struct gcpro gcpro1, gcpro2;    struct gcpro gcpro1, gcpro2;
3309    CHECK_STRING (regexp, 0);    CHECK_STRING (regexp);
3310    apropos_predicate = predicate;    apropos_predicate = predicate;
3311    GCPRO2 (apropos_predicate, apropos_accumulate);    GCPRO2 (apropos_predicate, apropos_accumulate);
3312    apropos_accumulate = Qnil;    apropos_accumulate = Qnil;

Legend:
Removed from v.1.242  
changed lines
  Added in v.1.243

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