mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(tex-validate-buffer): Distinguish between 0, 1, and many mismatches.

Browse source 
(tex-start-shell): Use `set-process-query-on-exit-flag'.
This commit is contained in:
John Paul Wallington 2004-08-25 19:05:24 +00:00
parent 2eb43e13c1
commit 003274a057
2 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2004-08-25 John Paul Wallington <jpw@gnu.org> 2004-08-25 John Paul Wallington <jpw@gnu.org>
* textmodes/tex-mode.el (tex-validate-buffer): Distinguish between
0, 1, and many mismatches in message.
(tex-start-shell): Use `set-process-query-on-exit-flag'.
* ielm.el (ielm-tab, ielm-complete-symbol): Doc fix. * ielm.el (ielm-tab, ielm-complete-symbol): Doc fix.
(inferior-emacs-lisp-mode): Use `set-process-query-on-exit-flag'. (inferior-emacs-lisp-mode): Use `set-process-query-on-exit-flag'.

15
lisp/textmodes/tex-mode.el
View file

@ -1141,10 +1141,13 @@ on the line for the invalidity you want to see."
'occur-target tem))))) 'occur-target tem)))))
(goto-char prev-end)))) (goto-char prev-end))))
(with-current-buffer standard-output (with-current-buffer standard-output
(if (eq num-matches 0) (let ((no-matches (zerop num-matches)))
(insert "None!\n")) (if no-matches
(if (interactive-p) (insert "None!\n"))
(message "%d mismatches found" num-matches)))))) (if (interactive-p)
(message "%s mismatch%s found"
(if no-matches "No" num-matches)
(if (> num-matches 1) "es" ""))))))))
(defun tex-validate-region (start end) (defun tex-validate-region (start end)
"Check for mismatched braces or $'s in region. "Check for mismatched braces or $'s in region.
@ -1459,7 +1462,7 @@ Mark is left at original location."
nil) nil)
(let ((proc (get-process "tex-shell"))) (let ((proc (get-process "tex-shell")))
(set-process-sentinel proc 'tex-shell-sentinel) (set-process-sentinel proc 'tex-shell-sentinel)
(process-kill-without-query proc) (set-process-query-on-exit-flag proc nil)
(tex-shell) (tex-shell)
(while (zerop (buffer-size)) (while (zerop (buffer-size))
(sleep-for 1))))) (sleep-for 1)))))
@ -1928,7 +1931,7 @@ for the error messages."
(re-search-forward (re-search-forward
"^l\\.\\([0-9]+\\) \\(\\.\\.\\.\\)?\\(.*\\)$" nil 'move)) "^l\\.\\([0-9]+\\) \\(\\.\\.\\.\\)?\\(.*\\)$" nil 'move))
(let* ((this-error (copy-marker begin-of-error)) (let* ((this-error (copy-marker begin-of-error))
(linenum (string-to-int (match-string 1))) (linenum (string-to-number (match-string 1)))
(error-text (regexp-quote (match-string 3))) (error-text (regexp-quote (match-string 3)))
(filename (filename
(save-excursion (save-excursion