comparison lisp/progmodes/python.el @ 54838:6072018b576e

(run-python): Use compilation-shell-minor-mode. Set compilation-error-regexp-alist earlier.

54837:496ddc14c1a0

	(inferior-python-mode)
	(setq comint-output-filter-functions nil)))
  (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))

(defun python-mouse-2-command (event)
  "Command bound to `mouse-2' in inferior Python buffer.
Selects Comint or Compilation mode command as appropriate."
  (interactive "e")

54838:6072018b576e

	(inferior-python-mode)
	(setq comint-output-filter-functions nil)))
  (setq python-command cmd)
  (setq python-buffer "*Python*")
  (pop-to-buffer "*Python*")
  (set (make-local-variable 'compilation-error-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.
Selects Comint or Compilation mode command as appropriate."
  (interactive "e")