Silence byte compiler warnings

Author: nnicandro

jupyter-base.el

@@ -125,10 +125,10 @@ from a backing notebook server."
 
 (defvar jupyter--debug nil
   "When non-nil, some parts of Jupyter will emit debug statements.
-If the symbol 'message, messages received by a kernel will only
+If the symbol \='message, messages received by a kernel will only
 be handled by clients when the function
-`jupyter--debug-replay-requests' is called manually.  This
-allows for stepping through the code with Edebug.")
+`jupyter--debug-replay-requests' is called manually.  This allows
+for stepping through the code with Edebug.")
 
 (defvar jupyter--debug-request-queue nil)
 
@@ -215,7 +215,7 @@ lists with mime-type keywords as keys.
 
 A call to FUN looks like this
 
-    \(funcall fun MIME-TYPE '(:data D :metadata M))
+    \(funcall fun MIME-TYPE \='(:data D :metadata M))
 
 where D will be the data associated with MIME-TYPE in CONTENT and
 M is any associated metadata."

jupyter-channel.el

@@ -44,25 +44,25 @@
  Typical endpoints look like \"tcp://127.0.0.1:5555\"."))
   :abstract t)
 
-(cl-defmethod jupyter-start ((channel jupyter-channel) &key identity)
+(cl-defmethod jupyter-start ((_channel jupyter-channel) &key _identity)
   "Start a Jupyter CHANNEL using IDENTITY as the routing ID.
 If CHANNEL is already alive, do nothing."
   (cl-call-next-method))
 
-(cl-defmethod jupyter-stop ((channel jupyter-channel))
+(cl-defmethod jupyter-stop ((_channel jupyter-channel))
   "Stop a Jupyter CHANNEL.
 If CHANNEL is already stopped, do nothing."
   (cl-call-next-method))
 
-(cl-defmethod jupyter-alive-p ((channel jupyter-channel))
+(cl-defmethod jupyter-alive-p ((_channel jupyter-channel))
   "Return non-nil if a CHANNEL is alive."
   (cl-call-next-method))
 
-(cl-defmethod jupyter-send (channel type message &optional msg-id)
+(cl-defmethod jupyter-send (_channel _type _message &optional _msg-id)
   "On CHANNEL send MESSAGE which has message TYPE and optionally a MSG-ID."
   (cl-call-next-method))
 
-(cl-defmethod jupyter-recv (channel &optional dont-wait)
+(cl-defmethod jupyter-recv (_channel &optional _dont-wait)
   "Receive a message on CHANNEL.
 If DONT-WAIT is non-nil, return nil immediately if there is no
 message available to receive."

jupyter-client.el

@@ -163,7 +163,7 @@ types.
 For example to prevent a client from calling its \"execute_reply\"
 handler:
 
-    (let ((jupyter-inhibit-handlers '(\"execute_reply\")))
+    (let ((jupyter-inhibit-handlers \='(\"execute_reply\")))
       (jupyter-send client \"execute_request\" ...)))
 
 In addition, if the first element of the list is the symbol

jupyter-ioloop.el

@@ -204,7 +204,7 @@ and define an event like
 Finally after adding other events and starting the ioloop we send
 an event like
 
-    (jupyter-send ioloop 'stop-channel :shell)
+    (jupyter-send ioloop \='stop-channel :shell)
 
 Then before the stop-channel event defined by
 `jupyter-ioloop-add-event' is called in the IOLOOP environment,
@@ -310,7 +310,7 @@ WARNING: A function added as a callback should be quoted to avoid
 sending closures to the IOLOOP.  An example:
 
     (jupyter-ioloop-add-callback ioloop
-      `(lambda () (zmq-prin1 'foo \"bar\")))"
+      `(lambda () (zmq-prin1 \='foo \"bar\")))"
   (cl-assert (functionp cb))
   (cl-callf append (oref ioloop callbacks) (list cb))
   (when (process-live-p (oref ioloop process))

jupyter-kernel-process.el

@@ -33,7 +33,13 @@
   "Jupyter kernels as Emacs processes"
   :group 'jupyter)
 
+(declare-function jupyter-ioloop-start "jupyter-ioloop")
+(declare-function jupyter-ioloop-stop "jupyter-ioloop")
+(declare-function jupyter-send "jupyter-ioloop")
+(declare-function jupyter-ioloop-alive-p "jupyter-ioloop")
 (declare-function jupyter-channel-ioloop-set-session "jupyter-channel-ioloop")
+(declare-function ansi-color-apply "ansi-color")
+(declare-function jupyter-hb-pause "jupyter-zmq-channel")
 
 (defvar jupyter--kernel-processes '()
   "The list of kernel processes launched.

jupyter-monads.el

@@ -160,7 +160,7 @@ Ex. Unsubscribe after consuming one message
 
     (jupyter-run-with-io (jupyter-publisher)
       (jupyter-subscribe sub)
-      (jupyter-publish (list 'topic \"today's news\")))"
+      (jupyter-publish (list \='topic \"today's news\")))"
   (declare (indent 0))
   (lambda (sub-content)
     (pcase sub-content
@@ -240,13 +240,13 @@ Ex. Publish the value 1 regardless of what is given to PUB-FN.
       (lambda (_)
         (jupyter-content 1)))
 
-Ex. Publish 'app if 'app is given to a publisher, nothing is sent
+Ex. Publish \='app if \='app is given to a publisher, nothing is sent
     to subscribers otherwise.  In this case, a publisher is a
     filter of the value given to it for publishing.
 
     (jupyter-publisher
       (lambda (value)
-        (if (eq value 'app)
+        (if (eq value \='app)
           (jupyter-content value))))"
   (declare (indent 0))
   (let ((subs (list 'subscribers))
@@ -268,7 +268,7 @@ subscription is canceled.
 Ex. Subscribe to a publisher and unsubscribe after receiving two
     messages.
 
-    (let* ((msgs '())
+    (let* ((msgs \='())
            (pub (jupyter-publisher))
            (sub (jupyter-subscriber
                   (lambda (n)
@@ -277,10 +277,10 @@ Ex. Subscribe to a publisher and unsubscribe after receiving two
       (jupyter-run-with-io pub
         (jupyter-subscribe sub))
       (cl-loop
-       for x in '(1 2 3)
+       for x in \='(1 2 3)
        do (jupyter-run-with-io pub
             (jupyter-publish x)))
-      (reverse msgs)) ; => '(1 2)"
+      (reverse msgs)) ; => \='(1 2)"
   (declare (indent 0))
   (lambda (io)
     (funcall io (list 'subscribe sub))

jupyter-org-client.el

@@ -57,7 +57,7 @@
 (declare-function org-next-block "org" (arg &optional backward block-regexp))
 (declare-function org-at-table-p "org" ())
 (declare-function org-inside-LaTeX-fragment-p "org" ())
-(declare-function org-toggle-latex-fragment "org" (&optional arg))
+(declare-function org-latex-preview "org" (&optional arg))
 
 (defcustom jupyter-org-auto-connect t
   "Automatically establish a connection to a src-block session.
@@ -896,7 +896,7 @@ non-nil, return FILE with EXT as the extension.  Otherwise, return
 FILE."
   (cond
    ((null file) file)
-   ((image-type-from-file-name file) file)
+   ((image-supported-file-p file) file)
    ((not (null ext)) (concat file "." ext))
    (t file)))
 
@@ -962,7 +962,7 @@ will be inserted by calling `org-element-interpret-data' first.
 The returned result should be a representation of a MIME type's
 CONTENT. CONTENT is a property list like
 
-    '(:data DATA :metadata METADATA)
+    \='(:data DATA :metadata METADATA)
 
 that contains the DATA/METADATA of the mime type.  As an example,
 if MIME is `:text/markdown', then DATA should be the markdown
@@ -1496,7 +1496,7 @@ Assumes `point' is on the #+RESULTS keyword line."
     (when (eq (org-element-type context) 'paragraph)
       (save-excursion
         (goto-char (jupyter-org-element-begin-after-affiliated context))
-        (when (looking-at-p (format "^[ \t]*%s[ \t]*$" org-bracket-link-regexp))
+        (when (looking-at-p (format "^[ \t]*%s[ \t]*$" org-link-bracket-re))
           (setq context (org-element-context)))))
     context))
 
@@ -1636,7 +1636,7 @@ See `jupyter-org-toggle-latex'."
       (let ((ov (car (overlays-at (point)))))
         (unless (and ov (eq (overlay-get ov 'org-overlay-type)
                             'org-latex-overlay))
-          (org-toggle-latex-fragment))))))
+          (org-latex-preview))))))
 
 ;;;; Add result
 

jupyter-org-extensions.el

@@ -32,12 +32,13 @@
 (eval-when-compile (require 'subr-x))
 
 (declare-function org-babel-jupyter-initiate-session "ob-jupyter" (&optional session params))
+(declare-function org-babel-jupyter-session-initiated-p "ob-jupyter" (&optional session params))
 (declare-function org-babel-jupyter-src-block-session "ob-jupyter" ())
 (declare-function org-babel-jupyter-language-p "ob-jupyter" (lang))
 (declare-function org-in-src-block-p "org" (&optional inside))
 (declare-function org-narrow-to-subtree "org" ())
 (declare-function org-previous-line-empty-p "org" ())
-(declare-function org-show-context "org" (&optional key))
+(declare-function org-fold-show-context "org-fold" (&optional key))
 (declare-function org-next-line-empty-p "org" ())
 (declare-function org-element-context "org-element" (&optional element))
 (declare-function org-element-type "org-element" (element))
@@ -345,7 +346,7 @@ When BACKWARD is non-nil, jump to the previous block."
                (zerop (cl-decf count)))
      finally (goto-char origin)
      (user-error "No %s busy code blocks" (if backward "previous" "further"))))
-  (save-match-data (org-show-context)))
+  (save-match-data (org-fold-show-context)))
 
 ;;;###autoload
 (defun jupyter-org-previous-busy-src-block (arg)

jupyter-rest-api.el

@@ -616,18 +616,18 @@ remainder of PLIST.
 
 So if PLIST looks like
 
-    '(\"api\" \"kernels\" :k1 ...)
+    \='(\"api\" \"kernels\" :k1 ...)
 
-ENDPOINT will be \"api/kernels\" and REST will be '(:k1 ...).
+ENDPOINT will be \"api/kernels\" and REST will be \='(:k1 ...).
 
 If there is an alist after the strings of PLIST that make up the
 ENDPOINT, the alist is interpreted as the query component of
 ENDPOINT.  So if PLIST looks like
 
-    '(\"api\" \"contents\" ((\"content\" . \"1\")) :k1 ...)
+    \='(\"api\" \"contents\" ((\"content\" . \"1\")) :k1 ...)
 
 The returned ENDPOINT will be \"api/contents?content=1\" and REST
-will be '(:k1 ...)."
+will be \='(:k1 ...)."
   (let (endpoint)
     (while (and plist (or (null (car plist))
                           (stringp (car plist))))
@@ -675,7 +675,7 @@ as no request data at all and NOT as an empty JSON dictionary.
 A call to this method can also look like
 
    \(jupyter-api-request client \"GET\"
-      \"api\" \"contents\" '((\"content\" . \"1\"))
+      \"api\" \"contents\" \='((\"content\" . \"1\"))
 
 In this case, the alist after the strings that make up the base
 endpoint, but before the rest of the non-strings elements of

jupyter-server-kernel.el

@@ -33,6 +33,7 @@
 (require 'jupyter-monads)
 (require 'websocket)
 
+(declare-function jupyter-encode-raw-message "jupyter-messages")
 (declare-function jupyter-tramp-server-from-file-name "jupyter-tramp")
 (declare-function jupyter-tramp-file-name-p "jupyter-tramp")
 (declare-function jupyter-server-kernel-id-from-name "jupyter-server")
@@ -201,12 +202,12 @@ KERNEL.
 
 To send a message to KERNEL, publish a list of the form
 
-    (list 'send CHANNEL MSG-TYPE CONTENT MSG-ID)
+    (list \='send CHANNEL MSG-TYPE CONTENT MSG-ID)
 
 to IO-PUB, e.g.
 
     (jupyter-run-with-io IO-PUB
-      (jupyter-publish (list 'send CHANNEL MSG-TYPE CONTENT MSG-ID)))
+      (jupyter-publish (list \='send CHANNEL MSG-TYPE CONTENT MSG-ID)))
 
 To receive messages from KERNEL, subscribe to IO-PUB e.g.
 
@@ -216,8 +217,8 @@ To receive messages from KERNEL, subscribe to IO-PUB e.g.
           (lambda (msg)
              ...))))
 
-The value 'interrupt or 'shutdown can be published to ACTION-SUB
-to interrupt or shutdown KERNEL.  The value (list 'action FN)
+The value \='interrupt or \='shutdown can be published to ACTION-SUB
+to interrupt or shutdown KERNEL.  The value (list \='action FN)
 where FN is a single argument function can also be published, in
 this case FN will be evaluated on KERNEL."
   (jupyter-launch kernel)
@@ -262,10 +263,10 @@ this case FN will be evaluated on KERNEL."
                  server id
                  :custom-header-alist (jupyter-api-auth-headers server)
                  :on-open
-                 (lambda (ws)
+                 (lambda (_ws)
                    (setq ws-failed-to-open nil))
                  :on-close
-                 (lambda (ws)
+                 (lambda (_ws)
                    (if ws-failed-to-open
                        ;; TODO: Retry?
                        (error "Kernel connection could not be established")