mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' into scratch/igc

Browse source
This commit is contained in:
Gerd Möllmann 2025-01-08 04:04:49 +01:00
commit 2838be3fd5
3521 changed files with 35352 additions and 18316 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/bytecomp.el
View file

@ -1,6 +1,6 @@
;;; bytecomp.el --- compilation of Lisp code into byte code -*- lexical-binding: t -*-
;; Copyright (C) 1985-1987, 1992, 1994, 1998, 2000-2024 Free Software
;; Copyright (C) 1985-1987, 1992, 1994, 1998, 2000-2025 Free Software
;; Foundation, Inc.
;; Author: Jamie Zawinski <jwz@lucid.com>
@ -5471,9 +5471,9 @@ FORM is used to provide location, `bytecomp--cus-function' and
(setq byte-compile-current-group name))
;; Check :local
(when-let ((val (and (eq fun 'custom-declare-variable)
(plist-get keyword-args :local)))
(_ (not (member val '(t 'permanent 'permanent-only)))))
(when-let* ((val (and (eq fun 'custom-declare-variable)
(plist-get keyword-args :local)))
(_ (not (member val '(t 'permanent 'permanent-only)))))
(bytecomp--cus-warn form ":local keyword does not accept %S" val))))
(byte-compile-normal-call form))
@ -6050,8 +6050,8 @@ and corresponding effects."
:buffer :host :service :type :family :local :remote :coding
:nowait :noquery :stop :filter :filter-multibyte :sentinel
:log :plist :tls-parameters :server :broadcast :dontroute
:keepalive :linger :oobinline :priority :reuseaddr :bindtodevice
:use-external-socket)
:keepalive :linger :oobinline :priority :reuseaddr :nodelay
:bindtodevice :use-external-socket)
'(:name :service))))
(provide 'byte-compile)