[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 34e2adc6997 5/5: Merge from savannah/emacs-30
From: |
Po Lu |
Subject: |
master 34e2adc6997 5/5: Merge from savannah/emacs-30 |
Date: |
Mon, 24 Jun 2024 23:38:37 -0400 (EDT) |
branch: master
commit 34e2adc6997a42d87156972fb2dfee311e996d2c
Merge: 279974c14eb 1b4c5627211
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Merge from savannah/emacs-30
1b4c5627211 Fix latent side-effects of respecting field boundaries in...
e4046f33ab8 ; * lisp/simple.el (undo-auto--boundaries): Doc fix (bug#...
008eeb21fdb ; * lisp/language/cyrillic.el: Delete obsolete commentary...
680155d3f03 Add missing builtin package declarations
---
lisp/editorconfig-conf-mode.el | 1 +
lisp/editorconfig-core-handle.el | 1 +
lisp/editorconfig-core.el | 1 +
lisp/editorconfig-fnmatch.el | 1 +
lisp/editorconfig-tools.el | 1 +
lisp/language/cyrillic.el | 13 +------------
lisp/simple.el | 2 +-
src/textconv.c | 25 ++++++++++++++++---------
8 files changed, 23 insertions(+), 22 deletions(-)
diff --git a/lisp/editorconfig-conf-mode.el b/lisp/editorconfig-conf-mode.el
index 3102c3d6581..6afbb42865e 100644
--- a/lisp/editorconfig-conf-mode.el
+++ b/lisp/editorconfig-conf-mode.el
@@ -3,6 +3,7 @@
;; Copyright (C) 2011-2024 Free Software Foundation, Inc.
;; Author: EditorConfig Team <editorconfig@googlegroups.com>
+;; Package: editorconfig
;; See
;; https://github.com/editorconfig/editorconfig-emacs/graphs/contributors or
diff --git a/lisp/editorconfig-core-handle.el b/lisp/editorconfig-core-handle.el
index b8570ac5c6a..96d0723d9e0 100644
--- a/lisp/editorconfig-core-handle.el
+++ b/lisp/editorconfig-core-handle.el
@@ -3,6 +3,7 @@
;; Copyright (C) 2011-2024 Free Software Foundation, Inc.
;; Author: EditorConfig Team <editorconfig@googlegroups.com>
+;; Package: editorconfig
;; See
;; https://github.com/editorconfig/editorconfig-emacs/graphs/contributors or
diff --git a/lisp/editorconfig-core.el b/lisp/editorconfig-core.el
index 8183ff6298c..3d7ea88917c 100644
--- a/lisp/editorconfig-core.el
+++ b/lisp/editorconfig-core.el
@@ -3,6 +3,7 @@
;; Copyright (C) 2011-2024 Free Software Foundation, Inc.
;; Author: EditorConfig Team <editorconfig@googlegroups.com>
+;; Package: editorconfig
;; See
;; https://github.com/editorconfig/editorconfig-emacs/graphs/contributors or
diff --git a/lisp/editorconfig-fnmatch.el b/lisp/editorconfig-fnmatch.el
index 397e424a6f7..8d6e9bb9071 100644
--- a/lisp/editorconfig-fnmatch.el
+++ b/lisp/editorconfig-fnmatch.el
@@ -3,6 +3,7 @@
;; Copyright (C) 2011-2024 Free Software Foundation, Inc.
;; Author: EditorConfig Team <editorconfig@googlegroups.com>
+;; Package: editorconfig
;; See
;; https://github.com/editorconfig/editorconfig-emacs/graphs/contributors or
diff --git a/lisp/editorconfig-tools.el b/lisp/editorconfig-tools.el
index 512dd67f56f..b9bd3798647 100644
--- a/lisp/editorconfig-tools.el
+++ b/lisp/editorconfig-tools.el
@@ -3,6 +3,7 @@
;; Copyright (C) 2011-2024 Free Software Foundation, Inc.
;; Author: EditorConfig Team <editorconfig@googlegroups.com>
+;; Package: editorconfig
;; See
;; https://github.com/editorconfig/editorconfig-emacs/graphs/contributors or
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 87a67915878..f5eef11cfde 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -33,23 +33,12 @@
;; are converted to Unicode internally. See
;; <URL:http://www.ecma.ch/ecma1/STAND/ECMA-113.HTM>. For more info
;; on Cyrillic charsets, see
-;; <URL:https://czyborra.com/charsets/cyrillic.html>. The KOI and
-;; Alternativnyj coding systems should live in code-pages.el, but
-;; they've always been preloaded and the coding system autoload
-;; mechanism didn't get accepted, so they have to stay here and
-;; duplicate code-pages stuff.
+;; <URL:https://czyborra.com/charsets/cyrillic.html>.
;; Note that 8859-5 maps directly onto the Unicode Cyrillic block,
;; apart from codepoints 160 (NBSP, c.f. U+0400), 173 (soft hyphen,
;; c.f. U+04OD) and 253 (section sign, c.f U+045D). The KOI-8 and
;; Alternativnyj coding systems encode both 8859-5 and Unicode.
-;; ucs-tables.el provides unification for cyrillic-iso-8bit.
-
-;; Customizing `utf-fragment-on-decoding' allows decoding characters
-;; from KOI and Alternativnyj into 8859-5 where that's possible.
-;; cyrillic-iso8859-5 characters take half as much space in the buffer
-;; as the mule-unicode-0100-24ff equivalents, though that's probably
-;; not normally a big deal.
;;; Code:
diff --git a/lisp/simple.el b/lisp/simple.el
index b48f46fc711..c798ee010b1 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4061,7 +4061,7 @@ REASON describes the reason that the boundary is being
added; see
(defun undo-auto--boundaries (cause)
"Check recently changed buffers and add a boundary if necessary.
REASON describes the reason that the boundary is being added; see
-`undo-last-boundary' for more information."
+`undo-auto--last-boundary-cause' for more information."
;; (Bug #23785) All commands should ensure that there is an undo
;; boundary whether they have changed the current buffer or not.
(when (eq cause 'command)
diff --git a/src/textconv.c b/src/textconv.c
index 0e43bd9d458..e3f928cd789 100644
--- a/src/textconv.c
+++ b/src/textconv.c
@@ -153,6 +153,15 @@ select_window (Lisp_Object window, Lisp_Object norecord)
Fselect_window (window, norecord);
}
+/* Restore the selected window WINDOW. */
+
+static void
+restore_selected_window (Lisp_Object window)
+{
+ /* FIXME: not sure what to do if WINDOW has been deleted. */
+ select_window (window, Qt);
+}
+
/* Perform the text conversion operation specified in QUERY and return
the results.
@@ -188,6 +197,7 @@ textconv_query (struct frame *f, struct
textconv_callback_struct *query,
selected window. */
count = SPECPDL_INDEX ();
record_unwind_protect_excursion ();
+ record_unwind_protect (restore_selected_window, selected_window);
/* Inhibit quitting. */
specbind (Qinhibit_quit, Qt);
@@ -586,15 +596,6 @@ detect_conversion_events (void)
return false;
}
-/* Restore the selected window WINDOW. */
-
-static void
-restore_selected_window (Lisp_Object window)
-{
- /* FIXME: not sure what to do if WINDOW has been deleted. */
- select_window (window, Qt);
-}
-
/* Commit the given text in the composing region. If there is no
composing region, then insert the text after frame F's selected
window's last point instead, unless the mark is active. Finally,
@@ -1138,6 +1139,10 @@ locate_and_save_position_in_field (struct frame *f,
struct window *w,
/* Set the current buffer to W's. */
count = SPECPDL_INDEX ();
+
+ /* The current buffer must be saved, not merely the selected
+ window. */
+ record_unwind_protect_excursion ();
record_unwind_protect (restore_selected_window, selected_window);
XSETWINDOW (window, w);
select_window (window, Qt);
@@ -2097,6 +2102,7 @@ get_extracted_text (struct frame *f, ptrdiff_t n,
selected window. */
count = SPECPDL_INDEX ();
record_unwind_protect_excursion ();
+ record_unwind_protect (restore_selected_window, selected_window);
/* Inhibit quitting. */
specbind (Qinhibit_quit, Qt);
@@ -2219,6 +2225,7 @@ get_surrounding_text (struct frame *f, ptrdiff_t left,
selected window. */
count = SPECPDL_INDEX ();
record_unwind_protect_excursion ();
+ record_unwind_protect (restore_selected_window, selected_window);
/* Inhibit quitting. */
specbind (Qinhibit_quit, Qt);