Mercurial > emacs
changeset 25557:5eb4b90c57b0
(byte-boolean-vars): Removed. (Now primitive.)
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 06 Sep 1999 11:10:35 +0000 |
parents | 2c3a5aaa01e1 |
children | 76420959ca81 |
files | lisp/emacs-lisp/byte-opt.el |
diffstat | 1 files changed, 3 insertions(+), 26 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Mon Sep 06 11:03:51 1999 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Mon Sep 06 11:10:35 1999 +0000 @@ -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."