|
@@ -1304,7 +1304,7 @@ If optional argument VERSE is supplied, set cursor at verse."
|
|
|
(bible-chapter-title nil)
|
|
(bible-chapter-title nil)
|
|
|
(bible-has-lexemes nil)
|
|
(bible-has-lexemes nil)
|
|
|
(bible-has-morphemes nil))
|
|
(bible-has-morphemes nil))
|
|
|
- (message "display %s" module)
|
|
|
|
|
|
|
+;; (message "display %s" module)
|
|
|
(erase-buffer)
|
|
(erase-buffer)
|
|
|
(bible--exec-diatheke (concat bible--current-book-name ":" (number-to-string bible--current-chapter)))
|
|
(bible--exec-diatheke (concat bible--current-book-name ":" (number-to-string bible--current-chapter)))
|
|
|
;; Parse the xml in the buffer into a DOM tree.
|
|
;; Parse the xml in the buffer into a DOM tree.
|
|
@@ -1445,7 +1445,7 @@ If optional argument VERSE is supplied, set cursor at verse."
|
|
|
(verses nil)
|
|
(verses nil)
|
|
|
(query-verses "")
|
|
(query-verses "")
|
|
|
(buffer-read-only nil))
|
|
(buffer-read-only nil))
|
|
|
- (message "display-search %s" module)
|
|
|
|
|
|
|
+;; (message "display-search %s" module)
|
|
|
(setq-default bible-module module)
|
|
(setq-default bible-module module)
|
|
|
(erase-buffer)
|
|
(erase-buffer)
|
|
|
(while match
|
|
(while match
|
|
@@ -1565,7 +1565,7 @@ This code is customized for the BDBGlosses_Strongs lexicon."
|
|
|
(defun bible--set-location (book chapter &optional verse)
|
|
(defun bible--set-location (book chapter &optional verse)
|
|
|
"Set the BOOK, CHAPTER and optionally VERSE of the active `bible' buffer."
|
|
"Set the BOOK, CHAPTER and optionally VERSE of the active `bible' buffer."
|
|
|
;; (setq-local bible-module (default-value 'bible-module))
|
|
;; (setq-local bible-module (default-value 'bible-module))
|
|
|
- (message "set-location %s" book)
|
|
|
|
|
|
|
+;; (message "set-location %s" book)
|
|
|
(setq-local bible--current-book book)
|
|
(setq-local bible--current-book book)
|
|
|
(setq-local bible--current-book-name (car book))
|
|
(setq-local bible--current-book-name (car book))
|
|
|
(setq-local bible--current-chapter chapter)
|
|
(setq-local bible--current-chapter chapter)
|