83 

    84 (defun my/eval-buffer ()

    85   "Evaluate entire buffer with re-assigning values to `defvar' / `defcustom'.

    86 Useful during package development."

    87   (interactive)

    88   (save-excursion

    89     (beginning-of-buffer)

    90     (while (not (eobp))

    91       (eval-defun nil)

    92       (end-of-defun))))

    93 

    94 (defun my/load-library (library)

    95   "Evaluate entire library with re-assigning values to `defvar' / `defcustom'.

    96 Useful during package development."

    97   (interactive

    98    (list (completing-read "Load library: "

    99                           (apply-partially 'locate-file-completion-table

   100                                            load-path

   101                                            '("" ".el")))))

   102   (with-temp-buffer

   103     (insert-file-contents (locate-file library load-path '("" ".el")))

   104     (my/eval-buffer)))