diff options
| author | Fabián Ezequiel Gallina | 2015-01-28 01:03:44 -0300 |
|---|---|---|
| committer | Fabián Ezequiel Gallina | 2015-01-28 01:03:44 -0300 |
| commit | b0edd7c69d88f245981a05e2333b09e3171d4e6f (patch) | |
| tree | b097d4b6572f7300acdcb9461e72009b2d7bdebf | |
| parent | f4fcb10303e21d4a0526e070f7951b789c781b9f (diff) | |
| parent | b544ab561fcb575790c963a2eda51524fa366409 (diff) | |
| download | emacs-b0edd7c69d88f245981a05e2333b09e3171d4e6f.tar.gz emacs-b0edd7c69d88f245981a05e2333b09e3171d4e6f.zip | |
Merge from origin/emacs-24
b544ab5 Fix return value of vertical-motion at ZV (Bug#19553)
1f179ea Fix encoding of I/O in net-utils.el for MS-Windows. (Bug#19458)
70f298f Fix the description of -nl in --help text. (Bug#19542)
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/net/net-utils.el | 20 | ||||
| -rw-r--r-- | src/ChangeLog | 10 | ||||
| -rw-r--r-- | src/emacs.c | 2 | ||||
| -rw-r--r-- | src/indent.c | 7 |
5 files changed, 41 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 570e3e248cc..1f356a00217 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2015-01-09 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * net/net-utils.el (net-utils-run-program, net-utils-run-simple): | ||
| 4 | On MS-Windows, bind coding-system-for-read to the console output | ||
| 5 | codepage. (Bug#19458) | ||
| 6 | |||
| 1 | 2015-01-04 Dmitry Gutov <dgutov@yandex.ru> | 7 | 2015-01-04 Dmitry Gutov <dgutov@yandex.ru> |
| 2 | 8 | ||
| 3 | Unbreak `mouse-action' property in text buttons. | 9 | Unbreak `mouse-action' property in text buttons. |
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index 28aa43117da..ebcbc714ffb 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el | |||
| @@ -328,7 +328,15 @@ This variable is only used if the variable | |||
| 328 | 328 | ||
| 329 | (defun net-utils-run-program (name header program args) | 329 | (defun net-utils-run-program (name header program args) |
| 330 | "Run a network information program." | 330 | "Run a network information program." |
| 331 | (let ((buf (get-buffer-create (concat "*" name "*")))) | 331 | (let ((buf (get-buffer-create (concat "*" name "*"))) |
| 332 | (coding-system-for-read | ||
| 333 | ;; MS-Windows versions of network utilities output text | ||
| 334 | ;; encoded in the console (a.k.a. "OEM") codepage, which is | ||
| 335 | ;; different from the default system (a.k.a. "ANSI") | ||
| 336 | ;; codepage. | ||
| 337 | (if (eq system-type 'windows-nt) | ||
| 338 | (intern (format "cp%d" (w32-get-console-output-codepage))) | ||
| 339 | coding-system-for-read))) | ||
| 332 | (set-buffer buf) | 340 | (set-buffer buf) |
| 333 | (erase-buffer) | 341 | (erase-buffer) |
| 334 | (insert header "\n") | 342 | (insert header "\n") |
| @@ -352,7 +360,15 @@ This variable is only used if the variable | |||
| 352 | (when proc | 360 | (when proc |
| 353 | (set-process-filter proc nil) | 361 | (set-process-filter proc nil) |
| 354 | (delete-process proc))) | 362 | (delete-process proc))) |
| 355 | (let ((inhibit-read-only t)) | 363 | (let ((inhibit-read-only t) |
| 364 | (coding-system-for-read | ||
| 365 | ;; MS-Windows versions of network utilities output text | ||
| 366 | ;; encoded in the console (a.k.a. "OEM") codepage, which is | ||
| 367 | ;; different from the default system (a.k.a. "ANSI") | ||
| 368 | ;; codepage. | ||
| 369 | (if (eq system-type 'windows-nt) | ||
| 370 | (intern (format "cp%d" (w32-get-console-output-codepage))) | ||
| 371 | coding-system-for-read))) | ||
| 356 | (erase-buffer)) | 372 | (erase-buffer)) |
| 357 | (net-utils-mode) | 373 | (net-utils-mode) |
| 358 | (setq-local net-utils--revert-cmd | 374 | (setq-local net-utils--revert-cmd |
diff --git a/src/ChangeLog b/src/ChangeLog index 45946eb4a69..422933d22f9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,13 @@ | |||
| 1 | 2015-01-10 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * indent.c (Fvertical_motion): Return zero if we started from ZV | ||
| 4 | and there's an overlay after-string there. (Bug#19553) | ||
| 5 | |||
| 6 | 2015-01-09 Eli Zaretskii <eliz@gnu.org> | ||
| 7 | |||
| 8 | * emacs.c (usage_message): Fix the description of the -nl switch. | ||
| 9 | (Bug#19542) | ||
| 10 | |||
| 1 | 2015-01-05 Eli Zaretskii <eliz@gnu.org> | 11 | 2015-01-05 Eli Zaretskii <eliz@gnu.org> |
| 2 | 12 | ||
| 3 | * xdisp.c (move_it_to, try_cursor_movement): Don't use the window | 13 | * xdisp.c (move_it_to, try_cursor_movement): Don't use the window |
diff --git a/src/emacs.c b/src/emacs.c index 37202a14a99..fdd17d1e062 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -231,7 +231,7 @@ Initialization options:\n\ | |||
| 231 | "\ | 231 | "\ |
| 232 | --no-desktop do not load a saved desktop\n\ | 232 | --no-desktop do not load a saved desktop\n\ |
| 233 | --no-init-file, -q load neither ~/.emacs nor default.el\n\ | 233 | --no-init-file, -q load neither ~/.emacs nor default.el\n\ |
| 234 | --no-shared-memory, -nl do not use shared memory\n\ | 234 | --no-loadup, -nl do not load loadup.el into bare Emacs\n\ |
| 235 | --no-site-file do not load site-start.el\n\ | 235 | --no-site-file do not load site-start.el\n\ |
| 236 | --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\ | 236 | --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\ |
| 237 | --no-splash do not display a splash screen on startup\n\ | 237 | --no-splash do not display a splash screen on startup\n\ |
diff --git a/src/indent.c b/src/indent.c index 589aeb9c005..8660400e1ce 100644 --- a/src/indent.c +++ b/src/indent.c | |||
| @@ -2137,10 +2137,15 @@ whether or not it is currently displayed in some window. */) | |||
| 2137 | if (nlines > 1) | 2137 | if (nlines > 1) |
| 2138 | move_it_by_lines (&it, min (PTRDIFF_MAX, nlines - 1)); | 2138 | move_it_by_lines (&it, min (PTRDIFF_MAX, nlines - 1)); |
| 2139 | } | 2139 | } |
| 2140 | else | 2140 | else /* it_start = ZV */ |
| 2141 | { | 2141 | { |
| 2142 | it.vpos = 0; | 2142 | it.vpos = 0; |
| 2143 | move_it_by_lines (&it, min (PTRDIFF_MAX, nlines)); | 2143 | move_it_by_lines (&it, min (PTRDIFF_MAX, nlines)); |
| 2144 | /* We could have some display or overlay string at ZV, | ||
| 2145 | in which case it.vpos will be nonzero now, while | ||
| 2146 | actually we didn't move vertically at all. */ | ||
| 2147 | if (IT_CHARPOS (it) == CHARPOS (pt) && CHARPOS (pt) == it_start) | ||
| 2148 | it.vpos = 0; | ||
| 2144 | } | 2149 | } |
| 2145 | } | 2150 | } |
| 2146 | 2151 | ||