diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 03:59:03 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 03:59:03 +0200 |
| commit | a1ee7a099365f583e4a82b4dab4bfb04dc374168 (patch) | |
| tree | a565d6f9e8766ede755eea3505760ab58f0c66fd /elisp/geiser-popup.el | |
| parent | 57868869d80cd388f2cb7588e563034dedb0932a (diff) | |
| download | geiser-a1ee7a099365f583e4a82b4dab4bfb04dc374168.tar.gz geiser-a1ee7a099365f583e4a82b4dab4bfb04dc374168.tar.bz2 | |
Conflicts between view-mode and geiser-doc-mode keymaps removed.
Diffstat (limited to 'elisp/geiser-popup.el')
| -rw-r--r-- | elisp/geiser-popup.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/elisp/geiser-popup.el b/elisp/geiser-popup.el index 2f78763..ea3fc5f 100644 --- a/elisp/geiser-popup.el +++ b/elisp/geiser-popup.el @@ -30,9 +30,10 @@ (current-buffer)))) (defun ,pop-buff (&optional ,method) (let ((,buffer (,get-buff))) - (cond ((eq ,method 'buffer) (view-buffer ,buffer)) - ((eq ,method 'frame) (view-buffer-other-frame ,buffer)) - (t (view-buffer-other-window ,buffer))))) + (unless (eq ,buffer (current-buffer)) + (cond ((eq ,method 'buffer) (view-buffer ,buffer)) + ((eq ,method 'frame) (view-buffer-other-frame ,buffer)) + (t (view-buffer-other-window ,buffer)))))) (defmacro ,with-macro (&rest body) (let ((buff ',get-buff)) `(with-current-buffer (funcall ',buff) |