From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 22 Dec 2023 13:53:04 +0000 (+0100)
Subject: * lisp/emacs-lisp/byte-opt.el (byte-compile-nilconstp): Extend list.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61190b5146abfda05d2c756af99867d6b1278f2c;p=emacs.git

* lisp/emacs-lisp/byte-opt.el (byte-compile-nilconstp): Extend list.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 5a72011c609..a9fe1d06275 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -810,8 +810,29 @@ There can be multiple entries for the same NAME if it has several aliases.")
   (or (not form)   ; assume (quote nil) always being normalized to nil
       (and (consp form)
            (let ((head (car form)))
-             ;; FIXME: There are many other expressions that are statically nil.
-             (cond ((memq head '(while ignore)) t)
+             (cond ((memq head
+                          ;; Some forms that are statically nil.
+                          ;; FIXME: Replace with a function property?
+                          '( while ignore
+                             insert insert-and-inherit insert-before-markers
+                             insert-before-markers-and-inherit
+                             insert-char insert-byte insert-buffer-substring
+                             delete-region delete-char
+                             widen narrow-to-region transpose-regions
+                             forward-char backward-char
+                             beginning-of-line end-of-line
+                             erase-buffer buffer-swap-text
+                             delete-overlay delete-all-overlays
+                             remhash
+                             maphash
+                             map-charset-chars map-char-table
+                             mapbacktrace
+                             mapatoms
+                             ding beep sleep-for
+                             json-insert
+                             set-match-data
+                             ))
+                    t)
                    ((eq head 'if)
                     (and (byte-compile-nilconstp (nth 2 form))
                          (byte-compile-nilconstp (car (last (cdddr form))))))