[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/etags-regen 7ef4c7c: etags-regen--update-file: Do call set-buffe
From: |
Dmitry Gutov |
Subject: |
scratch/etags-regen 7ef4c7c: etags-regen--update-file: Do call set-buffer-modified-p anyway |
Date: |
Tue, 12 Jan 2021 19:50:10 -0500 (EST) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/etags-regen 7ef4c7c: etags-regen--update-file: Do call set-buffer-modified-p anyway,
Dmitry Gutov <=