[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 61190b5146a 2/2: * lisp/emacs-lisp/byte-opt.el (byte-compile-nilc
From: |
Mattias Engdegård |
Subject: |
master 61190b5146a 2/2: * lisp/emacs-lisp/byte-opt.el (byte-compile-nilconstp): Extend list. |
Date: |
Fri, 22 Dec 2023 09:26:21 -0500 (EST) |
branch: master
commit 61190b5146abfda05d2c756af99867d6b1278f2c
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
* lisp/emacs-lisp/byte-opt.el (byte-compile-nilconstp): Extend list.
---
lisp/emacs-lisp/byte-opt.el | 25 +++++++++++++++++++++++--
1 file changed, 23 insertions(+), 2 deletions(-)
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))))))