Made headword mandatory for gadict-insert-article.
--- 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