Mercurial > emacs
changeset 54838:6072018b576e
(run-python): Use compilation-shell-minor-mode.
Set compilation-error-regexp-alist earlier.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 13 Apr 2004 16:05:36 +0000 |
| parents | 496ddc14c1a0 |
| children | 4cafb6ad0ccc |
| files | lisp/progmodes/python.el |
| diffstat | 1 files changed, 3 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/python.el Tue Apr 13 14:45:49 2004 +0000 +++ b/lisp/progmodes/python.el Tue Apr 13 16:05:36 2004 +0000 @@ -1062,24 +1062,10 @@ (setq python-command cmd) (setq python-buffer "*Python*") (pop-to-buffer "*Python*") - (compilation-minor-mode 1) - (add-hook 'comint-input-filter-functions 'python-input-filter nil t) - ;; Avoid clobbering comint bindings. - (set (make-local-variable 'minor-mode-overriding-map-alist) - `((compilation-minor-mode - . ,(let ((map (make-sparse-keymap))) - ;; It would be useful to put keymap properties on the - ;; error lines so that we could use RET and mouse-2 on - ;; them directly. These bindings will only DTRT with - ;; the font-lock-style compilation mode. - (define-key map [mouse-2] #'python-mouse-2-command) - (define-key map "\C-m" #'python-RET-command) - (if (boundp 'compilation-menu-map) - (define-key map [menu-bar compilation] - (cons "Errors" compilation-menu-map))) - map)))) (set (make-local-variable 'compilation-error-regexp-alist) - python-compilation-regexp-alist)) + python-compilation-regexp-alist) + (compilation-shell-minor-mode 1) + (add-hook 'comint-input-filter-functions 'python-input-filter nil t)) (defun python-mouse-2-command (event) "Command bound to `mouse-2' in inferior Python buffer.