# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1601580558 -10800
# Node ID 3bc716b96e3c53773b7ee73f0c48b6df103668ec
# Parent  2a3f8cb9ceb8c9578e93b521b3297fe39bfd33a1
Fixed typo.

diff -r 2a3f8cb9ceb8 -r 3bc716b96e3c contrib/gadialog.el
--- 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))