|
@@ -3,7 +3,7 @@
|
|
|
;; Copyright (c) 2025-2026 Fred Gilham
|
|
;; Copyright (c) 2025-2026 Fred Gilham
|
|
|
|
|
|
|
|
;; Author: Fred Gilham <fmgilham@gmail.com>
|
|
;; Author: Fred Gilham <fmgilham@gmail.com>
|
|
|
-;; Version: 1.2.1
|
|
|
|
|
|
|
+;; Version: 1.2.2
|
|
|
;; Keywords: files, text, hypermedia
|
|
;; Keywords: files, text, hypermedia
|
|
|
;; Package-Requires: ((emacs "29.1") cl-lib dom shr)
|
|
;; Package-Requires: ((emacs "29.1") cl-lib dom shr)
|
|
|
;; URL: https://gitbot.homedns.org/fred/bible
|
|
;; URL: https://gitbot.homedns.org/fred/bible
|
|
@@ -1470,8 +1470,8 @@ in buffer)."
|
|
|
(put-text-property start end 'morph (match-string 0 morpheme))
|
|
(put-text-property start end 'morph (match-string 0 morpheme))
|
|
|
(put-text-property start end 'help-echo 'bible--show-lex-morph))))
|
|
(put-text-property start end 'help-echo 'bible--show-lex-morph))))
|
|
|
;; Insert lemma into buffer. Lemma tag will be part of lemma/savelm item.
|
|
;; Insert lemma into buffer. Lemma tag will be part of lemma/savelm item.
|
|
|
- ;; TODO: Should I enable lexicon lookups on these lemmas? I
|
|
|
|
|
- ;; don't use this anyway.... (FMG 5-Mar-2026)
|
|
|
|
|
|
|
+ ;; REVIEW: Should I enable lexicon lookups on these lemmas? I
|
|
|
|
|
+ ;; don't use this anyway.... (FMG 5-Mar-2026)
|
|
|
(when (and bible-word-study-enabled lemma (string-match "lemma.*:.*" lemma))
|
|
(when (and bible-word-study-enabled lemma (string-match "lemma.*:.*" lemma))
|
|
|
(dolist (word (split-string (match-string 0 lemma) " "))
|
|
(dolist (word (split-string (match-string 0 lemma) " "))
|
|
|
(setq word (replace-regexp-in-string "[.:a-zA-Z0-9]+" "" word))
|
|
(setq word (replace-regexp-in-string "[.:a-zA-Z0-9]+" "" word))
|
