summaryrefslogtreecommitdiff
path: root/elisp/geiser-popup.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 03:59:03 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 03:59:03 +0200
commit9961210627268ec740998f8a7cdb942c6b7cdc23 (patch)
treeec3328d9a8dd6fd7e72aa829c255312a922e8ad3 /elisp/geiser-popup.el
parent8f42520501ade7643aa517b2c5aa2456ac992f02 (diff)
downloadgeiser-guile-9961210627268ec740998f8a7cdb942c6b7cdc23.tar.gz
geiser-guile-9961210627268ec740998f8a7cdb942c6b7cdc23.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.el7
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)