Lines Matching +defs:with +defs:no +defs:warnings
7 ;; Hallvard Furuseth <hbf@ulrik.uio.no>
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
59 ;; - functions being redefined with incompatible arglists;
62 ;; - functions being called with the incorrect number of arguments;
89 ;; byte-compile-warnings List of warnings to issue, or t. May contain
93 ;; `callargs' (lambda calls with args that don't
101 ;; `cl-warnings' (calls to CL functions)
114 ;; means that no function call will be generated, it will simply be
118 ;; You can generally accomplish the same thing with `defmacro', but in
154 ;; o byte-compiled files now start with the string `;ELC'.
219 ;; The user may want to redefine this along with emacs-lisp-file-regexp,
224 with the extension `.el'), add `c' to it; otherwise add `.elc'."
271 nil - no optimization
335 "*If true, the byte-compiler reports warnings with `error'."
342 "The list of warning types used when `byte-compile-warnings' is t.")
343 (defcustom byte-compile-warnings t
344 "*List of warnings that the byte-compiler should issue (t for all).
350 callargs function calls with args that don't match the definition.
367 (put 'byte-compile-warnings 'safe-local-variable 'byte-compile-warnings-safe-p)
369 (defun byte-compile-warnings-safe-p (x)
402 \(that is, to which no calls have been compiled). Functions which can be
479 Used for warnings when the function is not known to be defined or is later
480 defined with incorrect args.")
484 Used for warnings about calling a function that is defined during compilation
502 "An array with the stack adjustment for each byte-code.")
597 (byte-defop 107 0 byte-scan-buffer-OBSOLETE) ; no longer generated as of v18
626 "for reference to a constant with vector index >= byte-constant-limit")
656 ;; For entry to with-output-to-temp-buffer.
659 ;; Returns with temp buffer on the stack in place of buffer name.
662 ;; For exit from with-output-to-temp-buffer.
826 (when (memq 'noruntime byte-compile-warnings)
854 (when (memq 'cl-functions byte-compile-warnings)
870 ;; (eval-and-compile (require 'cl) turns off warnings for cl functions.
874 (setq byte-compile-warnings
875 (remq 'cl-functions byte-compile-warnings)))
903 (with-current-buffer "*Compile-Log*"
966 ;; It is always called with the warnings buffer current.
978 (with-current-buffer byte-compile-current-buffer
1002 ;; This no-op function is used as the value of warning-series
1003 ;; to tell inner calls to displaying-byte-compile-warnings
1034 (insert "\f\nCompiling no file at " (current-time-string) "\n"))
1076 (if (memq 'obsolete byte-compile-warnings)
1094 ;; (warnings byte-compile-warnings ((callargs redefine free-vars unresolved))
1211 ;; Warn if the form is calling a function with the wrong number of arguments.
1235 "%s called with %d argument%s, but %s %s"
1248 ; with recursion.
1260 "Warn if FORM is `format'-like with inconsistent args.
1261 Applies if head of FORM is a symbol with non-nil property
1268 (let ((nfields (with-temp-buffer
1279 "`%s' called with %d args to fill %d format field(s)" (car form)
1302 ;; Warn if the function or macro is being redefined with a different
1336 "%s being defined to take %s%s, but was previously called with %s"
1381 ;; but such warnings are never useful,
1385 ;; Avoid warnings for things which are safe because they
1421 ;; `unresolved' in the list `byte-compile-warnings' disables this.
1423 (when (memq 'unresolved byte-compile-warnings)
1432 ;; Complain about the no-run-time functions
1487 (byte-compile-warnings (if (eq byte-compile-warnings t)
1489 byte-compile-warnings))
1493 (defmacro displaying-byte-compile-warnings (&rest body)
1494 `(let* ((--displaying-byte-compile-warnings-fn (lambda () ,@body))
1510 (funcall --displaying-byte-compile-warnings-fn)
1512 (funcall --displaying-byte-compile-warnings-fn)
1519 (funcall --displaying-byte-compile-warnings-fn)
1521 (funcall --displaying-byte-compile-warnings-fn)
1568 (displaying-byte-compile-warnings
1601 (cond ((eq res 'no-byte-compile)
1620 (defvar no-byte-compile nil
1624 ;; Local Variables:\n;; no-byte-compile: t\n;; End: ")
1625 ;;;###autoload(put 'no-byte-compile 'safe-local-variable 'booleanp)
1633 The value is non-nil if there were no errors, nil if errors."
1674 ;; unless the file itself forces unibyte with -*-coding: raw-text;-*-
1679 (when (or (eq last-coding-system-used 'no-conversion)
1681 ;; For coding systems no-conversion and raw-text...,
1699 (if (with-current-buffer input-buffer no-byte-compile)
1701 ;; (message "%s not compiled because of `no-byte-compile: %s'"
1703 ;; (with-current-buffer input-buffer no-byte-compile))
1705 (message "%s deleted because of `no-byte-compile: %s'"
1707 (buffer-local-value 'no-byte-compile input-buffer))
1710 'no-byte-compile)
1725 (with-current-buffer output-buffer
1731 (let ((coding-system-for-write 'no-conversion))
1737 ;; it possible for installed files to share disk space with
1797 (let ((read-with-symbol-positions (current-buffer))
1799 (displaying-byte-compile-warnings
1832 (read-with-symbol-positions inbuffer)
1835 ;; (byte-compile-warnings (if (eq byte-compile-warnings t)
1837 ;; byte-compile-warnings))
1854 (displaying-byte-compile-warnings
1872 ;; Make warnings about unresolved functions
1886 (with-current-buffer outbuffer
1890 (error "Version-18 compatibility not valid with multibyte characters"))
1909 ;; Replace "19" or "19.29" with "20", twice.
1951 ((eq byte-optimize 'source) "with source-level optimization only")
1952 ((eq byte-optimize 'byte) "with byte-level optimization only")
1953 (byte-optimize "with all optimizations")
1956 "; compiled with Emacs 18 compatibility.\n"
2032 "Print a form with a doc string. INFO is (prefix doc-index postfix).
2050 ;; Insert the doc string, and make it a comment with #@LENGTH.
2062 ;; If the doc string starts with * (a user variable),
2076 ;; For compatibility with code before print-circle,
2156 (let ((byte-compile-current-form nil) ; close over this for warnings.
2171 ;; Functions and variables with doc strings must be output separately,
2193 ;; Avoid undefined function warnings for the autoload.
2210 ;; Since there is no doc string, we can compile this as a normal form,
2213 (when (memq 'free-vars byte-compile-warnings)
2226 (when (memq 'callargs byte-compile-warnings)
2228 (when (memq 'free-vars byte-compile-warnings)
2252 (setq byte-compile-warnings
2253 (remq 'cl-functions byte-compile-warnings))))
2298 (setq byte-compile-current-form name) ; for warnings
2299 (if (memq 'redefine byte-compile-warnings)
2304 (if (and (memq 'redefine byte-compile-warnings)
2313 (when (and (memq 'redefine byte-compile-warnings)
2324 (when (memq 'redefine byte-compile-warnings)
2371 ;; so that no element will be treated as a doc string.
2407 ;; If QUOTED is non-nil, print with quoting; otherwise, print without quoting.
2414 ;; Insert EXP, and make it a comment with #@LENGTH.
2452 (displaying-byte-compile-warnings
2470 (displaying-byte-compile-warnings
2567 (nconc (and (memq 'free-vars byte-compile-warnings)
2590 ;; args of `list'. Actually, compile it to get warnings,
2635 ;; Next up to byte-constant-limit are constants, still with one-byte codes.
2783 ;; before terminating (ie no value will be left on the stack).
2808 (and (memq 'interactive-only byte-compile-warnings)
2823 (when (memq 'callargs byte-compile-warnings)
2828 (if (memq 'cl-functions byte-compile-warnings)
2860 (memq 'obsolete byte-compile-warnings)
2869 (if (memq 'free-vars byte-compile-warnings)
2925 ;; The second element may be nil, meaning there is no opcode.
2938 '((0 . byte-compile-no-args)
3086 (byte-compile-warn "`%s' called with %d arg%s, but requires %s"
3092 (defun byte-compile-no-args (form)
3188 ;; backward-... ==> forward-... with negated argument.
3228 ;; Concat of one arg is not a no-op if arg is not a string.
3315 ;; Otherwise it will be incompatible with the interpreter,
3316 ;; and (funcall (function foo)) will lose with autoloads.
3336 ;; no opcode for 2-arg case.
3353 ;; We can split it; there is no function call after inserting 1st arg.
3377 ;; (setq), with no arguments.
3460 or (boundp 'foo), the relevant warnings from BODY about foo's
3464 that suppresses all warnings during execution of BODY."
3483 ;; Suppress all warnings, for code not used in Emacs.
3484 (byte-compile-warnings
3487 nil byte-compile-warnings)))
3499 ;; and avoid warnings about the relevent symbols in the consequent.
3651 "Compiler error: `%s' has no `byte-compile-negated-op' property"
3665 (byte-defop-compiler-1 with-output-to-temp-buffer)
3751 (defun byte-compile-with-output-to-temp-buffer (form)
3768 ;; This is not used for file-level defuns with doc strings.
3792 ;; This is not used for file-level defmacros with doc strings.
3803 ;; This is not used for file-level defvar/consts with doc strings.
3813 "`%s' called with %d argument%s, but %s %s"
3818 (when (memq 'free-vars byte-compile-warnings)
3865 ;; Compile normally, but deal with warnings for the function being defined.
3892 ;; Turn off warnings about prior calls to the function being defalias'd.
3893 ;; This could be smarter and compare those calls with
3901 (byte-defop-compiler-1 with-no-warnings byte-compile-no-warnings)
3902 (defun byte-compile-no-warnings (form)
3903 (let (byte-compile-warnings)
3954 ;; no more opcodes behind byte-return.
3991 ;; to avoid interfering with completion of byte-compile-file.
4005 \(that is, to which no calls have been compiled\), and which cannot be
4009 (with-output-to-temp-buffer "*Call-Tree*"
4126 Use this from the command line, with `-batch';
4135 Use this from the command line, with `-batch';
4144 (error "`batch-byte-compile' is to be used only with -batch"))
4200 Must be used only with `-batch', and kills Emacs on completion.
4209 (error "batch-byte-recompile-directory is to be used only with -batch"))
4226 (with-output-to-temp-buffer "*Meter*"
4258 (byte-compile-warnings nil))