comparison lisp/textmodes/sgml-mode.el @ 23970:d1d08f461c9c

(sgml-validate): Ask whether to save only if buffer is modified; ask about all modified buffers.

23969:3e4e87cddb85

				  " "
				  (let ((name (buffer-file-name)))
				    (and name
					 (file-name-nondirectory name))))))))
  (setq sgml-saved-validate-command command)
  (if (or (not compilation-ask-about-save)
	  (y-or-n-p (message "Save buffer %s? " (buffer-name))))
      (save-buffer))
  (compile-internal command "No more errors"))


(defun sgml-beginning-of-tag (&optional top-level)
  "Skip to beginning of tag and return its name.

23970:d1d08f461c9c

				  " "
				  (let ((name (buffer-file-name)))
				    (and name
					 (file-name-nondirectory name))))))))
  (setq sgml-saved-validate-command command)
  (save-some-buffers (not compilation-ask-about-save) nil)
  (compile-internal command "No more errors"))


(defun sgml-beginning-of-tag (&optional top-level)
  "Skip to beginning of tag and return its name.