procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

project-switch-to-buffer: Use the "other buffer" as default

Browse source 
* lisp/progmodes/project.el
(project-switch-to-buffer): Pass the "other buffer" as DEF to
read-buffer if it belongs to the current project (bug#41879).
This commit is contained in:
Andrii Kolomoiets 2020-06-19 02:21:55 +03:00 • committed by Dmitry Gutov
parent fbf40c1d90
commit 6fe5c21c72
1 changed files with 16 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/progmodes/project.el
View file

@ -777,14 +777,24 @@ Arguments the same as in `compile'."
(defun project-switch-to-buffer ()
"Switch to a buffer in the current project."
(interactive)
(let ((root (project-root (project-current t))))
(let* ((root (project-root (project-current t)))
(current-buffer (current-buffer))
(other-buffer (other-buffer current-buffer))
(other-name (buffer-name other-buffer))
(predicate
(lambda (buffer)
;; BUFFER is an entry (BUF-NAME . BUF-OBJ) of Vbuffer_alist.
(and (not (eq (cdr buffer) current-buffer))
(when-let ((file (buffer-local-value 'default-directory
(cdr buffer))))
(file-in-directory-p file root))))))
(switch-to-buffer
(read-buffer
"Switch to buffer: " nil t
(lambda (buffer)
;; BUFFER is an entry (BUF-NAME . BUF-OBJ) of Vbuffer_alist.
(when-let ((file (buffer-file-name (cdr buffer))))
(file-in-directory-p file root)))))))
"Switch to buffer: "
(when (funcall predicate (cons other-name other-buffer))
other-name)
t
predicate))))
(defcustom project-kill-buffers-skip-conditions
'("\\*Help\\*")