Mercurial > emacs
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); |