diff --git a/README.org b/README.org
index 7064151..0ee47cc 100644
--- a/README.org
+++ b/README.org
@@ -5114,6 +5114,27 @@ circular-buffer (0.2.0)
 Available versions: 0.2.0, 0.1.1, 0.1.0
 #+end_src
 
+#+caption[Emacs client "Package Installer for Python" and "PyPI" options]:
+#+caption: Emacs client "Package Installer for Python" and "PyPI" options.
+#+name: lst:pip-pypi-options
+#+begin_src emacs-lisp -n :results silent
+(defgroup pip nil
+  "Client for accessing the \"Package Installer for Python\" and \"PyPI\"."
+  :group 'applications)
+
+(defcustom pip-frozen-packages nil
+  "Frozen Python packages."
+  :group 'pip
+  :type '(repeat string))
+
+;; Frozen until the release of jupyterlab-4.0.0.
+(setopt pip-frozen-packages '("aiofiles"
+                              "jupyter-server-ydoc"
+                              "jupyter-ydoc"
+                              "y-py"
+                              "ypy-websocket"))
+#+end_src
+
 #+caption[Emacs interface to list outdated Python packages]:
 #+caption: Emacs interface to list outdated Python packages.
 #+name: lst:pip-list-outdated
@@ -5155,23 +5176,7 @@ This invokes an asynchonous process and finishes with a message."
 #+caption[Emacs interface to upgrade outdated unfrozen Python packages]:
 #+caption: Emacs interface to upgrade outdated unfrozen Python packages.
 #+name: lst:pip-upgrade-maybe
-#+begin_src emacs-lisp -n :results silent
-(defgroup pip nil
-  "Client for accessing the \"Package Installer for Python\" and \"PyPI\"."
-  :group 'applications)
-
-(defcustom pip-frozen-packages nil
-  "Frozen Python packages."
-  :group 'pip
-  :type '(repeat string))
-
-;; Frozen until the release of jupyterlab-4.0.0.
-(setopt pip-frozen-packages '("aiofiles"
-                              "jupyter-server-ydoc"
-                              "jupyter-ydoc"
-                              "y-py"
-                              "ypy-websocket"))
-
+#+begin_src emacs-lisp :results silent
 (defun pip--upgrade-maybe-sentinel (process event)
   (when (and (eq (process-status process) 'exit)
              (buffer-live-p (process-buffer process)))