aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/emacs-module.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c
index 9967fc49afe..620df930a44 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -906,7 +906,7 @@ value_to_lisp (emacs_value v)
906 906
907/* Attempt to convert O to an emacs_value. Do not do any checking or 907/* Attempt to convert O to an emacs_value. Do not do any checking or
908 or allocate any storage; the caller should prevent or detect 908 or allocate any storage; the caller should prevent or detect
909 any resulting bitpattern that is not a valid emacs_value. */ 909 any resulting bit pattern that is not a valid emacs_value. */
910static emacs_value 910static emacs_value
911lisp_to_value_bits (Lisp_Object o) 911lisp_to_value_bits (Lisp_Object o)
912{ 912{
@@ -932,7 +932,7 @@ lisp_to_value (Lisp_Object o)
932 932
933 if (! EQ (o, value_to_lisp_bits (v))) 933 if (! EQ (o, value_to_lisp_bits (v)))
934 { 934 {
935 /* Package the uncompressible object pointer inside a pair 935 /* Package the incompressible object pointer inside a pair
936 that is compressible. */ 936 that is compressible. */
937 Lisp_Object pair = Fcons (o, ltv_mark); 937 Lisp_Object pair = Fcons (o, ltv_mark);
938 938
@@ -944,7 +944,7 @@ lisp_to_value (Lisp_Object o)
944 pair = Fcons (o, pair); 944 pair = Fcons (o, pair);
945 945
946 /* Plant the mark. The garbage collector will eventually 946 /* Plant the mark. The garbage collector will eventually
947 reclaim any just-allocated uncompressible pairs. */ 947 reclaim any just-allocated incompressible pairs. */
948 XSETCDR (pair, ltv_mark); 948 XSETCDR (pair, ltv_mark);
949 } 949 }
950 950