From 3a9f1ac1b026bd4f411573938a4c51964ca56d25 Mon Sep 17 00:00:00 2001
From: Gerard Vermeulen <gerard.vermeulen@neel.cnrs.fr>
Date: Tue, 24 Jan 2023 07:41:16 +0100
Subject: [PATCH] Add line numbers to listings and split long lines in listings

---
 README.org | 354 +++++++++++++++++++++++++++--------------------------
 1 file changed, 178 insertions(+), 176 deletions(-)

diff --git a/README.org b/README.org
index 50d0d1a..cfb0a36 100644
--- a/README.org
+++ b/README.org
@@ -48,7 +48,7 @@ invoke Emacs again.
 # #+caption[Prepare the user-emacs-directory]:
 # #+caption: Clone and initialize the user-emacs-directory.
 # #+name: lst:prepare-user-emacs-directory
-# #+begin_src shell :noeval :tangle no
+# #+begin_src shell -n :noeval :tangle no
 # cd ~
 # git clone ccdr@mercury.grenoble.cnrs.fr:SERVER/emacs.d.git .emacs.d
 # make --directory=.emacs.d init
@@ -58,7 +58,7 @@ invoke Emacs again.
 #+caption[Prepare the user-emacs-directory without =ssh= access]:
 #+caption: Clone and initialize the user-emacs-directory without =ssh= access.
 #+name: lst:prepare-user-emacs-directory-with-https
-#+begin_src shell :noeval :tangle no
+#+begin_src shell -n :noeval :tangle no
 cd ~
 git clone https://forge.chapril.org/gav451/emacs.d.git .emacs.d
 make --directory=.emacs.d init
@@ -68,7 +68,7 @@ emacs &
 #+caption[Prepare the =user-emacs-directory= with =ssh= access]:
 #+caption: Clone and initialize the user-emacs-directory with =ssh= access.
 #+name: lst:prepare-user-emacs-directory-with-ssh
-#+begin_src shell :noeval :tangle no
+#+begin_src shell -n :noeval :tangle no
 cd ~
 git clone ssh://gitea@forge.chapril.org:222/gav451/emacs.d.git .emacs.d
 make --directory=.emacs.d init
