1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00

Merge from origin/emacs-29

eb2b0931cf Add lambda_expression to c-ts-common-indent-type-regexp-a...
2da05876ed ; Use the right name when specifying VC packages
d4fc701297 Tolerate missing elpa-packages.eld files
8bc1b7d0b2 Avoid warning about 'load-path' in non-interactive sessions
3d17aee13d ; Fix installation of dependencies for VC packages
86ca7df6a3 ; Mention Hunspell private-dictionary misfeature in doc s...
7287b7b53a Support webkit2gtk-4.1
048a2dabfc ; Fix typo
This commit is contained in:
Stefan Kangas 2023-02-13 06:30:12 +01:00
commit bf60b3bfe7
6 changed files with 24 additions and 12 deletions

View file

@ -3583,8 +3583,12 @@ XWIDGETS_OBJ=
if test "$with_xwidgets" != "no"; then if test "$with_xwidgets" != "no"; then
if test "$USE_GTK_TOOLKIT" = "GTK3" && test "$window_system" != "none"; then if test "$USE_GTK_TOOLKIT" = "GTK3" && test "$window_system" != "none"; then
WEBKIT_REQUIRED=2.12 WEBKIT_REQUIRED=2.12
WEBKIT_MODULES="webkit2gtk-4.1 >= $WEBKIT_REQUIRED"
EMACS_CHECK_MODULES([WEBKIT], [$WEBKIT_MODULES])
if test "$HAVE_WEBKIT" = "no"; then
WEBKIT_MODULES="webkit2gtk-4.0 >= $WEBKIT_REQUIRED" WEBKIT_MODULES="webkit2gtk-4.0 >= $WEBKIT_REQUIRED"
EMACS_CHECK_MODULES([WEBKIT], [$WEBKIT_MODULES]) EMACS_CHECK_MODULES([WEBKIT], [$WEBKIT_MODULES])
fi
HAVE_XWIDGETS=$HAVE_WEBKIT HAVE_XWIDGETS=$HAVE_WEBKIT
XWIDGETS_OBJ="xwidget.o" XWIDGETS_OBJ="xwidget.o"
if test "$HAVE_X_WINDOWS" = "yes" && test "${with_cairo}" = "no"; then if test "$HAVE_X_WINDOWS" = "yes" && test "${with_cairo}" = "no"; then

View file

@ -2553,7 +2553,7 @@ variable names have underscores replaced with dashes. For instance,
@code{mode_line_format} stores the value of @code{mode-line-format}. @code{mode_line_format} stores the value of @code{mode-line-format}.
@item overlays @item overlays
The inveral tree containing this buffer's overlays. The interval tree containing this buffer's overlays.
@item last_selected_window @item last_selected_window
This is the last window that was selected with this buffer in it, or @code{nil} This is the last window that was selected with this buffer in it, or @code{nil}

View file

