master 4336d7e44af 2/3: * lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp): Extend

[Mattias Engdegård]

branch: master
commit 4336d7e44af28c662714f76cd62b857942f61c09
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    * 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)