diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs-module.c | 6 |
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. */ |
| 910 | static emacs_value | 910 | static emacs_value |
| 911 | lisp_to_value_bits (Lisp_Object o) | 911 | lisp_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 | ||