bible.el

@@ -234,7 +234,7 @@ See `bible--display-lemma-hebrew'."
     " "  (:eval (number-to-string bible--current-chapter))
     "  " (:eval (if bible--synced-p "Sync" ""))
     (:eval (when bible-search-range (concat " <" bible-search-range ">")))
-    "  " mode-line-modes mode-line-misc-info
+    "  " mode-line-modes bible-has-lexemes bible-has-morphemes mode-line-misc-info
     mode-line-end-spaces)
   "Mode line format for bible buffers.")
 
@@ -1338,40 +1338,40 @@ Return a string that is intended to be displayed in a tooltip."
   "Look up lexical item LEX. This is used for tooltips.
 Return hash table entry if present in `lex-hash' cache, else look up in
 database and stash in cache."
-  (when lex
-    (let* ((key (substring lex 7))  ; strip off "strong:" prefix.
-           (entry (gethash key lex-hash)))
-      (unless entry 
-        (setq entry 
-              (cond ((string-prefix-p "G" key)
-                     (bible--lookup-lemma-short key bible-greek-lexicon-short))
-                    ((string-prefix-p "H" key)
-                     (concat (string ?\x200e)
-                             (bible--lookup-lemma-short key bible-hebrew-lexicon-short)))))
-        (puthash key (string-fill (bible--cleanup-lex-text entry) 75) lex-hash))
-      entry)))
-
-
-(defun bible--lookup-morph-entry (morph)
+  (let* ((key (substring lex 7))        ; strip off "strong:" prefix.
+         (entry (gethash key lex-hash)))
+    (unless entry 
+      (setq entry 
+            (cond ((string-prefix-p "G" key)
+                   (bible--lookup-lemma-short key bible-greek-lexicon-short))
+                  ((string-prefix-p "H" key)
+                    ;; Force left-to-right for tooltips.
+                   (concat (string ?\x200e)
+                           (bible--lookup-lemma-short key bible-hebrew-lexicon-short)))))
+      (puthash key (string-fill (bible--cleanup-lex-text entry) 75) lex-hash))
+    entry))
+
+
+(defun bible--lookup-morph (morph)
   "Look up entry for morphological item MORPH.
 Return hash table entry if present in `morph-hash' cache, else look up in
 database and stash in cache."
-  (when morph
-    (or (gethash morph morph-hash)
-        (puthash morph
-                 (let (morph-module morph-key)
-                   ;; We know about these modules. (Assume they're installed.)
-                   (cond ((string-prefix-p "robinson:" morph)
-                          (setq morph-module "Robinson")
-                          (setq morph-key (substring morph (length "robinson:"))))
-                         ((string-prefix-p "packard:" morph)
-                          (setq morph-module "Packard")
-                          (setq morph-key (substring morph (length "packard:"))))
-                         ((string-prefix-p "oshm:" morph)
-                          (setq morph-module "OSHM")
-                          (setq morph-key (substring morph (length "oshm:")))))
-                   (bible--remove-module-name morph-module (bible--morph-query morph-key morph-module)))
-                 morph-hash))))
+  (or (gethash morph morph-hash)
+      (puthash morph
+               (let (morph-module morph-key)
+                  ;; We know about these modules. (Assume they're installed.)
+                  (cond ((string-prefix-p "robinson:" morph)
+                         (setq morph-module "Robinson")
+                         (setq morph-key (substring morph (length "robinson:"))))
+                        ((string-prefix-p "packard:" morph)
+                         (setq morph-module "Packard")
+                         (setq morph-key (substring morph (length "packard:"))))
+                        ((string-prefix-p "oshm:" morph)
+                         (setq morph-module "OSHM")
+                         (setq morph-key (substring morph (length "oshm:")))))
+                  (bible--remove-module-name morph-module (bible--morph-query morph-key morph-module)))
+               morph-hash)))
+      
 
 ;; Get string for tooltip display
 (defun bible--show-lex-morph (_window object pos)
@@ -1379,22 +1379,17 @@ database and stash in cache."
 Include both lex and morph definitions if text module has both tags,
 otherwise just get lex definition."
   (let* ((lex (get-text-property pos 'strong object))
-         (lex-text (bible--lookup-lex lex))
+         (lex-text (and lex (bible--lookup-lex lex)))
          (morph (get-text-property pos 'morph object))
-         (morph-text (bible--lookup-morph-entry morph)))
+         (morph-text (and morph (bible--lookup-morph morph))))
     (when lex-text
-      ;; This removes backslashes to prevent bogus command
-      ;; substitutions (that is, Emacs mistakenly filling in a key
-      ;; binding for some command---see Info doc on Substituting Key
-      ;; Bindings) in the tooltip.
-      ;; REVIEW: I couldn't figure out a better way to bypass command
-      ;;         substitution in the tooltips. (FMG 5-Mar-2026)
-      (subst-char-in-string
-       ?\\
-       ?
-       (if morph-text
-           (concat (string-trim lex-text) "\n" (string-trim morph-text))
-         (string-trim lex-text))))))
+      (setq lex-text 
+            (if morph-text
+                (concat (string-trim lex-text) "\n" (string-trim morph-text))
+              (string-trim lex-text)))
+      ;; Don't try to do command substitution in tooltip.
+      (put-text-property 0 1 'help-echo-inhibit-substitution t lex-text)
+      lex-text)))
 
 
 ;;;; Display module text
@@ -1460,22 +1455,19 @@ in buffer)."
                    (put-text-property start end 'keymap bible-hebrew-keymap)))
             ;; Add help-echo, strongs reference for tooltips if match.
             (when matched
-              (setq bible-has-lexemes " Lex")
+              (setq-local bible-has-lexemes " Lex")
               (put-text-property start end 'help-echo 'bible--show-lex-morph)
               (put-text-property start end 'strong matched))))
         ;; morphology
         (when morph
-          (let* ((matched nil)
-                 (morphemes (split-string morph))
+          (let* ((morphemes (split-string morph))
                  (morpheme (car (last morphemes)))) ; KJV kludge as above
-            (if (or
-                 (string-match "robinson:.*" morpheme) ; Robinson Greek morphology
-                 (string-match "packard:.*" morpheme) ; Packard Greek morphology --- LXX seems to use this
-                 (string-match "oshm:.*" morpheme)) ; OSHM Hebrew morphology
-                (setq matched (match-string 0 morpheme)))
-            (when matched
-              (setq bible-has-morphemes " Morph")
-              (put-text-property start end 'morph matched)
+            (when (or
+                   (string-match "robinson:.*" morpheme) ; Robinson Greek morphology
+                   (string-match "packard:.*" morpheme) ; Packard Greek morphology --- LXX seems to use this
+                   (string-match "oshm:.*" morpheme)) ; OSHM Hebrew morphology
+              (setq-local bible-has-morphemes " Morph")
+              (put-text-property start end 'morph  (match-string 0 morpheme))
               (put-text-property start end 'help-echo 'bible--show-lex-morph))))
         ;; Insert lemma into buffer. Lemma tag will be part of lemma/savelm item.
         ;; TODO: Should I enable lexicon lookups on these lemmas? I
@@ -1697,9 +1689,7 @@ In processing subnodes, each case will prepend a space if it needs it."
   "Render a page (chapter) of a Bible module.
 Defaults to using `bible-text'.
 If optional argument VERSE is supplied, set cursor at verse."
-  (let ((buffer-read-only nil)
-        (bible-has-lexemes nil)
-        (bible-has-morphemes nil))
+  (let ((buffer-read-only nil))
     (erase-buffer)
     (insert (bible--exec-diatheke (concat bible--current-book-name ":" (number-to-string bible--current-chapter))))
     ;; Parse the xml in the buffer into a DOM tree.
@@ -1756,15 +1746,8 @@ If optional argument VERSE is supplied, set cursor at verse."
     (save-excursion
       (while (re-search-forward "  *" nil t) ; More than one space in a row
         (just-one-space)))
-    ;; Set the mode line of the biffer.
-    (if bible-has-lexemes
-        (unless (string-match " Lex" mode-name) (setq mode-name (concat mode-name " Lex")))
-      (setq mode-name (replace-regexp-in-string " Lex" "" mode-name)))
-    (if bible-has-morphemes
-        (unless (string-match " Morph" mode-name) (setq mode-name (concat mode-name " Morph")))
-      (setq mode-name (replace-regexp-in-string " Morph" "" mode-name)))
-    (force-mode-line-update))
-    ;; If optional verse specification go to that verse.
+    (force-mode-line-update)) ; Ensure mode line indicators are correct.
+  ;; If optional verse specification go to that verse.
   (when verse 
     (re-search-forward (concat " ?" (number-to-string verse)) nil t 1)))
 

bm

@@ -1,6 +1,5 @@
 #!/bin/sh
 
-
-emacs -q -g =150x25 -fn Ezra\ SIL-14 -l ./bible.elc -f bible-open &
-# emacs -q -g =150x25 -fn "Linux Libertine-14" -l ./bible.elc -f bible-open &
+# emacs -q -g =150x25 -fn Ezra\ SIL-14 -l ./bible.elc -f bible-open &
+emacs -q -g =150x25 -fn "Linux Libertine-14" -l ./bible.elc -f bible-open &