@@ -164,7 +164,7 @@ Try to load [[https://github.com/emacscollective/no-littering][no-littering]] as
 #+caption[Tangle the early-init-file]:
 #+caption: Tangle the early-init-file.
 #+name: lst:tangle-early-init-file
-#+begin_src emacs-lisp :tangle early-init.el
+#+begin_src emacs-lisp -n :tangle early-init.el
 ;;; early-init.el --- user early-init file        -*- lexical-binding: t -*-
 ;;; Commentary:
 ;;; Code:
@@ -210,7 +210,7 @@ recommendation of [[info:emacs#Saving Customizations][saving customizations (inf
 #+caption[Set the first set of Emacs options]:
 #+caption: Set the first set of Emacs options.
 #+name: lst:1st-setopt-call
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 ;;; init.el --- user init file                    -*- lexical-binding: t -*-
 ;;; Commentary:
 ;;; Code:
@@ -264,7 +264,7 @@ recommendation of [[info:emacs#Saving Customizations][saving customizations (inf
 #+caption[Set the second set of Emacs options]:
 #+caption: Set the second set of Emacs options.
 #+name: lst:2nd-setopt-call
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (setopt
  ;; See https://github.com/melpa/melpa#mirrors for official Melpa mirrors.
  ;; ("melpa" . "https://www.mirrorservice.org/sites/melpa.org/packages/")
@@ -324,7 +324,7 @@ the contents of packages and allows to update packages to the latest version.
 #+caption[Install the selected packages]:
 #+caption: Install the selected packages.
 #+name: lst:install-selected-packages
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (unless noninteractive
   (unless (require 'no-littering nil 'noerror)
     (unless (bound-and-true-p package-archive-contents)
@@ -367,7 +367,7 @@ the contents of packages and allows to update packages to the latest version.
 #+caption[Setup Emacs Tree-sitter]:
 #+caption: Setup Emacs Tree-sitter.
 #+name: lst:setup-emacs-tree-sitter
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (require 'treesit nil 'noerror)
   (setopt
    treesit-language-source-alist
@@ -380,7 +380,8 @@ the contents of packages and allows to update packages to the latest version.
      (go "https://github.com/tree-sitter/tree-sitter-go" "master" "src")
      (html "https://github.com/tree-sitter/tree-sitter-html" "master" "src")
      (java "https://github.com/tree-sitter/tree-sitter-java" "master" "src")
-     (javascript "https://github.com/tree-sitter/tree-sitter-javascript" "master" "src")
+     (javascript "https://github.com/tree-sitter/tree-sitter-javascript"
+                 "master" "src")
      (json "https://github.com/tree-sitter/tree-sitter-json" "master" "src")
      (julia "https://github.com/tree-sitter/tree-sitter-julia" "master" "src")
      (make "https://github.com/alemuller/tree-sitter-make" "main" "src")
@@ -392,10 +393,10 @@ the contents of packages and allows to update packages to the latest version.
      (sql "https://github.com/m-novikov/tree-sitter-sql" "main" "src")
      (swift "https://github.com/tree-sitter/tree-sitter-swift" "master" "src")
      (toml "https://github.com/tree-sitter/tree-sitter-toml" "master" "src")
-     (tsx "https://github.com/tree-sitter/tree-sitter-typescript" "master"
-          "tsx/src")
-     (typescript "https://github.com/tree-sitter/tree-sitter-typescript" "master"
-                 "typescript/src")
+     (tsx "https://github.com/tree-sitter/tree-sitter-typescript"
+          "master" "tsx/src")
+     (typescript "https://github.com/tree-sitter/tree-sitter-typescript"
+                 "master" "typescript/src")
      (yaml "https://github.com/ikatyang/tree-sitter-yaml" "master" "src")))
 
   (add-to-list 'auto-mode-alist
@@ -430,7 +431,7 @@ theming:
 #+caption[Configure =face-attributes=]:
 #+caption: Configure =face-attributes=.
 #+name: lst:configure-face-attributes
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; Set face attributes.
   (cond
@@ -451,7 +452,7 @@ theming:
 #+caption[Implement =set-default-face-height=]:
 #+caption: Implement =set-default-face-height=.
 #+name: lst:set-default-face-height
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun set-default-face-height ()
     "Set the default face height in all current and future frames.
@@ -471,7 +472,7 @@ Scale all other faces with a height that is a real number."
 #+caption[Use =buffer-face-mode= to set fixed or variable pitch face]:
 #+caption: Use =buffer-face-mode= to set fixed or variable pitch face.
 #+name: lst:use-buffer-face-mode-for-fixed-or-variable-pitch-face
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 ;; Use proportional font faces in current buffer
 (defun set-buffer-variable-pitch-face ()
   "Set a variable width (proportional) font in current buffer."
@@ -493,7 +494,7 @@ Scale all other faces with a height that is a real number."
 #+caption[Fix a `gtk' color and implement =invert-default-face=]:
 #+caption: Fix a `gtk' color and implement =invert-default-face=.
 #+name: lst:fix-gtk-color-for-invert-default-face
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun fix-gtk-region-face-background-color ()
     (when (featurep 'gtk)
@@ -515,7 +516,7 @@ Scale all other faces with a height that is a real number."
 #+caption[Shadow Org font-lock faces to improve the readability]:
 #+caption: Shadow Org font-lock faces to improve the readability.
 #+name: lst:shadow-org-font-lock-faces
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; Shadow two definitions in org-faces.el:
   (defface org-block
@@ -556,7 +557,7 @@ verse and quote blocks are fontified using the `org-verse' and
 #+caption[Shadow Emacs font-lock faces to improve the readability]:
 #+caption: Shadow Emacs font-lock faces to improve the readability.
 #+name: lst:shadow-emacs-font-lock-faces
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; Shadow one definition in sh-script.el:
   (defface sh-heredoc
@@ -581,7 +582,7 @@ and [[lst:3rd-window-management]] implement a selection of his recommendations.
 #+caption[Window management functions and key bindings]:
 #+caption: Window management functions and key bindings.
 #+name: lst:1st-window-management
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; https://www.masteringemacs.org/article/demystifying-emacs-window-manager
   (defun split-root-below (arg)
@@ -617,7 +618,7 @@ and [[lst:3rd-window-management]] implement a selection of his recommendations.
 #+caption[Window management modes]:
 #+caption: Window management modes.
 #+name: lst:2nd-window-management
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (winner-mode +1))
 #+end_src
@@ -625,7 +626,7 @@ and [[lst:3rd-window-management]] implement a selection of his recommendations.
 #+caption[Window management variables]:
 #+caption: Window management variables.
 #+name: lst:3rd-window-management
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; https://www.masteringemacs.org/article/demystifying-emacs-window-manager
   (when (version< "29.0.0" emacs-version)
@@ -662,7 +663,7 @@ and [[lst:3rd-window-management]] implement a selection of his recommendations.
 #+caption[Toggle any advice]:
 #+caption: Toggle any advice.
 #+name: lst:toggle-any-advice
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun advice-toggle (symbol where function &optional props)
     "Toggle between states after `advice-remove' and `advice-add'."
@@ -678,7 +679,7 @@ and [[lst:3rd-window-management]] implement a selection of his recommendations.
 #+caption[Toggle specific advice]:
 #+caption: Toggle specific advice.
 #+name: lst:toggle-specific-advice
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun toggle-eww-display-pdf-around ()
     "Toggle `eww-display-advice' advice."
@@ -739,7 +740,7 @@ extension.
 #+caption[Set =dired= options]:
 #+caption: Set =dired= options.
 #+name: lst:set-dired-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'dired
   (setopt dired-dwim-target t
           ;; | switch | action                                 |
@@ -773,7 +774,7 @@ by experienced Emacs users.
 #+caption[Extra =dired= key bindings]:
 #+caption: Extra =dired= key bindings.
 #+name: lst:extra-dired-key-bindings
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'dired
   (defun dired-eww-open-file ()
     "In Dired, open the regular file named on this line with eww"
@@ -826,7 +827,7 @@ minibuffer completion]].
 #+caption[Set =minibuffer= options]:
 #+caption: Set =minibuffer= options.
 #+name: lst:set-minibuffer-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (require  'minibuffer nil 'noerror)
   ;; https://www.masteringemacs.org/article/understanding-minibuffer-completion
   (setopt
@@ -847,7 +848,7 @@ output to =stdout=.
 #+caption[Process utilities]:
 #+caption: Process utilities.
 #+name: lst:process-utilities
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 ;; https://gitlab.com/howardabrams/spacemacs.d/blob/master/layers/ha-org/funcs.el#L418
 (defun shell-command-with-exit-code (program &rest args)
   "Run PROGRAM with ARGS and return exit-code and output in a list."
@@ -880,7 +881,7 @@ or {{{kbd(C-h v)}}}.
 | info                         | help-map | {{{kbd(C-h i)}}} |
 |------------------------------+----------+------------------|
 
-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp -n :tangle no
 (defun org-key-binding-macro (cmd)
   (let* ((sym (intern-soft cmd))
          (keys (and (commandp sym) (where-is-internal sym nil 'first-only)))
@@ -904,7 +905,7 @@ defined in this Org file.
 #+caption[Configure =shortdoc=]:
 #+caption: Configure =shortdoc=.
 #+name: lst:configure-shortdoc
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (fboundp 'shortdoc-display-group)
   (define-key help-map (kbd "y") #'shortdoc-display-group)
   (with-eval-after-load 'shortdoc
@@ -957,7 +958,7 @@ looks for files.
 #+caption[Configure =info=]:
 #+caption: Configure =info=.
 #+name: lst:configure-info
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'info
   ;; Make Emacs find ALL "*.info" files in `package-user-dir' on Gentoo Linux.
   (when (eq system-type 'gnu/linux)
@@ -1007,7 +1008,7 @@ users from shooting themselves in the feet.  Listing
 #+caption[Configure the =disabled-command-function=]:
 #+caption: Configure the =disabled-command-function=.
 #+name: lst:configure-disabled-command-function
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (setq disabled-command-function
         (defun enable-this-command (&rest _args)
@@ -1028,7 +1029,7 @@ Enable it and re-execute it."
 #+caption[Configure =interaction-log=]:
 #+caption: Configure =interaction-log=.
 #+name: lst:configure-interaction-log
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'interaction-log)
            (require 'interaction-log nil 'noerror))
 
@@ -1055,7 +1056,7 @@ Listing [[lst:configure-keycast]] configures =keycast=.
 #+caption[Configure =keycast=]:
 #+caption: Configure =keycast=.
 #+name: lst:configure-keycast
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 ;; Make `keycast-log-update-buffer' use a buffer similar to the
 ;; control buffer `ediff-setup-windows-plain' returns.
 (when (and (ensure-package-installation 'keycast)
@@ -1107,7 +1108,7 @@ The code in listing [[lst:start-emacs-server]] starts the Emacs server.
 #+caption[Start the Emacs server]:
 #+caption: Start the Emacs server.
 #+name: lst:start-emacs-server
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when window-system
   (unless (or noninteractive (daemonp))
     (add-hook 'after-init-hook #'server-start)))
@@ -1129,7 +1130,7 @@ make use of the =latexmkrc= file.
 #+caption[Tangle the =Latexmk= resource file]:
 #+caption: Tangle the =Latexmk= resource file.
 #+name: lst:latexmkrc
-#+begin_src perl :tangle latexmkrc :comments no
+#+begin_src perl -n :tangle latexmkrc :comments no
 # pdf creator
 $pdf_mode = 4;  # 4 means lualatex
 # pdf previewer and update pdf previewer
@@ -1175,7 +1176,7 @@ may hang or die.
 #+header: :comments no
 #+header: :tangle-mode (identity #o755)
 #+name: lst:qutebrowser-userscript
-#+begin_src python :noeval :tangle org-store-link
+#+begin_src python -n :noeval :tangle org-store-link
 #!/usr/bin/env python
 from urllib.parse import urlencode
 from os import environ, execvp
@@ -1205,7 +1206,7 @@ execvp("emacsclient", ("-n", payload))
 #+caption[Ensure =applescript-mode= installation]:
 #+caption: Ensure =applescript-mode= installation.
 #+name: lst:ensure-applescript-mode-installation
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'applescript-mode))
 #+end_src
 
@@ -1264,7 +1265,7 @@ ensures its installation.
 #+caption[Ensure =company= installation]:
 #+caption: Ensure =company= installation.
 #+name: lst:ensure-company-installation
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (ensure-package-installation 'company)
 #+end_src
 
@@ -1281,7 +1282,7 @@ file.
 #+caption[Enable =savehist-mode= and =vertico-mode=]:
 #+caption: Enable =savehist-mode= and =vertico-mode=.
 #+name: lst:enable-vertico-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (require 'savehist nil 'noerror)
   (setopt savehist-additional-variables '(eww-history
                                           kill-ring
@@ -1337,7 +1338,7 @@ file.
 #+caption[Configure =orderless=]:
 #+caption: Configure =orderless=.
 #+name: lst:configure-orderless
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'marginalia)
   (with-eval-after-load 'orderless
     (setopt orderless-component-separator " +")
@@ -1372,7 +1373,7 @@ Listing [[lst:bind-embark-commands][bind =embark= commands]] binds =embark= comm
 #+caption[Bind =embark= commands globally]:
 #+caption: Bind =embark= commands globally.
 #+name: lst:bind-embark-commands
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'embark 'embark-consult)
   (when (fboundp 'embark-act)
     (global-set-key (kbd "C-,") #'embark-act))
@@ -1394,7 +1395,7 @@ Listing [[lst:enable-marginalia-mode]] enables =marginalia-mode=.
 #+caption[Enable =marginalia-mode=]:
 #+caption: Enable =marginalia-mode=.
 #+name: lst:enable-marginalia-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'marginalia)
            (fboundp 'marginalia-mode))
   (marginalia-mode +1))
@@ -1459,7 +1460,7 @@ completion function [[info:elisp#Minibuffer Completion][completing-read]].  List
 #+caption[Bind =consult= commands]:
 #+caption: Bind =consult= commands.
 #+name: lst:bind-consult-commands
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'consult)
   ;; C-c bindings (current-global-map)
   (global-set-key (kbd "C-c h") #'consult-history)
@@ -1500,7 +1501,7 @@ Listing [[lst:setup-company]] configures =company=.
 #+caption[Setup =company=]:
 #+caption: Setup =company=.
 #+name: lst:setup-company
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (fboundp 'company-mode)
   ;; https://github.com/purcell/emacs.d/issues/778
   (setopt company-transformers '(company-sort-by-occurrence))
@@ -1563,7 +1564,7 @@ the current [[https://en.wikipedia.org/wiki/Version_control][VCS]] directory tre
 #+caption[Bind =deadgrep= commands]:
 #+caption: Bind =deadgrep= commands.
 #+name: lst:bind-deadgrep-commands
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'deadgrep)
            (fboundp 'deadgrep))
   (define-key search-map (kbd "d") #'deadgrep)
@@ -1584,7 +1585,7 @@ implementation of the suggestions on those pages.
 #+caption[Set =grep= and =xref= options to use =ugrep= when available]:
 #+caption: Set =grep= and =xref= options to use =ugrep= when available.
 #+name: lst:set-grep+xref-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (executable-find "ugrep")
   (with-eval-after-load 'grep
     (setopt grep-template (string-join '("ugrep"
@@ -1620,7 +1621,7 @@ regexp strings.
 #+caption[Ensure =xr= installation]:
 #+caption: Ensure =xr= installation.
 #+name: lst:ensure-xr-installation
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'xr))
 #+end_src
 
@@ -1643,7 +1644,7 @@ single frame and to make all text visible prior to ediffing Org buffers.
 #+caption[Setup =ediff=]:
 #+caption: Setup =ediff=.
 #+name: lst:setup-ediff
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (setopt ediff-merge-split-window-function #'split-window-horizontally
           ediff-split-window-function #'split-window-horizontally
@@ -1673,7 +1674,7 @@ or src_emacs-lisp{(magit-push-current-to-upstream)}.
 #+caption[Forking and branching on Github or Gitlab]:
 #+caption: Forking and branching on Github or Gitlab.
 #+name: lst:forking-and-branching-remote-repositories
-#+begin_src shell :noeval
+#+begin_src shell -n :noeval
 # Clone the repository
 git clone git@github.com:gav451/engrave-faces engrave-faces-fork
 cd engrave-face-fork
@@ -1713,7 +1714,7 @@ git checkout master
 #+caption[List all =git= branches]:
 #+caption: List all =git= branches.
 #+name: lst:list-all-git-branches
-#+begin_src shell :exports both :results verbatim
+#+begin_src shell -n :exports both :results verbatim
 git -C ~/VCS/engrave-faces-fork branch -a
 #+end_src
 
@@ -1739,7 +1740,7 @@ snippet [[lst:ensure-magit-installation][below]] ensures its installation.
 #+caption[Ensure =Magit= installation]:
 #+caption: Ensure =Magit= installation
 #+name: lst:ensure-magit-installation
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (ensure-package-installation 'magit)
 #+end_src
 
@@ -1769,7 +1770,7 @@ Listing [[lst:configure-nov]] configures [[https://depp.brause.cc/nov.el/][nov.e
 #+caption[Configure =nov=]:
 #+caption: Configure =nov=.
 #+name: lst:configure-nov
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'nov)
            (fboundp 'nov-mode))
   (add-to-list 'auto-mode-alist `(,(rx ".epub" eos) . nov-mode)))
@@ -1792,7 +1793,7 @@ rebuild the =epdfinfo= executable that serves the [[https://en.wikipedia.org/wik
 #+caption[Setup =pdf-tools=]:
 #+caption: Setup =pdf-tools=.
 #+name: lst:setup-pdf-tools
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'pdf-tools 'saveplace-pdf-view)
            (fboundp 'pdf-loader-install))
   ;; `pdf-loader-install' is the lazy equivalent of `pdf-tools-install':
@@ -1843,7 +1844,7 @@ configuration objectives:
 #+caption[Ensure =AUCTeX= installation and set =TeX= option]:
 #+caption: Ensure =AUCTeX= installation and set =TeX= option.
 #+name: lst:set-tex-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'auctex)
   ;; Use `require' to make `TeX-master' a safe local variable.
   (when (require 'tex nil 'noerror)
@@ -1861,7 +1862,7 @@ configuration objectives:
 #+caption[Update the =LuaLaTeX OpenType Font=  name database]:
 #+caption: Update the =LuaLaTeX= =OpenType Font= name database.
 #+name: lst:update-lualatex-opentype-font-name-database
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun update-lualatex-opentype-font-name-database ()
     "Update the \"OpenType Font\" name database for \"LuaLaTeX\"."
@@ -1877,7 +1878,7 @@ configuration objectives:
 #+caption[Set =bibtex= options]:
 #+caption: Set =bibtex= options.
 #+name: lst:set-bibtex-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'bibtex
   (setopt bibtex-dialect 'BibTeX))
 #+end_src
@@ -1885,7 +1886,7 @@ configuration objectives:
 #+caption[Set =font-latex= options]:
 #+caption: Set =font-latex= options.
 #+name: lst:set-font-latex-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'font-latex
   (setopt font-latex-fontify-sectioning 1.0))
 #+end_src
@@ -1893,7 +1894,7 @@ configuration objectives:
 #+caption[Set =latex= options]:
 #+caption: Set =latex= options.
 #+name: lst:set-latex-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'latex
   (setopt LaTeX-electric-left-right-brace t
           LaTeX-section-hook '(LaTeX-section-heading
@@ -1914,7 +1915,7 @@ buffers with help of an external [[https://nodejs.org][node.js]] program.
 #+caption[Setup =math-preview=]:
 #+caption: Setup =math-preview=.
 #+name: lst:setup-math-preview
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'math-preview)
   (with-eval-after-load 'math-preview
     ;; https://docs.mathjax.org/en/latest/input/tex/extensions/physics.html
@@ -1979,7 +1980,7 @@ zeromatrix zmat")))
 #+caption[Configure =markdown-mode=]:
 #+caption: Configure =markdown-mode=.
 #+name: lst:configure-markdown-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'markdown-mode))
 #+end_src
 
@@ -1999,7 +2000,7 @@ of the [[info:org#Top][Org (info)]] manual.
 #+caption[Bind =Org= commands globally]:
 #+caption: Bind =Org= commands globally.
 #+name: lst:bind-org-commands
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (global-set-key (kbd "C-c a") #'org-agenda)
   (global-set-key (kbd "C-c c") #'org-capture)
@@ -2040,7 +2041,7 @@ list detailing and motivating each listing:
 #+caption[Set basic =Org= options]:
 #+caption: Set basic =Org= options.
 #+name: lst:set-org-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'org
   (setopt
    org-babel-load-languages
@@ -2090,7 +2091,7 @@ list detailing and motivating each listing:
 #+caption[Setup =org-babel=]:
 #+caption: Setup =org-babel=.
 #+name: lst:setup-org-babel
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ob-core
   (setopt org-confirm-babel-evaluate nil))
 
@@ -2144,7 +2145,7 @@ unbind the `org-babel' interface functions when ACTIVE is nil."
 #+caption[Set =org-link= options]:
 #+caption: Set =org-link= options.
 #+name: lst:set-org-link-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ol
   (setopt org-link-file-path-type 'relative))
 #+end_src
@@ -2152,7 +2153,7 @@ unbind the `org-babel' interface functions when ACTIVE is nil."
 #+caption[Setup =org-mode-map=]:
 #+caption: Setup =org-mode-map=.
 #+name: lst:setup-org-mode-map
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; From: "Nicolas Richard" <theonewiththeevillook@yahoo.fr>
   ;; Date: Fri, 08 Mar 2013 16:23:02 +0100	[thread overview]
@@ -2199,7 +2200,7 @@ When called twice, replace the previously inserted \\(\\) by one $."
 #+caption[Setup =org-src=]:
 #+caption: Setup =org-src=.
 #+name: lst:setup-org-src
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (with-eval-after-load 'org-src
     (setopt org-src-preserve-indentation t))
@@ -2228,7 +2229,7 @@ When called twice, replace the previously inserted \\(\\) by one $."
 #+caption[Setup =ob-python=]:
 #+caption: Setup =ob-python=.
 #+name: lst:setup-ob-python
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ob-python
   (defun org-babel-python-format-session-value-override
       (src-file result-file result-params)
@@ -2267,7 +2268,7 @@ else:
 #+caption[Set =org-export= options]:
 #+caption: Set =org-export= options.
 #+name: lst:set-org-export-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ox
   (setopt org-export-dispatch-use-expert-ui t))
 #+end_src
@@ -2275,7 +2276,7 @@ else:
 #+caption[Setup =org= for export to LuaLaTeX]:
 #+caption: Setup =org= for export to LuaLaTeX.
 #+name: lst:setup-org-for-lualatex-export
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'org
   ;; https://list.orgmode.org/87o84fd4oi.fsf@posteo.net/
   (add-to-list
@@ -2310,7 +2311,7 @@ else:
 #+caption[Set =ox-latex= options for export to LuaLaTeX]:
 #+caption: Set =ox-latex= options for export to LuaLaTeX.
 #+name: lst:set-ox-latex-options-for-lualatex-export
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ox-latex
   (setopt
    org-latex-compiler "lualatex"
@@ -2352,7 +2353,7 @@ else:
 #+caption[Setup =org-latex-classes= for backwards compatibility]:
 #+caption: Setup =org-latex-classes= for backwards compatibility.
 #+name: lst:setup-org-latex-classes
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ox-latex
   (mapc (function (lambda (element)
                     (add-to-list 'org-latex-classes element)))
@@ -2430,7 +2431,7 @@ processor, text to product convertor) to an Emacs setup.  Listing
 #+caption[Set =org-cite= and =citar= options]:
 #+caption: Set =org-cite= and =citar= options.
 #+name: lst:set-org-cite+citar-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'oc
   ;; Org-9.5 needs the requirements, but Org-9.6 does not.
   (when (version< (org-version) "9.6")
@@ -2491,7 +2492,7 @@ valid directories and files.  In an [[https://orgmode.org/][Org-mode]] buffer th
 #+caption[Delete =Biber= cache when =Biber= fails to make a bibliography]:
 #+caption: Delete =Biber= cache when =Biber= fails to make a bibliography.
 #+name: lst:delete-biber-cache
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; https://tex.stackexchange.com/a/579356 answers
   ;; "How to solve Biber exiting with error code 2 but no error messages?"
@@ -2540,7 +2541,7 @@ the user-friendliness of this facility to a level acceptable for my workflow:
 #+caption: blocks to floating unbreakable LaTeX environments or non-floating
 #+caption: breakable LaTeX environments.
 #+name: lst:org-latex-engraved-source-block-filter
-#+begin_src emacs-lisp :results silent
+#+begin_src emacs-lisp -n :results silent
 (ensure-package-installation 'engrave-faces)
 
 (defun org-latex-engraved-source-block-filter (data _backend _info)
@@ -2572,7 +2573,7 @@ environment and an unbreakable Code (floating) environment."
 #+caption[Smart LaTeX engraving of =org-src-mode= blocks]:
 #+caption: Smart LaTeX engraving of =org-src-mode= blocks.
 #+name: lst:smart-latex-engrave-org-source-blocks
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (defun smart-latex-engrave-org-source-blocks ()
   "Enable smart LaTeX engraving of `org-src-mode' blocks.
 
@@ -2623,7 +2624,7 @@ environments and non-floating breakable LaTeX environments by means of
 #+caption[Emacs setup to use =engrave-faces-latex= in =org-mode= smartly]:
 #+caption: Emacs setup to use =engrave-faces-latex= in =org-mode= smartly.
 #+name: lst:ox-engraved-emacs-lisp-setup
-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp -n :tangle no
 (with-eval-after-load 'ox
   (make-variable-buffer-local 'org-export-filter-src-block-functions)
   (add-to-list 'org-export-filter-src-block-functions
@@ -2652,7 +2653,7 @@ The listings below implement or reimplement three groups of =org-link= types:
 #+caption[Define =org-link= types for backwards compatibility with =org-ref=]:
 #+caption: Define =org-link= types for backwards compatibility with =org-ref=.
 #+name: lst:org-ref-like-org-link-types
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ol
   (org-link-set-parameters "ac*" :export #'org-ref-ac*-export)
   (org-link-set-parameters "cite" :export #'org-ref-cite-export)
@@ -2695,7 +2696,7 @@ The listings below implement or reimplement three groups of =org-link= types:
 #+caption[Define an =org-link= type for =pdf-tools=]:
 #+caption: Define an =org-link= type for =pdf-tools=.
 #+name: lst:define-org-pdfview-link-type
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ol
   (autoload 'pdf-view-goto-page "pdf-view" nil t)
   (org-link-set-parameters "pdfview"
@@ -2745,7 +2746,7 @@ facilate moving single directories or whole directory trees."
 #+caption[Patch =ol-info=]:
 #+caption: Patch =ol-info=.
 #+name: lst:patch-org-info-link-type
-#+begin_src emacs-lisp :exports code :results silent
+#+begin_src emacs-lisp -n :exports code :results silent
 (with-eval-after-load 'ol-info
   (defun org-info-export (path desc format)
     "Export an info link.
@@ -2774,7 +2775,7 @@ See `org-link-parameters' for details about PATH, DESC and FORMAT."
 #+caption[Patch buffer local =ol-info=]:
 #+caption: Patch buffer local =ol-info=.
 #+name: lst:emacs-lisp-setup-buffer-local-ol-info
-#+begin_src emacs-lisp :exports code :results silent :tangle no
+#+begin_src emacs-lisp -n :exports code :results silent :tangle no
 (with-eval-after-load 'ol-info
   (make-variable-buffer-local 'org-info-emacs-documents)
   (setq org-info-emacs-documents (delete "org" org-info-emacs-documents))
@@ -2807,7 +2808,7 @@ The following posts provide programming information:
 2. [[https://developers.google.com/youtube/iframe_api_reference][YouTube Player API reference for iframe embeds]].
 3. [[https://www.alphr.com/how-to-link-specific-timestamp-youtube/][How to link to a specific timestamp in a YouTube video]].
 
-#+begin_src emacs-lisp :exports none :tangle no
+#+begin_src emacs-lisp -n :exports none :tangle no
 ;; https://www.youtube.com/embed/M03bTkQxVUg?start=30&end=120
 
 (org-yt-seconds-to-hms (+ (* 3600 120) (* 60 9) 7))
@@ -2845,7 +2846,7 @@ The following posts provide programming information:
 #+caption[Parsing function for the =org-yt= link type]:
 #+caption: Parsing function for the =org-yt= link type.
 #+name: lst:org-yt-parsing
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (defun org-yt-time-to-seconds (text)
   "Convert TEXT of the form `12:34:56' or `12h34m56s' to seconds as integers."
   (let* ((case-fold-search t)
@@ -2891,7 +2892,7 @@ The following posts provide programming information:
 #+caption[Formatting functions to open =org-yt= links]:
 #+caption: Formatting functions to open =org-yt= links.
 #+name: lst:org-yt-open-formatting
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (defun org-yt-seconds-to-hms (seconds)
   "Convert seconds as integers to text of the form `12h34m56s'."
   (let ((h (/ seconds 3600))
@@ -2930,7 +2931,7 @@ The following posts provide programming information:
 #+caption[Formatting function for HTML export of =org-yt= links]:
 #+caption: Formatting function for HTML export of =org-yt= links.
 #+name: lst:org-yt-html-export-formatting
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (defconst org-yt-iframe
   "<iframe
   frameborder=\"0\" width=\"600\" height=\"450\"
@@ -2956,7 +2957,7 @@ The following posts provide programming information:
 #+caption[Define an =org-link= type for =YouTube=]:
 #+caption: Define an =org-link= type for =YouTube=.
 #+name: lst:define-org-yt-link-type
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (defun org-yt-open (path prefix)
   "Open an \"yt\" type link with `browse-url', `emms', or \"mpv\".
 PATH is a string containing the video ID and optional timing information.
@@ -3009,7 +3010,7 @@ Open the link with `browse-url' if PREFIX else with `emms' or \"mpv\"."
 #+caption[Convert upper to lower case keywords]:
 #+caption: Convert upper to lower case keywords.
 #+name: lst:convert-upper-to-lower-case-keywords
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; https://tecosaur.github.io/emacs-config/#translate-capital-keywords
   (defun org-syntax-convert-keyword-case-to-lower ()
@@ -3037,7 +3038,7 @@ Open the link with `browse-url' if PREFIX else with `emms' or \"mpv\"."
 #+caption[Evaluate specific source blocks at load-time]:
 #+caption: Evaluate specific source blocks at load-time.
 #+name: lst:load-time-specific-source-block-evaluation
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun org-eval-named-blocks-with-infix (infix)
     "Evaluate all source blocks having INFIX in their name."
@@ -3092,7 +3093,7 @@ new [[info:org#Editing Source Code][<LANGUAGE>-modes]]: =latex-header= and =late
 #+caption: LaTeX preamble =latex_header= and =latex_extra_header= export options
 #+caption: easily.
 #+name: lst:org-babel-latex-header-blocks
-#+begin_src emacs-lisp :exports code :results silent
+#+begin_src emacs-lisp -n :exports code :results silent
 (with-eval-after-load 'emacs
   (defun prefix-all-lines (prefix body)
     (with-temp-buffer
@@ -3135,7 +3136,7 @@ this broken function (broken, since it relies on support only in org-mode before
 #+caption[Convert marked LaTeX export blocks to LaTeX header lines]:
 #+caption: Convert marked LaTeX export blocks to LaTeX header lines.
 #+name: lst:org-latex-header-blocks-filter
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ox
   (defun org-latex-header-blocks-filter (backend)
     "Convert marked LaTeX export blocks to \"#+latex_header: \" lines.
@@ -3200,7 +3201,7 @@ define the [[https://orgmode.org/][Org mode]] =kbd= macro in listing
 #+caption[Define Emacs Lisp utilities to define the =Org-mode= =kbd= macro]:
 #+caption: Define Emacs Lisp utilities to define the =Org-mode= =kbd= macro.
 #+name: lst:by-backend-kbd-org-macro
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (when (ensure-package-installation 'htmlize)
     (autoload 'htmlize-protect-string "htmlize" nil t))
@@ -3237,10 +3238,10 @@ inclusion (info)]] and [[info:org#Noweb Reference Syntax][noweb (info)]] tricker
 #+caption: settings, the definition of the Org-mode =kbd= macro, and the
 #+caption: source block that generates part of the LaTeX preamble.
 #+name: lst:source-file-export-keyword-settings
-#+include: "README.org" src org :lines "1-17"
+#+include: "README.org" src org -n :lines "1-17"
 
 #+name: latex-header-1
-#+begin_src latex :exports none
+#+begin_src latex -n :exports none
 % Begin of the LaTeX preamble:
 % See: https://list.orgmode.org/87o807r7fr.fsf@posteo.net/
 % From: "Juan Manuel Macías" <maciaschain@posteo.net>
@@ -3280,12 +3281,12 @@ inclusion (info)]] and [[info:org#Noweb Reference Syntax][noweb (info)]] tricker
 #+caption[LaTeX preamble: replacing the =Org-mode= default packages]:
 #+caption: LaTeX preamble: replacing the =Org-mode= default packages.
 #+name: lst:latex-header-1
-#+begin_src latex :exports code :noweb yes
+#+begin_src latex -n :exports code :noweb yes
 <<latex-header-1>>
 #+end_src
 
 #+name: latex-header-2
-#+begin_src latex :exports none
+#+begin_src latex -n :exports none
 % LANGUAGE:
 \usepackage{babel}
 \usepackage{fvextra}
@@ -3320,12 +3321,12 @@ inclusion (info)]] and [[info:org#Noweb Reference Syntax][noweb (info)]] tricker
 #+caption[LaTeX preamble: language, lists and floats]:
 #+caption: LaTeX preamble: language, lists and floats.
 #+name: lst:latex-header-2
-#+begin_src latex :exports code :noweb yes
+#+begin_src latex -n :exports code :noweb yes
 <<latex-header-2>>
 #+end_src
 
 #+name: latex-header-3
-#+begin_src latex :exports none
+#+begin_src latex -n :exports none
 % PAGE LAYOUT:
 \usepackage{fancyhdr}
 \usepackage{lastpage}
@@ -3348,12 +3349,12 @@ inclusion (info)]] and [[info:org#Noweb Reference Syntax][noweb (info)]] tricker
 #+caption[LaTeX preamble: page layout and technics]:
 #+caption: LaTeX preamble: page layout.
 #+name: lst:latex-header-3
-#+begin_src latex :exports code :noweb yes
+#+begin_src latex -n :exports code :noweb yes
 <<latex-header-3>>
 #+end_src
 
 #+name: latex-header-4
-#+begin_src latex :exports none
+#+begin_src latex -n :exports none
 % FLOAT BARRIERS:
 % https://tex.stackexchange.com/questions/118662/use-placeins-for-subsections
 % Make section an implicit float barrier:
@@ -3379,12 +3380,12 @@ inclusion (info)]] and [[info:org#Noweb Reference Syntax][noweb (info)]] tricker
 #+caption[LaTeX preamble: float barriers]:
 #+caption: LaTeX preamble: float barriers.
 #+name: lst:latex-header-4
-#+begin_src latex :exports code :noweb yes
+#+begin_src latex -n :exports code :noweb yes
 <<latex-header-4>>
 #+end_src
 
 #+name: latex-header-5
-#+begin_src latex :exports none
+#+begin_src latex -n :exports none
 % FANCY HEADERS AND FOOTERS:
 % Add fancy headers and footers to normal pages.
 \pagestyle{fancy}
@@ -3428,7 +3429,7 @@ inclusion (info)]] and [[info:org#Noweb Reference Syntax][noweb (info)]] tricker
 #+caption[LaTeX preamble: fancy headers and footers]:
 #+caption: LaTeX preamble: fancy headers and footers.
 #+name: lst:latex-header-5
-#+begin_src latex :exports code :noweb yes
+#+begin_src latex -n :exports code :noweb yes
 <<latex-header-5>>
 #+end_src
 
@@ -3449,7 +3450,7 @@ exporting from Org-mode to LaTeX.
 #+caption: Define buffer local =ox-latex= variables.
 #+header: :var title-page=lst/title-page
 #+name: lst:ox-latex-emacs-lisp-setup
-#+begin_src emacs-lisp :results silent :tangle no
+#+begin_src emacs-lisp -n :results silent :tangle no
 (when (require 'ox-latex nil 'noerror)
   ;; https://emacs.stackexchange.com/questions/47347/
   ;; customizing-org-latex-title-command-to-edit-title-page
@@ -3484,7 +3485,7 @@ exporting from Org-mode to LaTeX.
 #+caption[Show a title-page example for =org-latex-title-command=]:
 #+caption: Show a title-page example for =org-latex-title-command=.
 #+name: lst/title-page
-#+begin_src latex :exports code :results silent :tangle no
+#+begin_src latex -n :exports code :results silent :tangle no
 \begin{titlepage}
   %% https://tex.stackexchange.com/questions/506102/
   %% adding-header-and-footer-to-custom-titlepage
@@ -3524,7 +3525,7 @@ non-interactive =org-element= functions to an =Emacs-lisp= buffer.
 #+caption[Grok how =org-element= parses your document]:
 #+caption: Grok how =org-element= parses your document.
 #+name: lst:grok-org-element-tree
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'org-element
   (when (require 'pp nil 'noerror)
     (defconst grok-org-output
@@ -3583,7 +3584,7 @@ abbreviation definitions in this file by means of:
 #+caption[Definition of the =misspellings-abbrev= keyboard macro]:
 #+caption: Definition of the =misspellings-abbrev= keyboard macro.
 #+name: lst:misspellings-abbrev
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun browse-common-misspellings ()
     "Open the Wikipedia page of common misspellings for machines in EWW."
@@ -3604,7 +3605,7 @@ Listing [[lst:word-games]] defines the =anagram-p= function that migth be used g
 #+caption[Word games]:
 #+caption: Word games.
 #+name: lst:word-games
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 ;; https://funcall.blogspot.com/2022/07/lets-play-wordle.html
 ;; https://github.com/tabatkins/wordle-list
 (defun anagram-p (evil vile)
@@ -3647,7 +3648,7 @@ I am using the following Debian Bullseye dictionaries on Darwin and Gentoo:
 #+caption: Resource file for =dict= on =Darwin=.
 #+name: lst:darwin-dict-resource-file
 #+header: :tangle (if (eq 'darwin system-type) "~/.dictrc" "no")
-#+begin_src conf
+#+begin_src conf -n
 # https://jpmens.net/2020/03/08/looking-up-words-with-dict/
 server 127.0.0.1 {
    port 2628
@@ -3660,7 +3661,7 @@ server 127.0.0.1 {
 #+caption[Make a configuration file for =dictd= on =Darwin=]:
 #+caption: Make a configuration file for =dictd= on =Darwin=.
 #+name: lst:dictd-configuration-file
-#+begin_src shell :eval (if (eq 'darwin system-type) "yes" "never") :results silent
+#+begin_src shell -n :eval (if (eq 'darwin system-type) "yes" "never") :results silent
 cat > ~/.dictd.conf <<EOF
 # https://www.masteringemacs.org/article/wordsmithing-in-emacs
 database devil {
@@ -3693,7 +3694,7 @@ EOF
 #+caption[Run =dictd= in debug mode on =Darwin=]:
 #+caption: Run =dictd= in debug mode on =Darwin=.
 #+name: lst:darwin-dictd-launch
-#+begin_src shell :eval never :tangle no
+#+begin_src shell -n :eval never :tangle no
 # https://jpmens.net/2020/03/08/looking-up-words-with-dict/
 /usr/local/sbin/dictd \
     --config .dictd.conf \
@@ -3716,7 +3717,7 @@ etymology, or thesaurus back-ends (currently limited to [[https://en.wikipedia.o
 #+caption[Configure =lexic=]:
 #+caption: Configure =lexic=.
 #+name: lst:configure-lexic
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'lexic)
   ;; http://download.huzheng.org/fr/
   ;; https://polyglotte.tuxfamily.org/doku.php?id=donnees:dicos_bilingues
@@ -3746,7 +3747,7 @@ the [[https://github.com/gromnitsky/wordnut#readme][wordnut]] prerequisites.
 #+caption[System check for =wordnut=]:
 #+caption: System check for =wordnut=.
 #+name: lst:check-wordnut
-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp -n :tangle no
 (when (ensure-package-installation 'wordnut)
   (with-eval-after-load 'wordnut
     (if-let ((wn (executable-find "wn")))
@@ -3766,7 +3767,7 @@ Listing [[lst:configure-writegood-mode]] configures [[https://github.com/bnbeckw
 #+caption[Configure =writegood-mode=]:
 #+caption: Configure =writegood-mode=.
 #+name: lst:configure-writegood-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'writegood-mode)
            (fboundp 'writegood-mode))
   (global-set-key (kbd "C-c g") #'writegood-mode))
@@ -3807,7 +3808,7 @@ configuration:
 #+caption[Ensure =eglot= installation with minimal setup]:
 #+caption: Ensure =eglot= installation with minimal setup.
 #+name: lst:minimal-eglot-setup
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; Replace `nil' with `t' for debugging.
   (when nil
@@ -3827,7 +3828,7 @@ configuration:
 #+caption[Help to setup any =org-src-mode= buffers for =eglot=]:
 #+caption: Help to setup any =org-src-mode= buffers for =eglot=.
 #+name: lst:help-setup-org-src-mode-for-eglot
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defcustom eglot-maybe-ensure-modes '(python-mode)
     "Modes where maybe `eglot-ensure' should be or has been called.
@@ -3872,7 +3873,7 @@ the Org-mode source block code before calling `eglot-ensure'."
 #+caption[Setup Python =org-src-mode= buffers for =eglot=]:
 #+caption: Setup Python =org-src-mode= buffers for =eglot=.
 #+name: lst:setup-python-org-src-mode-for-eglot
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   ;; https://www.reddit.com/r/emacs/comments/w4f4u3
   ;; /using_rustic_eglot_and_orgbabel_for_literate/
@@ -3902,7 +3903,7 @@ This is to advice `org-edit-src-exit' and `org-edit-src-save'."
 #+caption[Experimental =narrow-format-all:python=]:
 #+caption: Experimental =narrow-format-all:python=.
 #+name: lst:narrow-format-all-python
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (fboundp 'format-all-buffer)
   (defun narrow-format-all:python ()
     "Format narrowed Python `org-src-mode' buffers correctly.
@@ -3935,7 +3936,7 @@ prepared buffers."
 #+caption[Start =eglot= in case of a proper =dir-local-variables-alist=]:
 #+caption: Start =eglot= in case of a proper =dir-local-variables-alist=.
 #+name: lst:eglot-maybe-ensure
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (defun eglot-maybe-ensure ()
     (when (and (apply #'derived-mode-p eglot-maybe-ensure-modes)
@@ -3962,7 +3963,7 @@ Listing [[lst:configure-format-all]]:
 #+caption[Configure =format-all=]:
 #+caption: Configure =format-all=.
 #+name: lst:configure-format-all
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 ;; https://github.com/lassik/emacs-format-all-the-code#readme
 ;; https://ianyepan.github.io/posts/format-all/
 ;; https://jamesaimonetti.com/posts/formatting-tangled-output-in-org-mode/
@@ -3978,7 +3979,8 @@ Listing [[lst:configure-format-all]]:
          (setq-local format-all-formatters '(("Python" black)))
          (format-all-buffer)
          (save-buffer)
-         (message "Saved reformatted tangled buffer `%s'" (buffer-file-name)))))))
+         (message "Saved reformatted tangled buffer `%s'"
+                  (buffer-file-name)))))))
 #+end_src
 
 ** [[info:flymake#Top][Flymake (info)]]
@@ -4015,7 +4017,7 @@ Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://ww
 #+caption[Configure =sly=]:
 #+caption: Configure =sly=.
 #+name: lst:configure-sly
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'sly)
   (with-eval-after-load 'sly
     ;; Set `sly-default-lisp' instead of `inferior-lisp-program',
@@ -4052,7 +4054,7 @@ Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://ww
 #+caption: Script to dump a SBCL core for the Sly Common Lisp IDE.
 #+header: :tangle-mode (identity #o755)
 #+name: lst:sbcl-core-for-sly
-#+begin_src shell :noeval :tangle ~/bin/sbcl.core-for-sly
+#+begin_src shell -n :noeval :tangle ~/bin/sbcl.core-for-sly
 #!/bin/sh
 
 sbcl <<EOF
@@ -4093,7 +4095,7 @@ support.
 #+caption[Download and verify =quicklisp=]:
 #+caption: Download and verify =quicklisp=.
 #+name: lst:download+verify-quicklisp
-#+begin_src shell :dir ~ :results none :tangle no
+#+begin_src shell -n :dir ~ :results none :tangle no
 curl -sS -O https://beta.quicklisp.org/quicklisp.lisp
 curl -sS -O https://beta.quicklisp.org/quicklisp.lisp.asc
 curl -sS -O https://beta.quicklisp.org/release-key.txt
@@ -4105,7 +4107,7 @@ gpg --verify quicklisp.lisp.asc quicklisp.lisp
 #+caption: Bootstrap =quicklisp=.
 #+header: :tangle-mode (identity #o755)
 #+name: lst:bootstrap-quicklisp
-#+begin_src shell :noeval :tangle ~/bin/quicklisp-sbcl-bootstrap
+#+begin_src shell -n :noeval :tangle ~/bin/quicklisp-sbcl-bootstrap
 #!/bin/sh
 
 sbcl --load ~/quicklisp.lisp <<EOF
@@ -4123,7 +4125,7 @@ EOF
 #+caption[A =quicklisp= sbclrc file]:
 #+caption: A =quicklisp= sbclrc file.
 #+name: lst:quicklisp-sbclrc-file
-#+begin_src lisp :eval never-export :tangle ~/.sbclrc
+#+begin_src lisp -n :eval never-export :tangle ~/.sbclrc
 ;;; Hey Emacs, this is my -*- lisp -*- .sbclrc file.
 #-quicklisp
 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
@@ -4154,7 +4156,7 @@ src_emacs-lisp{(describe-function 'inferior-emacs-lisp-mode)}.
 #+caption[Setup =ielm=]:
 #+caption: Setup =ielm=.
 #+name: lst:setup-ielm
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'ielm
   (setopt ielm-dynamic-return nil))
 #+end_src
@@ -4174,7 +4176,7 @@ install and use [[https://gitlab.com/andreyorst/ob-fennel][ob-fennel]] with the
 #+caption[Install =fennel-mode= and =ob-fennel= when =fennel= is an executable]:
 #+caption: Install =fennel-mode= and =ob-fennel= when =fennel= is an executable.
 #+name: lst:install-ob-fennel-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (executable-find "fennel")
            (ensure-package-installation 'fennel-mode 'quelpa))
   (unless (package-installed-p 'ob-fennel)
@@ -4187,14 +4189,14 @@ install and use [[https://gitlab.com/andreyorst/ob-fennel][ob-fennel]] with the
 #+caption: Fennel example.
 #+header: :var x=10 y=20
 #+name: lst:fennel-example
-#+begin_src fennel :eval never-export :results silent :session fennel
+#+begin_src fennel -n :eval never-export :results silent :session fennel
 (+ x y)
 #+end_src
 
 #+caption[Install =Fennel= with luarocks on Darwin]:
 #+caption: Install =Fennel= with luarocks on Darwin.
 #+name: lst:install-fennel-on-darwin
-#+begin_src shell :eval never :results silent :tangle no
+#+begin_src shell -n :eval never :results silent :tangle no
 luarocks \
     install --local readline \
     HISTORY_INCDIR=/usr/local/opt/readline/include \
@@ -4209,7 +4211,7 @@ luarocks \
 #+caption[Install =lua-mode= in case of =Lua=]:
 #+caption: Install =lua-mode= in case of =Lua=.
 #+name: lst:install-lua-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (executable-find "lua")
            (ensure-package-installation 'company-lua 'lua-mode)))
 #+end_src
@@ -4217,7 +4219,7 @@ luarocks \
 #+caption[Lua example]:
 #+caption: Lua example.
 #+name: lst:lua-example
-#+begin_src lua :results silent :var x=10 y=20
+#+begin_src lua -n :results silent :var x=10 y=20
 return (x+y)
 #+end_src
 
@@ -4237,7 +4239,7 @@ in [[https://orgmode.org/][Org Mode]].
 #+caption[Configure =maxima=]:
 #+caption: Configure =maxima=.
 #+name: lst:configure-maxima
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'maxima 'company-maxima)
   (add-hook 'maxima-mode-hook #'maxima-hook-function)
   (add-hook 'maxima-inferior-mode-hook #'maxima-hook-function)
@@ -4250,7 +4252,7 @@ in [[https://orgmode.org/][Org Mode]].
 #+caption[Maxima example]:
 #+caption: Maxima example.
 #+name: lst:maxima-example
-#+begin_src maxima :exports code :results silent
+#+begin_src maxima -n :exports code :results silent
 print(1+1);
 #+end_src
 
@@ -4329,7 +4331,7 @@ Finally, listing [[lst:flake8-nocolor][flake8-nocolor]] and [[lst:ruff-nocolor][
 #+caption[Choose a common Python interpreter]:
 #+caption: Choose a common Python interpreter for =ob-python= and =python-mode=.
 #+name: lst:choose-common-python-interpreter
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (defun choose-common-python-interpreter (&optional interpreter)
   "Let `ob-python' and `python-mode' use the same Python INTERPRETER."
   (interactive)
@@ -4374,7 +4376,7 @@ Finally, listing [[lst:flake8-nocolor][flake8-nocolor]] and [[lst:ruff-nocolor][
 #+caption: Choose a common Python linter for =python-check-command= and
 #+caption: =python-flymake-command=.
 #+name: lst:choose-common-python-linter
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (defun choose-common-python-linter (&optional linter)
   "Let `python-check-command' and `python-flymake-command' use the same LINTER."
   (interactive)
@@ -4405,7 +4407,7 @@ Finally, listing [[lst:flake8-nocolor][flake8-nocolor]] and [[lst:ruff-nocolor][
 #+caption[Setup Python mode]:
 #+caption: Setup Python mode.
 #+name: lst:setup-python-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'python
   (setopt python-indent-guess-indent-offset nil
           python-shell-completion-native-disabled-interpreters '("ipython3"
@@ -4417,7 +4419,7 @@ Finally, listing [[lst:flake8-nocolor][flake8-nocolor]] and [[lst:ruff-nocolor][
 #+caption[Access =pyenv=]:
 #+caption: Access =pyenv=.
 #+name: lst:access-pyenv
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (executable-find "pyenv")
   (defun pyenv-full-path (version)
     "Return the full path for VERSION."
@@ -4463,7 +4465,7 @@ Complete the result with \"system\"."
 #+caption[Select the Python virtual environment]:
 #+caption: Select the Python virtual environment.
 #+name: lst:select-python-virtual-environment
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'python
   (when (cl-every #'fboundp '(pyenv-full-path
                               pyenv-version-name
@@ -4506,7 +4508,7 @@ Complete the result with \"system\"."
 #+caption[Kickoff =pyproject.toml= proposal]:
 #+caption: Kickoff =pyproject.toml= proposal.
 #+name: lst:pyproject-toml-kickoff
-#+begin_src toml :tangle pyproject.toml
+#+begin_src toml -n :tangle pyproject.toml
 # Use for instance "hatch new" to create or initialize a project.
 # See: https://pypi.org/project/hatch
 
@@ -4555,7 +4557,7 @@ convention = "numpy"
 #+caption[Kickoff =setup.cfg= proposal]:
 #+caption: Kickoff =setup.cfg= proposal.
 #+name: lst:setup-cfg-kickoff
-#+begin_src toml :tangle setup.cfg
+#+begin_src toml -n :tangle setup.cfg
 [flake8]
 docstring-convention = numpy
 extend-select = B,F,W
@@ -4576,7 +4578,7 @@ max-line-length = 88
 #+caption: Wrap =flake8= to remove color from text output.
 #+header: :tangle-mode (identity #o755)
 #+name: lst:flake8-nocolor
-#+begin_src shell :noeval :tangle ~/bin/flake8-nocolor
+#+begin_src shell -n :noeval :tangle ~/bin/flake8-nocolor
 #!/bin/sh
 
 flake8 "$@" | cat
@@ -4592,7 +4594,7 @@ flake8 "$@" | cat
 #+caption: Wrap =ruff= to remove color from text output.
 #+header: :tangle-mode (identity #o755)
 #+name: lst:ruff-nocolor
-#+begin_src shell :noeval :tangle ~/bin/ruff-nocolor
+#+begin_src shell -n :noeval :tangle ~/bin/ruff-nocolor
 #!/bin/sh
 
 ruff "$@" | cat
@@ -4629,7 +4631,7 @@ or to increase the verbosity of [[https://github.com/python-lsp/python-lsp-serve
 #+caption[Configure =eglot= with =python-lsp-ruff=]:
 #+caption: Configure =eglot= with =python-lsp-ruff=.
 #+name: lst:configure-eglot+pylsp-ruff
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'eglot
   (setq-default
    eglot-workspace-configuration
@@ -4653,7 +4655,7 @@ or to increase the verbosity of [[https://github.com/python-lsp/python-lsp-serve
 #+caption[Configure =eglot= with =python-lsp-server= and the =flake8= plugin]:
 #+caption: Configure =eglot= with =python-lsp-server= and the =flake8= plugin.
 #+name: lst:configure-eglot+pylsp+flake8
-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp -n :tangle no
 (with-eval-after-load 'eglot
   (setq-default
    eglot-workspace-configuration
@@ -4682,7 +4684,7 @@ or to increase the verbosity of [[https://github.com/python-lsp/python-lsp-serve
 #+caption: A =.dir-locals.el= file proposal for Python projects or Org-mode
 #+caption: projects tangling Python files to launch =eglot= automatically.
 #+name: lst:eglot-directory-variables-for-python
-#+begin_src emacs-lisp :tangle dir-locals.el
+#+begin_src emacs-lisp -n :tangle dir-locals.el
 ;; A .dir-locals.el file proposal in the root of any
 ;; Python project or Org-mode project tangling Python files
 ;; to launch eglot automatically.
@@ -4726,7 +4728,7 @@ a local fork of [[https://github.com/python-lsp/python-lsp-server][python-lsp-se
 #+caption[Make =pylsp-auto-import-modules.patch= listing]:
 #+caption: Make =pylsp-auto-import-modules.patch= listing.
 #+name: lst:make-pylsp-server-patch
-#+begin_src shell :exports code :results none
+#+begin_src shell -n :exports code :results none
   git -C $HOME/VCS/python-lsp-server diff >pylsp.patch
 #+end_src
 
@@ -4741,7 +4743,7 @@ with [[https://github.com/joaotavora/eglot][eglot]] works when coding for instan
 #+caption[Tangle the =example.py= file]:
 #+caption: Tangle the =example.py= file.
 #+name: lst:example-py
-#+begin_src python :tangle example.py
+#+begin_src python -n :tangle example.py
 import numpy
 import astropy.units as apu
 
@@ -4766,7 +4768,7 @@ configures =code-cells=.
 #+caption[Configure =code-cells=]:
 #+caption: Configure =code-cells=.
 #+name: lst:configure-code-cells
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'code-cells)
   (with-eval-after-load 'code-cells
     (let ((map code-cells-mode-map))
@@ -4797,7 +4799,7 @@ Emacs setup (for instance [[https://github.com/andras-simonyi/citeproc-el#readme
 #+caption[Configure =dash= fontification and info lookup]:
 #+caption: Configure =dash= fontification and info lookup.
 #+name: lst:configure-dash
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (fboundp #'global-dash-fontify-mode)
   (global-dash-fontify-mode))
 
@@ -4836,7 +4838,7 @@ setup and requires no configuration.
 #+caption[Enable =iedit=]:
 #+caption: Enable =iedit=.
 #+name: lst:enable-iedit
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'iedit)
   (require 'iedit nil 'noerror))
 #+end_src
@@ -4849,7 +4851,7 @@ setup and requires no configuration.
 #+caption[Configure =ws-butler=]:
 #+caption: Configure =ws-butler=.
 #+name: lst:configure-ws-butler
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'ws-butler)
            (require 'ws-butler nil 'noerror))
   (setopt ws-butler-keep-whitespace-before-point nil)
@@ -4900,7 +4902,7 @@ contrary to for instance [[https://github.com/Fanael/rainbow-delimiters#readme][
 #+caption[Configure =smartparens=]:
 #+caption: Configure =smartparens=.
 #+name: lst:configure-smartparens
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'smartparens)
            ;; Require `smartparens-config' instead of `smartparens' to
            ;; disable pairing of the quote character for lisp modes.
@@ -4946,7 +4948,7 @@ code formatter for Python]].
 #+caption[Configure =electric-operator=]:
 #+caption: Configure =electric-operator=.
 #+name: lst:configure-electric-operator
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'electric-operator)
            (fboundp 'electric-operator-mode))
   (add-hook 'c-mode-common-hook #'electric-operator-mode)
@@ -4961,7 +4963,7 @@ code formatter for Python]].
 #+caption[Enable =yas-global-mode=]:
 #+caption: Enable =yas-global-mode=.
 #+name: lst:enable-yas-global-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'yasnippet)
   ;; Set `yas-alias-to-yas/prefix-p' before loading `yasnippet'.
   (setopt yas-alias-to-yas/prefix-p nil)
@@ -4989,7 +4991,7 @@ and later.  Listing [[lst:setup-python-tempo]] configures =tempo= for =python-mo
 #+caption[Configure =tempo= user interface]:
 #+caption: Configure =tempo= user-interface.
 #+name: lst:configure-tempo-ui
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'tempo
   (setopt tempo-interactive t)
 
@@ -5016,7 +5018,7 @@ Allows `tempo' expansion by typing <SPC> after a complete `tempo' tag."
 #+caption[Configure =tempo= for =latex= with =completing-read=]:
 #+caption: Configure =tempo= for =latex= with =completing-read=.
 #+name: lst:configure-tempo-latex-completing-read
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'latex
   (unless (featurep 'tempo)
     (require 'tempo))
@@ -5051,7 +5053,7 @@ Allows `tempo' expansion by typing <SPC> after a complete `tempo' tag."
 #+caption[Configure =tempo= for =python-mode=]:
 #+caption: Configure =tempo= for =python-mode=.
 #+name: lst:setup-python-tempo
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'python
   (unless (featurep 'tempo)
     (require 'tempo))
@@ -5110,7 +5112,7 @@ on any Org table, Org source block, Org block, or Org subtree.
 #+caption[Configure =narrow-or-widen-dwim=]:
 #+caption: Configure =narrow-or-widen-dwim=.
 #+name: lst:configure-narrow-or-widen-dwim
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emacs
   (declare-function org-at-table-p "org" (&optional table-type))
 
@@ -5165,7 +5167,7 @@ and names in buffers for debugging.
 #+caption[Enable =rainbow-mode=]:
 #+caption: Enable =rainbow-mode=.
 #+name: lst:enable-rainbow-mode
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'rainbow-mode)
            (fboundp 'rainbow-mode))
   (setopt rainbow-x-colors-major-mode-list '(c++-mode
@@ -5191,7 +5193,7 @@ point movements visually.
 #+caption[Implement =flash-line-around-point=]:
 #+caption: Implement =flash-line-around-point=.
 #+name: lst:flash-line-around-point
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 ;; Ensure loading `pulse' with the dynamic variables `pulse-delay' and
 ;; `pulse-iterations' before masking them lexically instead of after
 ;; to prevent the warning triggered by lazy loading.
@@ -5232,7 +5234,7 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
 #+caption[Configure =browse-url=]:
 #+caption: Configure =browse-url=.
 #+name: lst:configure-browse-url
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'browse-url
   (defun browse-url-mpv (url &optional _)
     (start-process "mpv" nil "mpv" url))
@@ -5259,7 +5261,7 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
 #+caption[Configure =eww= URLs]:
 #+caption: Configure =eww= URLs.
 #+name: lst:configure-eww-urls
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (fboundp 'eww-browse-url)
   (defun eww-subreddit ()
     "Read a subreddit in Emacs."
@@ -5275,7 +5277,7 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
 #+caption[Rename =eww= buffers and display =pdf= links properly]:
 #+caption: Rename =eww= buffers and display =pdf= links properly.
 #+name: lst:rename-eww-buffer-display-pdf-links
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'eww
   (defun eww-display-pdf-as-binary (fn &rest args)
     (let ((buffer-file-coding-system 'binary))
@@ -5320,7 +5322,7 @@ Listing [[lst:ensure-hyperbole-installation][ensure Hyperbole installation]] wor
 #+caption[Ensure Hyperbole installation]:
 #+caption: Ensure Hyperbole installation and address two Hyperbole quirks.
 #+name: lst:ensure-hyperbole-installation
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'hyperbole)
   (unless (load "kotl-autoloads.el" 'noerror nil nil 'must-suffix)
     ;; See `package-generate-autoloads' for `loaddefs-generate' usage.
@@ -5380,7 +5382,7 @@ files.
 #+caption[Tangle =mailcap= file]:
 #+caption: Tangle =mailcap= file.
 #+name: lst:tangle-mailcap-file
-#+begin_src org :tangle ~/.mailcap
+#+begin_src org -n :tangle ~/.mailcap
 # https://emacs.stackexchange.com/a/24502 answers the question:
 # How to use pdf-tools (pdf-view-mode) in emacs?
 application/pdf; emacsclient %s
@@ -5398,7 +5400,7 @@ sets the =webjump-sites= option.
 #+caption[Set =webjump= options and bind the =webjump= command]:
 #+caption: Set =webjump= options and bind the =webjump= command.
 #+name: lst:set-webjump-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (fboundp 'webjump)
   (global-set-key (kbd "C-c j") 'webjump)
   (with-eval-after-load 'webjump
@@ -5469,7 +5471,7 @@ sets the =webjump-sites= option.
 #+caption[Configure =gnus=]:
 #+caption: Configure =gnus=.
 #+name: lst:configure-gnus
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'gnus
   (setopt gnus-select-method '(nntp "news.gmane.io")))
 
@@ -5502,7 +5504,7 @@ sets the =webjump-sites= option.
 #+caption[Configure =message=]:
 #+caption: Configure =message=.
 #+name: lst:configure-message
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (setopt user-full-name "Gerard Vermeulen"
         user-mail-address "gerard.vermeulen@posteo.net")
 (with-eval-after-load 'message
@@ -5512,7 +5514,7 @@ sets the =webjump-sites= option.
 #+caption[Configure =sendmail=]:
 #+caption: Configure =sendmail=.
 #+name: lst:configure-sendmail
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'sendmail
   (setopt mail-specify-envelope-from t
           mail-envelope-from 'header
@@ -5525,7 +5527,7 @@ sets the =webjump-sites= option.
 #+caption: Resource file for =msmtp= on =Darwin=.
 #+name: lst:darwin-msmpt-resource-file
 #+header: :tangle (if (eq 'darwin system-type) "~/.msmtprc" "no")
-#+begin_src conf
+#+begin_src conf -n
 # Set default values for all accounts.
 defaults
 auth on
@@ -5558,7 +5560,7 @@ passwordeval security find-generic-password -s cnrs -w
 #+caption: Resource file for =msmtp= on =Linux=.
 #+name: lst:linux-msmpt-resource-file
 #+header: :tangle (if (eq 'gnu/linux system-type) "~/.msmtprc" "no")
-#+begin_src conf
+#+begin_src conf -n
 # Set default values for all accounts.
 defaults
 auth on
@@ -5598,7 +5600,7 @@ command, and makes a minimal attempt to enable =emms=.
 #+caption[Set =elfeed= options and bind =elfeed= command]:
 #+caption: Set =elfeed= options and bind =elfeed= command.
 #+name: lst:set-elfeed-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (and (ensure-package-installation 'elfeed)
            (fboundp 'elfeed))
   (global-set-key (kbd "C-x w") #'elfeed)
@@ -5642,7 +5644,7 @@ using =emms= with =elfeed=.  Listing [[lst:set-emms-options]] configures =emms=.
 #+caption[Set =emms= options]:
 #+caption: Set =emms= options.
 #+name: lst:set-emms-options
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (when (ensure-package-installation 'emms)
   (with-eval-after-load 'emms
     (setopt emms-player-list '(emms-player-mpd emms-player-mpv))
@@ -5691,7 +5693,7 @@ for technical information.
 #+caption[Hiding =*spurious*= buffers]:
 #+caption: Hiding =*spurious*= buffers.
 #+name: lst:hiding-spurious-buffers
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (with-eval-after-load 'emms-player-mpd
   ;; https://www.masteringemacs.org/article/demystifying-emacs-window-manager
   ;; Hide `*spurious*' buffers, but you can always switch to them:
@@ -5712,7 +5714,7 @@ Darwin that keeps each new connection for a day in order to reduce the rate of
 #+caption[A Music Player Daemon configuration file on Darwin]:
 #+caption: A Music Player Daemon configuration file on Darwin.
 #+name: lst:darwin-mpd-conf
-#+begin_src conf :tangle (if (eq 'darwin system-type) "~/.mpd/mpd.conf" "no")
+#+begin_src conf -n :tangle (if (eq 'darwin system-type) "~/.mpd/mpd.conf" "no")
 music_directory         "~/Music"
 playlist_directory      "~/.mpd/playlists"
 db_file                 "~/.mpd/mpd.db"
@@ -5741,7 +5743,7 @@ audio_output {
 #+caption[Tangle the =user-init-file= footer]:
 #+caption: Tangle the =user-init-file= footer.
 #+name: lst:tangle-user-init-file-footer
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp -n
 (provide 'init)
 
 ;; Emacs looks for "Local variables:" after the last "newline-formfeed".