|
|
@@ -1140,8 +1140,8 @@ Massage output so various cross references are usable. Returns string."
|
|
|
(message "%s" args))
|
|
|
(apply #'call-process args)
|
|
|
(bible--process-href)
|
|
|
- (bidi-string-mark-left-to-right
|
|
|
- (bible--remove-module-name bible-hebrew-lexicon (substring (buffer-string) 7))))))
|
|
|
+ (concat (string ?\x200e)
|
|
|
+ (bible--remove-module-name bible-hebrew-lexicon (substring (buffer-string) 7))))))
|
|
|
|
|
|
(defun bible--lookup-lemma-hebrew (key)
|
|
|
"Lookup lexical definition using Strong's number KEY.
|
|
|
@@ -1182,15 +1182,15 @@ database and stash in cache."
|
|
|
;; Greek terms, but Hebrew needs system tooltips because
|
|
|
;; of direction issues. Need to track down tooltip
|
|
|
;; problem. (FMG 5-Mar-2026)
|
|
|
- (setq use-system-tooltips (if (string-prefix-p "G" key) nil t))
|
|
|
+;; (setq use-system-tooltips (if (string-prefix-p "G" key) nil t))
|
|
|
(if lex-text
|
|
|
lex-text
|
|
|
(setq lex-text
|
|
|
(cond ((string-prefix-p "G" key)
|
|
|
(bible--lookup-lemma-short key bible-greek-lexicon-short))
|
|
|
((string-prefix-p "H" key)
|
|
|
- (bidi-string-mark-left-to-right
|
|
|
- (bible--lookup-lemma-short key bible-hebrew-lexicon-short)))))
|
|
|
+ (concat (string ?\x200e)
|
|
|
+ (bible--lookup-lemma-short key bible-hebrew-lexicon-short)))))
|
|
|
(puthash key (string-fill (bible--cleanup-lex-text lex-text) 75) lex-hash)))))
|
|
|
|
|
|
(defun bible--lookup-morph-entry (morph)
|
