Mercurial > hg > xemacs-beta
comparison src/faces.c @ 4532:16906fefc8df bytecomp-coding-system-2008-10-29
Return a list copy in #'built-in-face-specifiers, pre-empting modification.
2008-12-21 Aidan Kehoe <kehoea@parhasard.net>
* faces.c (Fbuilt_in_face_specifiers):
Don't simply warn the user not to modify
Vbuilt_in_face_specifiers, enforce this by returning a copy of the
list.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 21 Dec 2008 17:23:06 +0000 |
parents | 65c3847d432c |
children | f32c7f843961 |
comparison
equal
deleted
inserted
replaced
4531:b58af9a9765d | 4532:16906fefc8df |
---|---|
701 return XFACE (Fget_face (face))->name; | 701 return XFACE (Fget_face (face))->name; |
702 } | 702 } |
703 | 703 |
704 DEFUN ("built-in-face-specifiers", Fbuilt_in_face_specifiers, 0, 0, 0, /* | 704 DEFUN ("built-in-face-specifiers", Fbuilt_in_face_specifiers, 0, 0, 0, /* |
705 Return a list of all built-in face specifier properties. | 705 Return a list of all built-in face specifier properties. |
706 Don't modify this list! | |
707 */ | 706 */ |
708 ()) | 707 ()) |
709 { | 708 { |
710 return Vbuilt_in_face_specifiers; | 709 return Fcopy_list(Vbuilt_in_face_specifiers); |
711 } | 710 } |
712 | 711 |
713 /* These values are retrieved so often that we make a special | 712 /* These values are retrieved so often that we make a special |
714 function. | 713 function. |
715 */ | 714 */ |