Function: tramp-byte-run--set-suppress-trace

tramp-byte-run--set-suppress-trace is a function defined in tramp.el.gz.

Signature

(tramp-byte-run--set-suppress-trace F _ARGS VAL)

Source Code

;; Defined in /usr/src/emacs/lisp/net/tramp.el.gz
;; Reload `tramp-compat' when we reload `tramp-autoloads' of the GNU
;; ELPA package.
;;;###autoload (when (featurep 'tramp-compat)
;;;###autoload   (load "tramp-compat" 'noerror 'nomessage))

;;;###tramp-autoload
(progn
  (defvar tramp--startup-hook nil
    "Forms to be executed at the end of tramp.el.")

  (put 'tramp--startup-hook 'tramp-suppress-trace t)

  ;; TODO: Once (autoload-macro expand) is available in all supported
  ;; Emacs versions (Emacs 31.1+), this can be eliminated:
  ;; Backward compatibility for autoload-macro declare form.
  (eval-and-compile
    (unless (assq 'autoload-macro macro-declarations-alist)
      (push '(autoload-macro ignore) macro-declarations-alist)))

  (defmacro tramp--with-startup (&rest body)
    "Schedule BODY to be executed at the end of tramp.el."
    (declare (autoload-macro expand))
    `(add-hook 'tramp--startup-hook (lambda () ,@body)))

  (eval-and-compile
    (defalias 'tramp-byte-run--set-suppress-trace
      #'(lambda (f _args val)
	  (list 'function-put (list 'quote f)
		''tramp-suppress-trace val)))

    (add-to-list
     'defun-declarations-alist
     (list 'tramp-suppress-trace #'tramp-byte-run--set-suppress-trace))))