diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-07-27 09:55:43 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-07-27 17:09:30 +0200 |
| commit | 4336d7e44af28c662714f76cd62b857942f61c09 (patch) | |
| tree | 2de1b6579f5f70ac1908f1d4a88038339c1d6630 /lisp/emacs-lisp/byte-opt.el | |
| parent | 93eccb5e040c8fff4c4527819888e01683df5aaa (diff) | |
| download | emacs-4336d7e44af28c662714f76cd62b857942f61c09.tar.gz emacs-4336d7e44af28c662714f76cd62b857942f61c09.tar.bz2 emacs-4336d7e44af28c662714f76cd62b857942f61c09.zip | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 11 |
1 files changed, 11 insertions, 0 deletions
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) |