Mercurial > emacs

comparison lisp/progmodes/python.el @ 90199:bb71c6cf2009

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-67 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 447-458) - Update from CVS - Update from CVS: lisp/subr.el (add-to-ordered-list): Doc fix. - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 83-85) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 30 Jun 2005 00:31:46 +0000
parents 08185296b491 1962e8146bf4
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90198:97f6c3a96df1 90199:bb71c6cf2009
947 (concat python-check-command " " 947 (concat python-check-command " "
948 (let ((name (buffer-file-name))) 948 (let ((name (buffer-file-name)))
949 (if name 949 (if name
950 (file-name-nondirectory name)))))))) 950 (file-name-nondirectory name))))))))
951 (setq python-saved-check-command command) 951 (setq python-saved-check-command command)
952 (require 'compile) ;To define compilation-* variables.
952 (save-some-buffers (not compilation-ask-about-save) nil) 953 (save-some-buffers (not compilation-ask-about-save) nil)
953 (let ((compilation-error-regexp-alist 954 (let ((compilation-error-regexp-alist
954 (cons '("(\\([^,]+\\), line \\([0-9]+\\))" 1 2) 955 (cons '("(\\([^,]+\\), line \\([0-9]+\\))" 1 2)
955 compilation-error-regexp-alist))) 956 compilation-error-regexp-alist)))
956 (compilation-start command))) 957 (compilation-start command)))