--- a/contrib/gadialog.el	Tue Sep 22 23:27:25 2020 +0300
+++ b/contrib/gadialog.el	Thu Oct 01 22:29:18 2020 +0300
@@ -49,7 +49,7 @@
         (insert "## 1\n")
         1))))
 
-(defun gadialog-cleaup-whitespaves-forward ()
+(defun gadialog-cleaup-whitespaces-forward ()
   (while (memq (char-before) '(?\  ?\n ?\t))
     (delete-char -1)))
 
@@ -61,7 +61,7 @@
   (unless (re-search-forward "^# " (+ (point) 10240) t)
     (goto-char (point-max)))
   (forward-line 0)
-  (gadialog-cleaup-whitespaves-forward)
+  (gadialog-cleaup-whitespaces-forward)
   (insert "\n# ")
   (insert (int-to-string (gadialog-next-num)))
   (insert "\n- \n")
@@ -73,7 +73,7 @@
   (while (not (or (eobp)
                   (memq (char-after) (list ?- ?#))))
     (forward-line 1))
-  (gadialog-cleaup-whitespaves-forward)
+  (gadialog-cleaup-whitespaces-forward)
   (insert "\n- \n")
   (backward-char))