diff options
| author | Richard M. Stallman | 1997-04-05 21:52:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-05 21:52:58 +0000 |
| commit | 0afdd8d04101a4540a1f4ccca9afc049ebabcf20 (patch) | |
| tree | eba2c33c5963ed2a38facf7da0c99884efe5f0e6 | |
| parent | 531cbff1cc53fe36ddf29a33876f3fdb9eb3666b (diff) | |
| download | emacs-0afdd8d04101a4540a1f4ccca9afc049ebabcf20.tar.gz emacs-0afdd8d04101a4540a1f4ccca9afc049ebabcf20.zip | |
(sgml-validate): Offer to save the buffer first.
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 3b8af26750b..ef3f822cfb2 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el | |||
| @@ -712,6 +712,9 @@ and move to the line in the SGML document that caused it." | |||
| 712 | (and name | 712 | (and name |
| 713 | (file-name-nondirectory name)))))))) | 713 | (file-name-nondirectory name)))))))) |
| 714 | (setq sgml-saved-validate-command command) | 714 | (setq sgml-saved-validate-command command) |
| 715 | (if (or (not compilation-ask-about-save) | ||
| 716 | (y-or-n-p (message "Save buffer %s? " (buffer-name)))) | ||
| 717 | (save-buffer)) | ||
| 715 | (compile-internal command "No more errors")) | 718 | (compile-internal command "No more errors")) |
| 716 | 719 | ||
| 717 | 720 | ||