mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

Merge from origin/emacs-28

Browse source 
5e47ec9511 ; * lisp/url/url-http.el (url-http-parse-headers): Fix typo.
ba0871bef1 ; Fix typos: prefer American spelling
e3e7f31faa Adapt Tramp doc

# Conflicts:
#	etc/NEWS
#	etc/themes/modus-themes.el
#	lisp/emacs-lisp/byte-opt.el
#	test/lisp/so-long-tests/spelling-tests.el
This commit is contained in:
Stefan Kangas 2022-07-14 11:37:42 +02:00
commit 4e79f77635
35 changed files with 305 additions and 300 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -38,7 +38,7 @@
bytecomp-test-var)
(defun bytecomp-test-identity (x)
"Identity, but hidden from some optimisations."
"Identity, but hidden from some optimizations."
x)
(defmacro bytecomp-test-loop (outer1 outer2 inner1 inner2)
@ -556,7 +556,7 @@ inner loops respectively."
((not x) 3)))
'("a" "b" "c" "d" nil))
;; `let' and `let*' optimisations with body being constant or variable
;; `let' and `let*' optimizations with body being constant or variable
(let* (a
(b (progn (setq a (cons 1 a)) 2))
(c (1+ b))
@ -582,7 +582,7 @@ inner loops respectively."
(let* (x y)
'a)
;; Check empty-list optimisations.
;; Check empty-list optimizations.
(mapcar (lambda (x) (member x nil)) '("a" 2 nil))
(mapcar (lambda (x) (memql x nil)) '(a 2 nil))
(mapcar (lambda (x) (memq x nil)) '(a nil))
@ -597,7 +597,7 @@ inner loops respectively."
(list (mapcar (lambda (x) (assoc (setq n (1+ n)) nil)) '(a "nil"))
n))
;; Exercise variable-aliasing optimisations.
;; Exercise variable-aliasing optimizations.
(let ((a (list 1)))
(let ((b a))
(let ((a (list 2)))