@ -134,7 +134,10 @@ the `clone' function."
(package-vc-install name spec)) (package-vc-install name spec))
((listp spec) ((listp spec)
(package-vc--archives-initialize) (package-vc--archives-initialize)
(package-vc--unpack (cadr pkg-descs) spec))))))) (package-vc--unpack
(or (cadr (assoc name package-archive-contents))
(package-desc-create :name name :kind 'vc))
spec)))))))
;;;###autoload ;;;###autoload
(defcustom package-vc-selected-packages '() (defcustom package-vc-selected-packages '()
@ -269,9 +272,9 @@ Populate `package-vc--archive-spec-alist' with the result.
If optional argument ASYNC is non-nil, perform the downloads If optional argument ASYNC is non-nil, perform the downloads
asynchronously." asynchronously."
(dolist (archive package-archives) (dolist (archive package-archives)
(condition-case-unless-debug nil (condition-case err
(package--download-one-archive archive "elpa-packages.eld" async) (package--download-one-archive archive "elpa-packages.eld" async)
(error (message "Failed to download `%s' archive." (car archive)))))) (error (message "Failed to download `%s' archive: %S" (car archive) err)))))
(add-hook 'package-read-archive-hook #'package-vc--read-archive-data 20) (add-hook 'package-read-archive-hook #'package-vc--read-archive-data 20)
@ -426,8 +429,8 @@ version of that package."
((let* ((pac package-archive-contents) ((let* ((pac package-archive-contents)
(desc (cadr (assoc (car pkg) pac)))) (desc (cadr (assoc (car pkg) pac))))
(if desc (if desc
(let ((reqs (package-desc-reqs pkg))) (let ((reqs (package-desc-reqs desc)))
(push pkg to-install) (push desc to-install)
(mapc #'search reqs)) (mapc #'search reqs))
(push pkg missing)))))) (push pkg missing))))))
(version-order (a b) (version-order (a b)
@ -600,8 +603,6 @@ PKG-SPEC is a package specification, a property list describing
how to fetch and build the package. See `package-vc--archive-spec-alist' how to fetch and build the package. See `package-vc--archive-spec-alist'
for details. The optional argument REV specifies a specific revision to for details. The optional argument REV specifies a specific revision to
checkout. This overrides the `:branch' attribute in PKG-SPEC." checkout. This overrides the `:branch' attribute in PKG-SPEC."
(unless pkg-desc
(setq pkg-desc (package-desc-create :name (car pkg-spec) :kind 'vc)))
(pcase-let* (((map :lisp-dir) pkg-spec) (pcase-let* (((map :lisp-dir) pkg-spec)
(name (package-desc-name pkg-desc)) (name (package-desc-name pkg-desc))
(dirname (package-desc-full-name pkg-desc)) (dirname (package-desc-full-name pkg-desc))

View file

@ -314,6 +314,7 @@ Return nil if there is no name or if NODE is not a defun node."
"constructor_body" "constructor_body"
"annotation_type_body" "annotation_type_body"
"interface_body" "interface_body"
"lambda_expression"
"enum_body" "enum_body"
"switch_block" "switch_block"
"record_declaration_body" "record_declaration_body"

View file

@ -1596,7 +1596,8 @@ please check its value")
;; or EMACSLOADPATH, so we basically always have to check. ;; or EMACSLOADPATH, so we basically always have to check.
(let (warned) (let (warned)
(dolist (dir load-path) (dolist (dir load-path)
(and (not warned) (and (not noninteractive)
(not warned)
(stringp dir) (stringp dir)
(string-equal (file-name-as-directory (expand-file-name dir)) (string-equal (file-name-as-directory (expand-file-name dir))
(expand-file-name user-emacs-directory)) (expand-file-name user-emacs-directory))

View file

@ -318,7 +318,9 @@ window system by evaluating the following on startup to set this variable:
;;;###autoload ;;;###autoload
(defcustom ispell-personal-dictionary nil (defcustom ispell-personal-dictionary nil
"File name of your personal spelling dictionary, or nil. "File name of your personal spelling dictionary, or nil.
If nil, the default personal dictionary for your spelling checker is used." If nil, the default personal dictionary for your spelling checker is used.
Due to a misfeature of Hunspell, if the value is an absolute file name, the
file by that name must already exist for Hunspell to be able to use it."
:type '(choice file :type '(choice file
(const :tag "default" nil))) (const :tag "default" nil)))
@ -1730,7 +1732,10 @@ If you specify a personal dictionary for the current buffer which is
different from the current personal dictionary, the effect is similar different from the current personal dictionary, the effect is similar
to calling \\[ispell-change-dictionary]. This variable is automatically to calling \\[ispell-change-dictionary]. This variable is automatically
set when defined in the file with either `ispell-pdict-keyword' or the set when defined in the file with either `ispell-pdict-keyword' or the
local variable syntax.") local variable syntax.
Due to a misfeature of Hunspell, if the value is an absolute file name, the
file by that name must already exist for Hunspell to be able to use it.")
;;;###autoload(put 'ispell-local-pdict 'safe-local-variable 'stringp) ;;;###autoload(put 'ispell-local-pdict 'safe-local-variable 'stringp)