358 |
|
|
359 |
(defvar byte-compile-interactive-only-functions |
(defvar byte-compile-interactive-only-functions |
360 |
'(beginning-of-buffer end-of-buffer replace-string replace-regexp |
'(beginning-of-buffer end-of-buffer replace-string replace-regexp |
361 |
insert-file) |
insert-file insert-buffer insert-file-literally) |
362 |
"List of commands that are not meant to be called from Lisp.") |
"List of commands that are not meant to be called from Lisp.") |
363 |
|
|
364 |
(defvar byte-compile-not-obsolete-var nil |
(defvar byte-compile-not-obsolete-var nil |
3353 |
"Execute forms in BODY, potentially guarded by CONDITION. |
"Execute forms in BODY, potentially guarded by CONDITION. |
3354 |
CONDITION is a variable whose value is a test in an `if' or `cond'. |
CONDITION is a variable whose value is a test in an `if' or `cond'. |
3355 |
BODY is the code to compile first arm of the if or the body of the |
BODY is the code to compile first arm of the if or the body of the |
3356 |
cond clause. If CONDITION's value is of the form (foundp 'foo) |
cond clause. If CONDITION's value is of the form (fboundp 'foo) |
3357 |
or (boundp 'foo), the relevant warnings from BODY about foo's |
or (boundp 'foo), the relevant warnings from BODY about foo's |
3358 |
being undefined will be suppressed. |
being undefined will be suppressed. |
3359 |
|
|
3360 |
If CONDITION's value is (not (featurep emacs)) or (featurep 'xemacs), |
If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs), |
3361 |
that suppresses all warnings during execution of BODY." |
that suppresses all warnings during execution of BODY." |
3362 |
(declare (indent 1) (debug t)) |
(declare (indent 1) (debug t)) |
3363 |
`(let* ((fbound |
`(let* ((fbound |