diff options
| author | Gustav Hållberg <gustav@gmail.com> | 2012-04-06 21:32:37 +0200 |
|---|---|---|
| committer | Gustav Hållberg <gustav@gmail.com> | 2012-04-09 09:23:21 +0200 |
| commit | 7347eb884eff4321df0b8237f24e9dd44b926e4a (patch) | |
| tree | 8e4ecd7a51dc96c9ac230048f905004cbf248493 | |
| parent | 9d9e179fe4f384f6b1661041a223db4047c14572 (diff) | |
| download | stgit-7347eb884eff4321df0b8237f24e9dd44b926e4a.tar.gz | |
stgit.el: Use truenames when finding an already-existing stgit buffer
This makes stgit run on different paths that resolve to the same
directory use the same stgit buffer.
Signed-off-by: Gustav Hållberg <gustav@gmail.com>
| -rw-r--r-- | contrib/stgit.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/stgit.el b/contrib/stgit.el index 0eeaa72..17a9da6 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -306,12 +306,12 @@ directory DIR or `default-directory'" (defun stgit-find-buffer (dir) "Return the buffer displaying StGit patches for DIR, or nil if none." - (setq dir (file-name-as-directory dir)) + (setq dir (file-truename (file-name-as-directory dir))) (let ((buffers (buffer-list))) (while (and buffers (not (with-current-buffer (car buffers) (and (eq major-mode 'stgit-mode) - (string= default-directory dir))))) + (string= (file-truename default-directory) dir))))) (setq buffers (cdr buffers))) (and buffers (car buffers)))) |