aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVasilij Schneidermann <mail@vasilij.de>2023-04-21 17:44:21 +0200
committerVasilij Schneidermann <mail@vasilij.de>2023-04-21 17:47:07 +0200
commitca8d250bfbe687eff7d8bc18708f6968e719ec65 (patch)
tree610b6a190fa64ace414b45180055563d507c3284
parentd9065c485ca656176f7376d19b15ea4312546645 (diff)
Lift the silly file name limitation for now
-rw-r--r--nov.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/nov.el b/nov.el
index 873136e..73521b3 100644
--- a/nov.el
+++ b/nov.el
@@ -614,6 +614,8 @@ the HTML is rendered with `nov-render-html-function'."
(when (not imagep)
(funcall nov-render-html-function))
+ ;; NOTE: this is how doc-view avoids overwriting the file
+ (set-buffer-modified-p nil)
(goto-char (point-min)))))
(defun nov-find-document (predicate)
@@ -860,10 +862,9 @@ Saving is only done if `nov-save-place-file' is set."
(setq nov-documents (apply 'vector (nov-content-files work-dir content)))
(setq nov-documents-index 0))
(setq buffer-undo-list t)
- (setq nov-file-name (buffer-file-name))
+ (setq nov-file-name (buffer-file-name)) ; kept for compatibility reasons
(setq-local bookmark-make-record-function
'nov-bookmark-make-record)
- (set-visited-file-name nil t) ; disable autosaves and save questions
(let ((place (nov-saved-place (cdr (assq 'identifier nov-metadata)))))
(if place
(let ((index (cdr (assq 'index place)))