mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(byte-boolean-vars): Removed. (Now primitive.)

Browse Source
This commit is contained in:
Dave Love 1999-09-06 11:10:35 +00:00
parent 9426b3ccc4
commit e5b69caa66
1 changed files with 3 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/emacs-lisp/byte-opt.el
View File

@ -1368,32 +1368,9 @@
;;; 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."