[elpa] 02/03: Work around bug http://debbugs.gnu.org/16038

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit f2f80fdd48f054063691b02359cc057a8362a314
Author: Leo Liu <address@hidden>
Date:   Tue Feb 18 20:41:18 2014 +0800

    Work around bug http://debbugs.gnu.org/16038
---
 temp-buffer-browse.el |   15 +++++++++++----
 1 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index 7d03b77..4506be2 100644
--- a/temp-buffer-browse.el
+++ b/temp-buffer-browse.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013-2014  Free Software Foundation, Inc.
 
 ;; Author: Leo Liu <address@hidden>
-;; Version: 1.1
+;; Version: 1.2
 ;; Keywords: convenience
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -146,9 +146,16 @@ scroll down and close the temp buffer window, 
respectively."
 (define-minor-mode temp-buffer-browse-mode nil
   :lighter ""
   :global t
-  (if temp-buffer-browse-mode
-      (add-hook 'temp-buffer-show-hook 'temp-buffer-browse-activate t)
-    (remove-hook 'temp-buffer-show-hook 'temp-buffer-browse-activate)))
+  ;; Work around http://debbugs.gnu.org/16038
+  (let ((activate (lambda ()
+                    (unless (derived-mode-p 'fundamental-mode)
+                      (temp-buffer-browse-activate)))))
+    (if temp-buffer-browse-mode
+        (progn
+          (add-hook 'temp-buffer-show-hook 'temp-buffer-browse-activate t)
+          (add-hook 'temp-buffer-window-show-hook activate t))
+      (remove-hook 'temp-buffer-show-hook 'temp-buffer-browse-activate)
+      (remove-hook 'temp-buffer-window-show-hook activate))))
 
 (provide 'temp-buffer-browse)
 ;;; temp-buffer-browse.el ends here