;;; we break the program, because it will appear that pop-up-windows and
;;; old-pop-ups are not EQ when really they are. So we have to know what
;;; the BOOL variables are, and not perform this optimization on them.
-;;;
-(defconst byte-boolean-vars
- '(abbrev-all-caps abbrevs-changed byte-debug-flag byte-metering-on
- cannot-suspend check-markers-debug-flag completion-auto-help
- completion-ignore-case cursor-in-echo-area debug-on-next-call
- debug-on-quit delete-exited-processes enable-recursive-minibuffers
- garbage-collection-messages highlight-nonselected-windows
- indent-tabs-mode inherit-process-coding-system inhibit-eol-conversion
- inhibit-local-menu-bar-menus insert-default-directory inverse-video
- keyword-symbols-constant-flag load-convert-to-unibyte
- load-force-doc-strings load-in-progress menu-prompting
- minibuffer-allow-text-properties minibuffer-auto-raise
- mode-line-inverse-video multiple-frames no-redraw-on-reenter
- noninteractive parse-sexp-ignore-comments parse-sexp-lookup-properties
- pop-up-frames pop-up-windows print-escape-multibyte
- print-escape-newlines
- print-escape-nonascii print-quoted scroll-preserve-screen-position
- system-uses-terminfo truncate-partial-width-windows
- unibyte-display-via-language-environment use-dialog-box
- visible-bell vms-stmlf-recfm words-include-escapes redisplay-dont-pause
- w32-use-full-screen-buffer w32-strict-fontnames w32-enable-unicode-output
- auto-resize-toolbars auto-raise-toolbar-buttons display-busy-cursor
- x-stretch-cursor x-toolkit-scroll-bars-p)
- "DEFVAR_BOOL variables. Giving these any non-nil value sets them to t.
-If this does not enumerate all DEFVAR_BOOL variables, the byte-optimizer
-may generate incorrect code.")
+
+;;; The variable `byte-boolean-vars' is now primitive and updated
+;;; automatically by DEFVAR_BOOL.
(defun byte-optimize-lapcode (lap &optional for-effect)
"Simple peephole optimizer. LAP is both modified and returned."