                                 (insert (format "%s."
                                                 (ar/retrieve-bookmark-link-in-process)))
                                 (org-sort-list nil ?a)
+                                (hide-other)
                                 (save-buffer)))))))
 
 (defun ar/helm-my-hotspots ()

;; From http://pages.sachachua.com/.emacs.d/Sacha.html#sec-1-4-8
(fset 'yes-or-no-p 'y-or-n-p)

;; From http://www.wisdomandwonder.com/wordpress/wp-content/uploads/2014/03/C3F.html
(setq savehist-file "~/.emacs.d/savehist")
(savehist-mode +1)

                                '(emacs-lisp-mode-hook
                                  ielm-mode-hook))

(defun ar/save-point-to-bookmark ()
  "Save point to bookmark."
  (interactive)
  (bookmark-set "LAST EDIT"))

(defun ar/jump-to-saved-point-bookmark ()
  "Jumps cursor to register 9999's value."
  (interactive)
  (bookmark-jump "LAST EDIT"))
(global-set-key (kbd "C-c `")
                #'ar/jump-to-saved-point-bookmark)

(defun ar/after-prog-mode-text-change (beg end len)
  "Execute for all text modifications in `prog-mode'.
Argument BEG beginning.
Argument END end.
Argument LEN Length."
  ;; Saving point enables jumping back to last change at any time.
  (ar/save-point-to-bookmark))

(defun ar/select-current-block ()
  "Select the current block of text between blank lines.
