1berry/cpython
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove short-circuitying grubbing by using last grubbed buffer. It's

Browse Source 
evil - if the last grubbed buffer didn't happen to be the right one,
you couldn't remedy.

Mainline emacs compat - don't use third arg to buffer-substring (which
was for explicitly identifying the buffer in which to seek the
substring, and which turns out to be unnecessary).
This commit is contained in:
Ken Manheimer 2003-06-17 19:18:57 +00:00
parent 0887c732e7
commit 8e9b80fd56
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Misc/python-mode.el
View File

@ -1370,8 +1370,7 @@ problem as best as we can determine."
(max (point-min)
(string-match "^\\([^#]\\|#[^#]\\|#$\\)"
(buffer-substring (point-min)
(point-max)
funcbuffer))
(point-max)))
))))))
(list lineno funcbuffer))
@ -1392,10 +1391,6 @@ named for funcname or define a function funcname."
(let ((buffers (buffer-list))
curbuf
got)
(if (and py-pdbtrack-last-grubbed-buffer
(member py-pdbtrack-last-grubbed-buffer buffers))
; Prefer last grubbed buffer by putting it at the front of the list:
(setq buffers (cons py-pdbtrack-last-grubbed-buffer buffers)))
(while (and buffers (not got))
(setq buf (car buffers)
buffers (cdr buffers))
@ -1404,9 +1399,10 @@ named for funcname or define a function funcname."
(or (string-match funcname (buffer-name buf))
(string-match (concat "^\\s-*\\(def\\|class\\)\\s-+"
funcname "\\s-*(")
(buffer-substring (point-min buf)
(point-max buf)
buf))))
(save-excursion
(set-buffer buf)
(buffer-substring (point-min)
(point-max))))))
(setq got buf)))
(setq py-pdbtrack-last-grubbed-buffer got)))