diff -r 310253d08e04 -r eebaa469434b contrib/gadict.el --- 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