diff options
| author | John Wiegley | 2016-01-11 22:50:30 -0800 |
|---|---|---|
| committer | John Wiegley | 2016-01-11 22:50:30 -0800 |
| commit | fee9e3ff5e3181e5e477849b5db94e7e39a4e0c4 (patch) | |
| tree | b5a8934d6b587f3517d2b8214a6738374b07820d /src | |
| parent | 2d7f4d99f715a3b32bb2873be6e9b4e7e1dad1da (diff) | |
| parent | ce4a052415b70030ee591af3cb5bed0fb79ef3aa (diff) | |
| download | emacs-fee9e3ff5e3181e5e477849b5db94e7e39a4e0c4.tar.gz emacs-fee9e3ff5e3181e5e477849b5db94e7e39a4e0c4.zip | |
Merge from origin/emacs-25
ce4a052 Add defvar-local to lisp-imenu-generic-expression
a0121bc Revert commit b1e3d14845517bfa9fa5d6d3840f3ab3160306fd
76fe2d5 * lisp/emacs-lisp/autoload.el (autoload-find-destination): Doc fix.
1ae088f * lisp/emacs-lisp/autoload.el (autoload-find-destination):
b6b47af Properly encode/decode base64Binary data in SOAP
c632466 Obey coding-system-for-write when writing stdout/stderr in batch
2f32cb5 * doc/misc/efaq.texi (Packages that do not come with Emacs):
Update the URI of MELPA and marmalade-repo.
Reported by CHENG Goa <chenggao@royau.me> in
https://lists.gnu.org/archive/html/emacs-devel/2016-01/msg00390.html.
d2937aa * lisp/progmodes/opascal.el (opascal-mode-syntax-table):
5330c25 * lisp/progmodes/xscheme.el (xscheme-prompt-for-expression-exit):
7380990 Remove function wrongly on AWK Mode value of context
fontification hook.
d400753 * src/buffer.c: Stick with ASCII in doc string.
221240c Reword transient-mark-mode doc string
977d3ea Update doc string of 'selective-display'
229c3fa Make C++ buffers writeable when writing their initial text
properties.
f5c762c Additional changes for "make check-expensive"
1729cf3 ; * admin/MAINTAINERS: Remove myself.
33219d3 Apply text properties for <, > in new after-change function
(C++ Java Modes).
Diffstat (limited to 'src')
| -rw-r--r-- | src/buffer.c | 11 | ||||
| -rw-r--r-- | src/print.c | 12 | ||||
| -rw-r--r-- | src/xdisp.c | 11 |
3 files changed, 28 insertions, 6 deletions
diff --git a/src/buffer.c b/src/buffer.c index 51c36de0c6b..3f9371652e7 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -5803,11 +5803,14 @@ you probably should set this to -2 in that buffer. */); | |||
| 5803 | DEFVAR_PER_BUFFER ("selective-display", &BVAR (current_buffer, selective_display), | 5803 | DEFVAR_PER_BUFFER ("selective-display", &BVAR (current_buffer, selective_display), |
| 5804 | Qnil, | 5804 | Qnil, |
| 5805 | doc: /* Non-nil enables selective display. | 5805 | doc: /* Non-nil enables selective display. |
| 5806 | |||
| 5806 | An integer N as value means display only lines | 5807 | An integer N as value means display only lines |
| 5807 | that start with less than N columns of space. | 5808 | that start with less than N columns of space. |
| 5809 | |||
| 5808 | A value of t means that the character ^M makes itself and | 5810 | A value of t means that the character ^M makes itself and |
| 5809 | all the rest of the line invisible; also, when saving the buffer | 5811 | all the rest of the line invisible; also, when saving the buffer |
| 5810 | in a file, save the ^M as a newline. */); | 5812 | in a file, save the ^M as a newline. This usage is obsolete; use |
| 5813 | overlays or text properties instead. */); | ||
| 5811 | 5814 | ||
| 5812 | DEFVAR_PER_BUFFER ("selective-display-ellipses", | 5815 | DEFVAR_PER_BUFFER ("selective-display-ellipses", |
| 5813 | &BVAR (current_buffer, selective_display_ellipses), | 5816 | &BVAR (current_buffer, selective_display_ellipses), |
| @@ -6201,11 +6204,11 @@ all windows or just the selected window. | |||
| 6201 | 6204 | ||
| 6202 | Lisp programs may give this variable certain special values: | 6205 | Lisp programs may give this variable certain special values: |
| 6203 | 6206 | ||
| 6204 | - A value of \\='lambda (literally) enables Transient Mark mode temporarily. | 6207 | - The symbol `lambda' enables Transient Mark mode temporarily. |
| 6205 | It is disabled again after any subsequent action that would | 6208 | The mode is disabled again after any subsequent action that would |
| 6206 | normally deactivate the mark (e.g. buffer modification). | 6209 | normally deactivate the mark (e.g. buffer modification). |
| 6207 | 6210 | ||
| 6208 | - A value of (only . OLDVAL) enables Transient Mark mode | 6211 | - The pair (only . OLDVAL) enables Transient Mark mode |
| 6209 | temporarily. After any subsequent point motion command that is | 6212 | temporarily. After any subsequent point motion command that is |
| 6210 | not shift-translated, or any other action that would normally | 6213 | not shift-translated, or any other action that would normally |
| 6211 | deactivate the mark (e.g. buffer modification), the value of | 6214 | deactivate the mark (e.g. buffer modification), the value of |
diff --git a/src/print.c b/src/print.c index 975675014d9..269d8f250e2 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -200,6 +200,13 @@ printchar_to_stream (unsigned int ch, FILE *stream) | |||
| 200 | { | 200 | { |
| 201 | Lisp_Object dv IF_LINT (= Qnil); | 201 | Lisp_Object dv IF_LINT (= Qnil); |
| 202 | ptrdiff_t i = 0, n = 1; | 202 | ptrdiff_t i = 0, n = 1; |
| 203 | Lisp_Object coding_system = Vlocale_coding_system; | ||
| 204 | bool encode_p = false; | ||
| 205 | |||
| 206 | if (!NILP (Vcoding_system_for_write)) | ||
| 207 | coding_system = Vcoding_system_for_write; | ||
| 208 | if (!NILP (coding_system)) | ||
| 209 | encode_p = true; | ||
| 203 | 210 | ||
| 204 | if (CHAR_VALID_P (ch) && DISP_TABLE_P (Vstandard_display_table)) | 211 | if (CHAR_VALID_P (ch) && DISP_TABLE_P (Vstandard_display_table)) |
| 205 | { | 212 | { |
| @@ -228,8 +235,11 @@ printchar_to_stream (unsigned int ch, FILE *stream) | |||
| 228 | unsigned char mbstr[MAX_MULTIBYTE_LENGTH]; | 235 | unsigned char mbstr[MAX_MULTIBYTE_LENGTH]; |
| 229 | int len = CHAR_STRING (ch, mbstr); | 236 | int len = CHAR_STRING (ch, mbstr); |
| 230 | Lisp_Object encoded_ch = | 237 | Lisp_Object encoded_ch = |
| 231 | ENCODE_SYSTEM (make_multibyte_string ((char *) mbstr, 1, len)); | 238 | make_multibyte_string ((char *) mbstr, 1, len); |
| 232 | 239 | ||
| 240 | if (encode_p) | ||
| 241 | encoded_ch = code_convert_string_norecord (encoded_ch, | ||
| 242 | coding_system, true); | ||
| 233 | fwrite (SSDATA (encoded_ch), 1, SBYTES (encoded_ch), stream); | 243 | fwrite (SSDATA (encoded_ch), 1, SBYTES (encoded_ch), stream); |
| 234 | #ifdef WINDOWSNT | 244 | #ifdef WINDOWSNT |
| 235 | if (print_output_debug_flag && stream == stderr) | 245 | if (print_output_debug_flag && stream == stderr) |
diff --git a/src/xdisp.c b/src/xdisp.c index b18bfd0d49d..ee748bd8680 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -10206,7 +10206,16 @@ message_to_stderr (Lisp_Object m) | |||
| 10206 | } | 10206 | } |
| 10207 | if (STRINGP (m)) | 10207 | if (STRINGP (m)) |
| 10208 | { | 10208 | { |
| 10209 | Lisp_Object s = ENCODE_SYSTEM (m); | 10209 | Lisp_Object coding_system = Vlocale_coding_system; |
| 10210 | Lisp_Object s; | ||
| 10211 | |||
| 10212 | if (!NILP (Vcoding_system_for_write)) | ||
| 10213 | coding_system = Vcoding_system_for_write; | ||
| 10214 | if (!NILP (coding_system)) | ||
| 10215 | s = code_convert_string_norecord (m, coding_system, true); | ||
| 10216 | else | ||
| 10217 | s = m; | ||
| 10218 | |||
| 10210 | fwrite (SDATA (s), SBYTES (s), 1, stderr); | 10219 | fwrite (SDATA (s), SBYTES (s), 1, stderr); |
| 10211 | } | 10220 | } |
| 10212 | if (!cursor_in_echo_area) | 10221 | if (!cursor_in_echo_area) |