diff options
| author | Glenn Morris | 2014-11-03 16:49:37 -0500 |
|---|---|---|
| committer | Glenn Morris | 2014-11-03 16:49:37 -0500 |
| commit | 41e962982dfe424c69ed99f0bd26a6e4eb67107f (patch) | |
| tree | d7cda64bfecc7b9403459fda89b7f39a9fd8732f | |
| parent | 303fd9411f21d19604306ecdbd89941bf4923201 (diff) | |
| parent | bd673cc594764572cd49bd0f10a0432006368489 (diff) | |
| download | emacs-41e962982dfe424c69ed99f0bd26a6e4eb67107f.tar.gz emacs-41e962982dfe424c69ed99f0bd26a6e4eb67107f.zip | |
Merge from emacs-24; up to 2014-08-07T11:49:36Z!rrt@sc3d.org
| -rw-r--r-- | doc/emacs/ChangeLog | 4 | ||||
| -rw-r--r-- | doc/emacs/programs.texi | 2 | ||||
| -rw-r--r-- | etc/NEWS.24 | 5 | ||||
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/net/tramp-adb.el | 17 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 10 | ||||
| -rw-r--r-- | lisp/obsolete/crisp.el | 2 | ||||
| -rw-r--r-- | src/ChangeLog | 10 | ||||
| -rw-r--r-- | src/nsfns.m | 8 | ||||
| -rw-r--r-- | src/window.c | 4 | ||||
| -rw-r--r-- | src/xdisp.c | 14 |
11 files changed, 66 insertions, 19 deletions
diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog index adf61e833b3..9dc3af97788 100644 --- a/doc/emacs/ChangeLog +++ b/doc/emacs/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2014-11-03 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * programs.texi (Misc for Programs): Fix typo. | ||
| 4 | |||
| 1 | 2014-10-30 Eli Zaretskii <eliz@gnu.org> | 5 | 2014-10-30 Eli Zaretskii <eliz@gnu.org> |
| 2 | 6 | ||
| 3 | * frames.texi (Scroll Bars): Improve indexing of faces. | 7 | * frames.texi (Scroll Bars): Improve indexing of faces. |
diff --git a/doc/emacs/programs.texi b/doc/emacs/programs.texi index 4c80449c2a2..f2ca386b49e 100644 --- a/doc/emacs/programs.texi +++ b/doc/emacs/programs.texi | |||
| @@ -1453,7 +1453,7 @@ creates. | |||
| 1453 | @findex superword-mode | 1453 | @findex superword-mode |
| 1454 | Superword mode is a buffer-local minor mode that causes editing and | 1454 | Superword mode is a buffer-local minor mode that causes editing and |
| 1455 | motion commands to treat symbols (e.g., @samp{this_is_a_symbol}) as words. | 1455 | motion commands to treat symbols (e.g., @samp{this_is_a_symbol}) as words. |
| 1456 | When Subword mode is enabled, the minor mode indicator | 1456 | When Superword mode is enabled, the minor mode indicator |
| 1457 | @iftex | 1457 | @iftex |
| 1458 | @samp{@math{^2}} | 1458 | @samp{@math{^2}} |
| 1459 | @end iftex | 1459 | @end iftex |
diff --git a/etc/NEWS.24 b/etc/NEWS.24 index 8c039a55a2f..3d580ee36c4 100644 --- a/etc/NEWS.24 +++ b/etc/NEWS.24 | |||
| @@ -38,7 +38,10 @@ don't take "&rest args" any more. | |||
| 38 | *** cc-compat.el | 38 | *** cc-compat.el |
| 39 | 39 | ||
| 40 | --- | 40 | --- |
| 41 | *** crisp.el, tpu-edt.el, ws-mode.el | 41 | *** crisp.el - moved to elpa.gnu.org. |
| 42 | |||
| 43 | --- | ||
| 44 | *** tpu-edt.el, ws-mode.el | ||
| 42 | These emulations of old editors are believed to be no longer relevant | 45 | These emulations of old editors are believed to be no longer relevant |
| 43 | - contact emacs-devel@gnu.org if you disagree. | 46 | - contact emacs-devel@gnu.org if you disagree. |
| 44 | 47 | ||
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a94725c0b56..05c8ce4d83a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2014-11-03 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * net/tramp-sh.el (tramp-do-copy-or-rename-file-via-buffer): Use a | ||
| 4 | local copy of FILENAME, when it is remote. (Bug#18751) | ||
| 5 | |||
| 6 | * net/tramp-adb.el (tramp-adb-handle-process-file): Do not raise | ||
| 7 | an error when the command fails; the return code must indicate. | ||
| 8 | (tramp-adb-send-command-and-check): Fix docstring. | ||
| 9 | |||
| 1 | 2014-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org> | 10 | 2014-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 11 | ||
| 3 | * net/eww.el (eww-display-html): Clear `url-queue'. | 12 | * net/eww.el (eww-display-html): Clear `url-queue'. |
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el index 88e52fe0199..639f07b2f1d 100644 --- a/lisp/net/tramp-adb.el +++ b/lisp/net/tramp-adb.el | |||
| @@ -794,11 +794,13 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored." | |||
| 794 | ;; directory. | 794 | ;; directory. |
| 795 | (condition-case nil | 795 | (condition-case nil |
| 796 | (progn | 796 | (progn |
| 797 | (setq ret 0) | 797 | (setq ret |
| 798 | (tramp-adb-barf-unless-okay | 798 | (if (tramp-adb-send-command-and-check |
| 799 | v (format "(cd %s; %s)" | 799 | v |
| 800 | (tramp-shell-quote-argument localname) command) | 800 | (format "(cd %s; %s)" |
| 801 | "") | 801 | (tramp-shell-quote-argument localname) command)) |
| 802 | ;; Set return status accordingly. | ||
| 803 | 0 1)) | ||
| 802 | ;; We should add the output anyway. | 804 | ;; We should add the output anyway. |
| 803 | (when outbuf | 805 | (when outbuf |
| 804 | (with-current-buffer outbuf | 806 | (with-current-buffer outbuf |
| @@ -1031,8 +1033,9 @@ This happens for Android >= 4.0." | |||
| 1031 | (defun tramp-adb-send-command-and-check | 1033 | (defun tramp-adb-send-command-and-check |
| 1032 | (vec command) | 1034 | (vec command) |
| 1033 | "Run COMMAND and check its exit status. | 1035 | "Run COMMAND and check its exit status. |
| 1034 | Sends `echo $?' along with the COMMAND for checking the exit status. If | 1036 | Sends `echo $?' along with the COMMAND for checking the exit |
| 1035 | COMMAND is nil, just sends `echo $?'. Returns the exit status found." | 1037 | status. If COMMAND is nil, just sends `echo $?'. Returns nil if |
| 1038 | the exit status is not equal 0, and t otherwise." | ||
| 1036 | (tramp-adb-send-command | 1039 | (tramp-adb-send-command |
| 1037 | vec (if command | 1040 | vec (if command |
| 1038 | (format "%s; echo tramp_exit_status $?" command) | 1041 | (format "%s; echo tramp_exit_status $?" command) |
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index e120aedfc01..a72a79a7797 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -2061,11 +2061,15 @@ FILENAME is the source file, NEWNAME the target file. | |||
| 2061 | KEEP-DATE is non-nil if NEWNAME should have the same timestamp as FILENAME." | 2061 | KEEP-DATE is non-nil if NEWNAME should have the same timestamp as FILENAME." |
| 2062 | (with-temp-buffer | 2062 | (with-temp-buffer |
| 2063 | ;; We must disable multibyte, because binary data shall not be | 2063 | ;; We must disable multibyte, because binary data shall not be |
| 2064 | ;; converted. | 2064 | ;; converted. `insert-file-contents-literally' does not support |
| 2065 | ;; file name handlers for GNU Emacs; we must create a local copy | ||
| 2066 | ;; therefore. | ||
| 2065 | (set-buffer-multibyte nil) | 2067 | (set-buffer-multibyte nil) |
| 2066 | (let ((coding-system-for-read 'binary) | 2068 | (let ((coding-system-for-read 'binary) |
| 2067 | (jka-compr-inhibit t)) | 2069 | (jka-compr-inhibit t) |
| 2068 | (insert-file-contents-literally filename)) | 2070 | (tmpfile (file-local-copy filename))) |
| 2071 | (insert-file-contents-literally (or tmpfile filename)) | ||
| 2072 | (when tmpfile (delete-file tmpfile))) | ||
| 2069 | ;; We don't want the target file to be compressed, so we let-bind | 2073 | ;; We don't want the target file to be compressed, so we let-bind |
| 2070 | ;; `jka-compr-inhibit' to t. | 2074 | ;; `jka-compr-inhibit' to t. |
| 2071 | (let ((coding-system-for-write 'binary) | 2075 | (let ((coding-system-for-write 'binary) |
diff --git a/lisp/obsolete/crisp.el b/lisp/obsolete/crisp.el index 47cf898190b..b9c2fc63a52 100644 --- a/lisp/obsolete/crisp.el +++ b/lisp/obsolete/crisp.el | |||
| @@ -23,6 +23,8 @@ | |||
| 23 | 23 | ||
| 24 | ;;; Commentary: | 24 | ;;; Commentary: |
| 25 | 25 | ||
| 26 | ;; *Note: This package has now moved to elpa.gnu.org.* | ||
| 27 | |||
| 26 | ;; Keybindings and minor functions to duplicate the functionality and | 28 | ;; Keybindings and minor functions to duplicate the functionality and |
| 27 | ;; finger-feel of the CRiSP/Brief editor. This package is designed to | 29 | ;; finger-feel of the CRiSP/Brief editor. This package is designed to |
| 28 | ;; facilitate transitioning from Brief to (XE|E)macs with a minimum | 30 | ;; facilitate transitioning from Brief to (XE|E)macs with a minimum |
diff --git a/src/ChangeLog b/src/ChangeLog index 2f719681afb..6b62a60f7b0 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,13 @@ | |||
| 1 | 2014-11-03 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * xdisp.c (Fdump_glyph_matrix, Fdump_frame_glyph_matrix): Doc fix. | ||
| 4 | (Fdump_frame_glyph_matrix): Don't segfault if invoked on a GUI | ||
| 5 | frame; instead, print an error message. | ||
| 6 | |||
| 7 | 2014-11-03 Jan Djärv <jan.h.d@swipnet.se> | ||
| 8 | |||
| 9 | * nsfns.m (ns_set_doc_edited): Check for FRAME_NS (Bug#18925). | ||
| 10 | |||
| 1 | 2014-11-02 Jan Djärv <jan.h.d@swipnet.se> | 11 | 2014-11-02 Jan Djärv <jan.h.d@swipnet.se> |
| 2 | 12 | ||
| 3 | * nsimage.m (allocInitFromFile:): Initialize bmRep. | 13 | * nsimage.m (allocInitFromFile:): Initialize bmRep. |
diff --git a/src/nsfns.m b/src/nsfns.m index ce859e8333d..1537adbc56d 100644 --- a/src/nsfns.m +++ b/src/nsfns.m | |||
| @@ -639,8 +639,12 @@ ns_set_doc_edited (void) | |||
| 639 | { | 639 | { |
| 640 | BOOL edited = NO; | 640 | BOOL edited = NO; |
| 641 | struct frame *f = XFRAME (frame); | 641 | struct frame *f = XFRAME (frame); |
| 642 | struct window *w = XWINDOW (FRAME_SELECTED_WINDOW (f)); | 642 | struct window *w; |
| 643 | NSView *view = FRAME_NS_VIEW (f); | 643 | NSView *view; |
| 644 | |||
| 645 | if (! FRAME_NS_P (f)) continue; | ||
| 646 | w = XWINDOW (FRAME_SELECTED_WINDOW (f)); | ||
| 647 | view = FRAME_NS_VIEW (f); | ||
| 644 | if (!MINI_WINDOW_P (w)) | 648 | if (!MINI_WINDOW_P (w)) |
| 645 | edited = ! NILP (Fbuffer_modified_p (w->contents)) && | 649 | edited = ! NILP (Fbuffer_modified_p (w->contents)) && |
| 646 | ! NILP (Fbuffer_file_name (w->contents)); | 650 | ! NILP (Fbuffer_file_name (w->contents)); |
diff --git a/src/window.c b/src/window.c index 0b0f2140a58..2c9292d5b02 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -4930,8 +4930,8 @@ window_scroll_pixel_based (Lisp_Object window, int n, bool whole, int noerror) | |||
| 4930 | /* The function move_iterator_vertically may move over more than | 4930 | /* The function move_iterator_vertically may move over more than |
| 4931 | the specified y-distance. If it->w is small, e.g. a | 4931 | the specified y-distance. If it->w is small, e.g. a |
| 4932 | mini-buffer window, we may end up in front of the window's | 4932 | mini-buffer window, we may end up in front of the window's |
| 4933 | display area. This is the case when Start displaying at the | 4933 | display area. Start displaying at the start of the line |
| 4934 | start of the line containing PT in this case. */ | 4934 | containing PT in this case. */ |
| 4935 | if (it.current_y <= 0) | 4935 | if (it.current_y <= 0) |
| 4936 | { | 4936 | { |
| 4937 | init_iterator (&it, w, PT, PT_BYTE, NULL, DEFAULT_FACE_ID); | 4937 | init_iterator (&it, w, PT, PT_BYTE, NULL, DEFAULT_FACE_ID); |
diff --git a/src/xdisp.c b/src/xdisp.c index 228b6cb586d..2cdbade3062 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -18803,7 +18803,10 @@ DEFUN ("dump-glyph-matrix", Fdump_glyph_matrix, | |||
| 18803 | doc: /* Dump the current matrix of the selected window to stderr. | 18803 | doc: /* Dump the current matrix of the selected window to stderr. |
| 18804 | Shows contents of glyph row structures. With non-nil | 18804 | Shows contents of glyph row structures. With non-nil |
| 18805 | parameter GLYPHS, dump glyphs as well. If GLYPHS is 1 show | 18805 | parameter GLYPHS, dump glyphs as well. If GLYPHS is 1 show |
| 18806 | glyphs in short form, otherwise show glyphs in long form. */) | 18806 | glyphs in short form, otherwise show glyphs in long form. |
| 18807 | |||
| 18808 | Interactively, no argument means show glyphs in short form; | ||
| 18809 | with numeric argument, its value is passed as the GLYPHS flag. */) | ||
| 18807 | (Lisp_Object glyphs) | 18810 | (Lisp_Object glyphs) |
| 18808 | { | 18811 | { |
| 18809 | struct window *w = XWINDOW (selected_window); | 18812 | struct window *w = XWINDOW (selected_window); |
| @@ -18821,11 +18824,16 @@ glyphs in short form, otherwise show glyphs in long form. */) | |||
| 18821 | 18824 | ||
| 18822 | 18825 | ||
| 18823 | DEFUN ("dump-frame-glyph-matrix", Fdump_frame_glyph_matrix, | 18826 | DEFUN ("dump-frame-glyph-matrix", Fdump_frame_glyph_matrix, |
| 18824 | Sdump_frame_glyph_matrix, 0, 0, "", doc: /* */) | 18827 | Sdump_frame_glyph_matrix, 0, 0, "", doc: /* Dump the current glyph matrix of the selected frame to stderr. |
| 18828 | Only text-mode frames have frame glyph matrices. */) | ||
| 18825 | (void) | 18829 | (void) |
| 18826 | { | 18830 | { |
| 18827 | struct frame *f = XFRAME (selected_frame); | 18831 | struct frame *f = XFRAME (selected_frame); |
| 18828 | dump_glyph_matrix (f->current_matrix, 1); | 18832 | |
| 18833 | if (f->current_matrix) | ||
| 18834 | dump_glyph_matrix (f->current_matrix, 1); | ||
| 18835 | else | ||
| 18836 | fprintf (stderr, "*** This frame doesn't have a frame glyph matrix ***\n"); | ||
| 18829 | return Qnil; | 18837 | return Qnil; |
| 18830 | } | 18838 | } |
| 18831 | 18839 | ||