contrib/gadict.el
changeset 1239 eebaa469434b
parent 1238 310253d08e04
child 1241 57382ad6d332
--- a/contrib/gadict.el	Mon Sep 14 18:26:54 2020 +0300
+++ b/contrib/gadict.el	Mon Sep 14 18:31:38 2020 +0300
@@ -254,7 +254,7 @@
   values in .dir-local.el or as -*- gadict-tr: \"...\" -*- file prelude")
 (put 'gadict-tr 'safe-local-variable 'string-or-null-p)
 
-(defun gadict-insert-article (&optional headword)
+(defun gadict-insert-article (headword)
   "Insert new article after the current place.
 
 If `gadict-espeak-enabled' is `t' pronunciation will be filled
@@ -278,17 +278,16 @@
     (backward-char)
     (re-search-backward "^$"))
   (backward-char)
-  (when headword
-    (insert headword)
-    (insert "\n  [")
-    (if gadict-espeak-enabled
-        (progn
-          (insert (gadict-espeak-ipa headword gadict-espeak-default-voice))
-          (insert "]")
-          (when gadict-tr
-            (search-forward ": ")))
-      (insert "]")
-      (backward-char))))
+  (insert headword)
+  (insert "\n  [")
+  (if gadict-espeak-enabled
+      (progn
+        (insert (gadict-espeak-ipa headword gadict-espeak-default-voice))
+        (insert "]")
+        (when gadict-tr
+          (search-forward ": ")))
+    (insert "]")
+    (backward-char)))
 
 (defun gadict-search-floor (headword)
   "Move to HEADWORD definition or place on posiiton for new corresponding