comparison src/textprop.c @ 29277:6f7f86b93247

(Qkeymap): New variable. (syms_of_textprop): Intern it.
author Dave Love <fx@gnu.org>
date Mon, 29 May 2000 11:37:57 +0000
parents ea588757e607
children 1b4cce65b60f
comparison
equal deleted inserted replaced
29276:03ac8f012b94 29277:6f7f86b93247
52 Lisp_Object Qmouse_entered; 52 Lisp_Object Qmouse_entered;
53 Lisp_Object Qpoint_left; 53 Lisp_Object Qpoint_left;
54 Lisp_Object Qpoint_entered; 54 Lisp_Object Qpoint_entered;
55 Lisp_Object Qcategory; 55 Lisp_Object Qcategory;
56 Lisp_Object Qlocal_map; 56 Lisp_Object Qlocal_map;
57 Lisp_Object Qkeymap;
57 58
58 /* Visual properties text (including strings) may have. */ 59 /* Visual properties text (including strings) may have. */
59 Lisp_Object Qforeground, Qbackground, Qfont, Qunderline, Qstipple; 60 Lisp_Object Qforeground, Qbackground, Qfont, Qunderline, Qstipple;
60 Lisp_Object Qinvisible, Qread_only, Qintangible, Qmouse_face; 61 Lisp_Object Qinvisible, Qread_only, Qintangible, Qmouse_face;
61 62
697 } 698 }
698 } 699 }
699 else 700 else
700 { 701 {
701 Lisp_Object initial_value, value; 702 Lisp_Object initial_value, value;
702 struct buffer *old_current_buffer = NULL;
703 int count = specpdl_ptr - specpdl; 703 int count = specpdl_ptr - specpdl;
704 704
705 if (!NILP (object)) 705 if (!NILP (object))
706 CHECK_BUFFER (object, 0); 706 CHECK_BUFFER (object, 0);
707 707
1868 Qintangible = intern ("intangible"); 1868 Qintangible = intern ("intangible");
1869 staticpro (&Qcategory); 1869 staticpro (&Qcategory);
1870 Qcategory = intern ("category"); 1870 Qcategory = intern ("category");
1871 staticpro (&Qlocal_map); 1871 staticpro (&Qlocal_map);
1872 Qlocal_map = intern ("local-map"); 1872 Qlocal_map = intern ("local-map");
1873 staticpro (&Qkeymap);
1874 Qkeymap = intern ("keymap");
1873 staticpro (&Qfront_sticky); 1875 staticpro (&Qfront_sticky);
1874 Qfront_sticky = intern ("front-sticky"); 1876 Qfront_sticky = intern ("front-sticky");
1875 staticpro (&Qrear_nonsticky); 1877 staticpro (&Qrear_nonsticky);
1876 Qrear_nonsticky = intern ("rear-nonsticky"); 1878 Qrear_nonsticky = intern ("rear-nonsticky");
1877 staticpro (&Qmouse_face); 1879 staticpro (&Qmouse_face);