diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-markup.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-markup.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-markup.el b/emacs/.emacs.d/lisp/my/my-markup.el index ceb3dcf..2901f13 100644 --- a/emacs/.emacs.d/lisp/my/my-markup.el +++ b/emacs/.emacs.d/lisp/my/my-markup.el @@ -73,11 +73,10 @@ (view-mode)))) (defvar-keymap htmlv-mode-map - ;; :parent view-mode-map "." #'htmlv-reopen-as-html ) -(define-derived-mode htmlv-mode view-mode "HTML View" +(define-derived-mode htmlv-mode special-mode "HTML View" "Major mode for viewing HTML documents." (let ((inhibit-read-only t)) (shr-render-region (point-min) (point-max))) @@ -86,7 +85,9 @@ (defun htmlv-reopen-as-html () (interactive) - (with-current-buffer (find-file-literally buffer-file-name) + (with-current-buffer + (cl-letf (((symbol-function 'y-or-n-p) #'always)) + (find-file-literally buffer-file-name)) (mhtml-mode))) (provide 'my-markup) |