From 589ae02871bed3e062f6274f13a7a5eae417e8c4 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 10 Jun 2019 13:30:30 +0200 Subject: Add comment about internal mapping symbol --- lisp/emacs-lisp/bytecomp.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 9697d0d9cde..993300cda2a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -514,6 +514,9 @@ Return the compile-time value of FORM." expanded))))) (with-suppressed-warnings . ,(lambda (warnings &rest body) + ;; This function doesn't exist, but is just a placeholder + ;; symbol to hook up with the + ;; `byte-hunk-handler'/`byte-defop-compiler-1' machinery. `(internal--with-suppressed-warnings ',warnings ,(macroexpand-all `(progn ,@body) -- cgit v1.2.1