[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 02/03: Work around bug http://debbugs.gnu.org/16038
From: |
Leo Liu |
Subject: |
[elpa] 02/03: Work around bug http://debbugs.gnu.org/16038 |
Date: |
Sun, 23 Feb 2014 09:58:49 +0000 |
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