                                                       (kill-buffer "*Occur*"))
                                                     (delete-other-windows)
                                                     (my/find-emacs-init-file)
-                                                    (occur  "C-= [^C[]")))))
+                                                    ;; Occurences of "C-=" or "s-", excluding this and next line ;-)
+                                                    (occur "\\(\"C-= [^C[\"]+\"\\)\\|\\(\"s-[^C[\"]+\"\\)")))))
   :config
   (set-fontset-font                   t nil "Roboto Mono 13")
   (set-fontset-font                   t 'symbol (font-spec :family "Apple Color Emoji"))

	(interactive)
	(indent-region (point-min) (point-max)))

(defun my/find-bash-profile-file () "Visit my Bash profile file."
  (interactive)
  (find-file "~/.profile"))

(defun my/find-hammerspoon-init-file () "Visit my Emacs initialization file."
  (interactive)
  (find-file "~/.hammerspoon/init.lua"))

(defun my/find-emacs-init-file () "Visit my Emacs initialization file."
  (interactive)
  (find-file (expand-file-name "init.el" user-emacs-directory)))

(defun my/find-local-script-file () "Visit my local script file."
  (interactive)
  (find-file "~/.shell_local_script"))

(defun my/find-zshrc-file () "Visit my Zshrc file."
  (interactive)
  (find-file "~/.zshrc"))

(defun my/is-macos ()
  "Return t when the system is a macOS."
	(interactive)
	(equal system-type 'darwin))

(defun my/is-win32 ()
  "Return t when the system is a Windows."
	(interactive)
	(equal system-type 'windows-nt))

(defun my/oblique-strategy ()  "Draw and message an oblique strategy."
	(interactive)
	(message (oblique-strategy)))

(defun my/theme-reset () "Disable loaded theme(s)."
  (interactive)

;;   <even before>: 1.86 seconds, with 5 Cs
;;   2020-09:       2.49 seconds, with 11 GCs
;;   2021-01:       5.26 seconds, with 11 GCs
;;   2021-03:       1.15 seconds, with 14 GCs (on Apple Silicon M1)

;; Make startup faster by reducing the frequency of GC.
(setq
