diff options
| author | Richard M. Stallman | 1998-12-31 14:40:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-12-31 14:40:03 +0000 |
| commit | b7cd1746e23b9e9fce0f937d5b14a524c569c3f2 (patch) | |
| tree | 9698bd7c2177384981a08df418f3589ec9d31382 /lisp | |
| parent | 7d6d84c1db96933aa552f391967043cc8adff743 (diff) | |
| download | emacs-b7cd1746e23b9e9fce0f937d5b14a524c569c3f2.tar.gz emacs-b7cd1746e23b9e9fce0f937d5b14a524c569c3f2.zip | |
(sgml-validate): Ask whether to save only
if buffer is modified; ask about all modified buffers.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index c40c8c439b0..5e7e7d95f9b 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el | |||
| @@ -776,9 +776,7 @@ and move to the line in the SGML document that caused it." | |||
| 776 | (and name | 776 | (and name |
| 777 | (file-name-nondirectory name)))))))) | 777 | (file-name-nondirectory name)))))))) |
| 778 | (setq sgml-saved-validate-command command) | 778 | (setq sgml-saved-validate-command command) |
| 779 | (if (or (not compilation-ask-about-save) | 779 | (save-some-buffers (not compilation-ask-about-save) nil) |
| 780 | (y-or-n-p (message "Save buffer %s? " (buffer-name)))) | ||
| 781 | (save-buffer)) | ||
| 782 | (compile-internal command "No more errors")) | 780 | (compile-internal command "No more errors")) |
| 783 | 781 | ||
| 784 | 782 | ||