From 4336d7e44af28c662714f76cd62b857942f61c09 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 27 Jul 2023 09:55:43 +0200 Subject: [PATCH] * lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp): Extend Add skip-chars-forward, skip-chars-backward, skip-syntax-forward, skip-syntax-backward, current-column, current-indentation, char-syntax, syntax-class-to-char, parse-partial-sexp, goto-char, forward-line, next-window, previous-window, minibuffer-window, selected-frame, selected-window, standard-case-table, standard-syntax-table, syntax-table, frame-first-window, frame-root-window and frame-selected-window as always-true functions. --- lisp/emacs-lisp/byte-opt.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 3005d69ae88..c7d8531a870 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -786,6 +786,17 @@ for speeding up processing.") make-marker copy-marker point-marker mark-marker set-marker kbd key-description + skip-chars-forward skip-chars-backward + skip-syntax-forward skip-syntax-backward + current-column current-indentation + char-syntax syntax-class-to-char + parse-partial-sexp goto-char forward-line + next-window previous-window minibuffer-window + selected-frame selected-window + standard-case-table standard-syntax-table + syntax-table + frame-first-window frame-root-window + frame-selected-window always)) t) ((eq head 'if) -- 2.39.2