martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Repair pdbtrack so it follows transition from one remote file to another.

Browse Source 
* python.el (python-pdbtrack-set-tracked-buffer).
This commit is contained in:
Ken Manheimer
2015-09-19 21:34:36 -04:00
parent df6f610725
commit 89898fcd83
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog.17
View File

@@ -1,3 +1,8 @@
2015-09-20 Ken Manheimer <ken.manheimer@gmail.com>
* python.el (python-pdbtrack-set-tracked-buffer): Repair pdbtrack
so it follows transition from one remote file to another.
2015-04-06 Alan Mackenzie <acm@muc.de>
Fix miscellaneous glitches in cc-mode.el. (Bug#20245)

14
lisp/progmodes/python.el
View File

@@ -3635,12 +3635,18 @@ Never set this variable directly, use
"Set the buffer for FILE-NAME as the tracked buffer.
Internally it uses the `python-pdbtrack-tracked-buffer' variable.
Returns the tracked buffer."
(let ((file-buffer (get-file-buffer
(concat (file-remote-p default-directory)
file-name))))
(let* ((file-name-prospect (concat (file-remote-p default-directory)
file-name))
(file-buffer (get-file-buffer file-name-prospect)))
(if file-buffer
(setq python-pdbtrack-tracked-buffer file-buffer)
(setq file-buffer (find-file-noselect file-name))
(cond
((file-exists-p file-name-prospect)
(setq file-buffer (find-file-noselect file-name-prospect)))
((and (not (equal file-name file-name-prospect))
(file-exists-p file-name))
;; Fallback to a locally available copy of the file.
(setq file-buffer (find-file-noselect file-name-prospect))))
(when (not (member file-buffer python-pdbtrack-buffers-to-kill))
(add-to-list 'python-pdbtrack-buffers-to-kill file-buffer)))
file-buffer))