diff options
| author | Dmitry Gutov | 2025-09-07 04:53:36 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2025-09-07 04:56:00 +0300 |
| commit | c36259e479ab0b5b79bee3d29efc99cc910361a8 (patch) | |
| tree | 7a460e67b6ab2f40ff7f18d5480ef32d01b04381 | |
| parent | c26f702bf9b1a435b05199ccdf74f9c624ce3901 (diff) | |
| download | emacs-c36259e479ab0b5b79bee3d29efc99cc910361a8.tar.gz emacs-c36259e479ab0b5b79bee3d29efc99cc910361a8.zip | |
project--read-project-buffer: Fix creating new buffer
* lisp/progmodes/project.el (project--read-project-buffer):
Fix the case of entering new buffer name (bug#77312).
| -rw-r--r-- | lisp/progmodes/project.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 418f7cec925..438b8528960 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el | |||
| @@ -1739,7 +1739,8 @@ Return non-nil if PROJECT is not a remote project." | |||
| 1739 | (project--buffers-completion-table buffers-alist) | 1739 | (project--buffers-completion-table buffers-alist) |
| 1740 | predicate nil nil nil | 1740 | predicate nil nil nil |
| 1741 | other-name)) | 1741 | other-name)) |
| 1742 | (buffer (assoc-default result buffers-alist #'equal result))) | 1742 | (buffer (or (assoc-default result buffers-alist) |
| 1743 | result))) | ||
| 1743 | ;; XXX: This check hardcodes the default buffer-belonging relation | 1744 | ;; XXX: This check hardcodes the default buffer-belonging relation |
| 1744 | ;; which `project-buffers' is allowed to override. Straighten | 1745 | ;; which `project-buffers' is allowed to override. Straighten |
| 1745 | ;; this up sometime later. Or not. Since we can add a method | 1746 | ;; this up sometime later. Or not. Since we can add a method |