scratch/etags-regen 7ef4c7c: etags-regen--update-file: Do call set-buffer-modified-p anyway

[Dmitry Gutov]

branch: scratch/etags-regen
commit 7ef4c7c1ae80d3fe8ec3204e34a5559baaa2768b
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    etags-regen--update-file: Do call set-buffer-modified-p anyway
---
 lisp/progmodes/etags-regen.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/etags-regen.el b/lisp/progmodes/etags-regen.el
index 188ea72..1eb5278 100644
--- a/lisp/progmodes/etags-regen.el
+++ b/lisp/progmodes/etags-regen.el
@@ -198,6 +198,8 @@ File extensions to generate the tags for."
                    etags-regen-program (mapconcat #'identity options " ")
                    file-name)
            t etags-regen--errors-buffer-name))
+        ;; We don't want Emacs to ask us to save the buffer when exiting.
+        (set-buffer-modified-p nil)
         ;; FIXME: Is there a better way to do this?
         ;; Completion table is the only remaining place where the
         ;; update is not incremental.
@@ -216,7 +218,6 @@ File extensions to generate the tags for."
     (delete-file etags-regen--tags-file)
     (let ((buffer (get-file-buffer etags-regen--tags-file)))
       (and buffer
-           (with-current-buffer buffer (set-buffer-modified-p nil))
            (kill-buffer buffer)))
     (setq tags-file-name nil
           tags-table-list nil