diff options
| author | Eli Zaretskii | 2024-08-31 08:14:03 -0400 |
|---|---|---|
| committer | Eli Zaretskii | 2024-08-31 08:14:03 -0400 |
| commit | a18c29a7ebe508ef0baa5572003b01ea2ca36de5 (patch) | |
| tree | 1eafc8b1d37a37fb84aaaea93eadcee77965d830 /lisp | |
| parent | a9889b8eeceb4f1f7835be04f66d3c91c6f36621 (diff) | |
| parent | a0f740c88d88fdd64738518d030951cd336327c7 (diff) | |
| download | emacs-a18c29a7ebe508ef0baa5572003b01ea2ca36de5.tar.gz emacs-a18c29a7ebe508ef0baa5572003b01ea2ca36de5.zip | |
Merge from origin/emacs-30
a0f740c88d8 ; * lisp/progmodes/flymake.el: Fix "Maintainer" header
a9433858131 ; * etc/AUTHORS: Update.
762b85be27b ; Revert "; * admin/authors.el (authors-valid-file-names)...
e24d568b565 ; Revert "Revert "; * admin/authors.el (authors-ignored-f...
2d723a280b3 Revert "; * admin/authors.el (authors-ignored-files): Add...
2a5b129509f Revert "; * admin/authors.el (authors-ignored-files): Ign...
0db53f14a29 ; * admin/authors.el (authors-ignored-files): Ignore Unic...
6734b60c0c3 ; * admin/authors.el (authors-valid-file-names): Ignore U...
d809d53afc0 ; * admin/authors.el (authors-ignored-files): Add removed...
766f69bab12 ; * etc/NEWS: Announce VC-dir "Tracking" header. (bug#68183)
37a097d8663 ; * admin/authors.el (authors-aliases): Fix regexps.
0fb50e26316 ; * admin/MAINTAINERS: Spencer Baugh maintains flymake.el.
d05d8c336c8 xwidget: Fix xwidget-at misinterpreting non-xwidget text-...
13f69f254cf Fix rare segfaults due to freed fontsets
427fb319dab ; * lisp/simple.el (use-region-beginning, use-region-end)...
# Conflicts:
# admin/MAINTAINERS
# etc/NEWS
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/flymake.el | 2 | ||||
| -rw-r--r-- | lisp/simple.el | 8 | ||||
| -rw-r--r-- | lisp/xwidget.el | 2 |
3 files changed, 8 insertions, 4 deletions
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index e72f25fd0cd..9a6b62ca254 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el | |||
| @@ -3,7 +3,7 @@ | |||
| 3 | ;; Copyright (C) 2003-2024 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003-2024 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Pavel Kobyakov <pk_at_work@yahoo.com> | 5 | ;; Author: Pavel Kobyakov <pk_at_work@yahoo.com> |
| 6 | ;; Maintainer: João Távora <joaotavora@gmail.com> | 6 | ;; Maintainer: Spencer Baugh <sbaugh@janestreet.com> |
| 7 | ;; Version: 1.3.7 | 7 | ;; Version: 1.3.7 |
| 8 | ;; Keywords: c languages tools | 8 | ;; Keywords: c languages tools |
| 9 | ;; Package-Requires: ((emacs "26.1") (eldoc "1.14.0") (project "0.7.1")) | 9 | ;; Package-Requires: ((emacs "26.1") (eldoc "1.14.0") (project "0.7.1")) |
diff --git a/lisp/simple.el b/lisp/simple.el index 2453a129d0a..eedc5768fe2 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -7085,11 +7085,15 @@ point otherwise." | |||
| 7085 | :group 'editing-basics) | 7085 | :group 'editing-basics) |
| 7086 | 7086 | ||
| 7087 | (defun use-region-beginning () | 7087 | (defun use-region-beginning () |
| 7088 | "Return the start of the region if `use-region-p'." | 7088 | "Return the start of the region if `use-region-p' returns non-nil. |
| 7089 | This is a convenience function to use in `interactive' forms of | ||
| 7090 | commands that need to act on the region when it is active." | ||
| 7089 | (and (use-region-p) (region-beginning))) | 7091 | (and (use-region-p) (region-beginning))) |
| 7090 | 7092 | ||
| 7091 | (defun use-region-end () | 7093 | (defun use-region-end () |
| 7092 | "Return the end of the region if `use-region-p'." | 7094 | "Return the end of the region if `use-region-p' returns non-nil. |
| 7095 | This is a convenience function to use in `interactive' forms of | ||
| 7096 | commands that need to act on the region when it is active." | ||
| 7093 | (and (use-region-p) (region-end))) | 7097 | (and (use-region-p) (region-end))) |
| 7094 | 7098 | ||
| 7095 | (defun use-region-noncontiguous-p () | 7099 | (defun use-region-noncontiguous-p () |
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index bf5987d742f..c5a84db6d4a 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el | |||
| @@ -81,7 +81,7 @@ This returns the result of `make-xwidget'." | |||
| 81 | (defun xwidget-at (pos) | 81 | (defun xwidget-at (pos) |
| 82 | "Return xwidget at POS." | 82 | "Return xwidget at POS." |
| 83 | (let* ((disp (get-text-property pos 'display)) | 83 | (let* ((disp (get-text-property pos 'display)) |
| 84 | (xw (car (cdr (cdr disp))))) | 84 | (xw (ignore-errors (car (cdr (cdr disp)))))) |
| 85 | (when (xwidget-live-p xw) xw))) | 85 | (when (xwidget-live-p xw) xw))) |
| 86 | 86 | ||
| 87 | 87 | ||