[ELPA-diffs] ELPA branch, master, updated. 474e61713d53a2e66c5739c0c1c595d56ae86e7e

[Leo Liu]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "ELPA".

The branch, master has been updated
       via  474e61713d53a2e66c5739c0c1c595d56ae86e7e (commit)
       via  3f1ef74d8fc32f7d9f06ad04f6a9a4f67401d4d0 (commit)
       via  c6134f968d738afd21f938396eb961c0053be033 (commit)
       via  b77a4262aad1b61378a3e7615d1b59de7b90d82c (commit)
       via  efea1b385e5b9d9160e3ddaaaa7fa073990cd526 (commit)
       via  b15f2f357fa74d1fc74b74faea3b975c0ee548d6 (commit)
      from  58a6b636e221bb75c649ff567efcaae28257f039 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 474e61713d53a2e66c5739c0c1c595d56ae86e7e
Merge: 58a6b63 3f1ef74
Author: Leo Liu <address@hidden>
Date:   Sun Nov 3 10:19:14 2013 +0800

    Merge branch 'master' of https://github.com/leoliu/temp-buffer-browse


commit 3f1ef74d8fc32f7d9f06ad04f6a9a4f67401d4d0
Author: Leo Liu <address@hidden>
Date:   Tue Oct 29 10:21:03 2013 +0800

    Don't set wrap-prefix in adaptive-wrap-prefix-mode

diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index 6b62c8b..da2fb73 100644
--- a/temp-buffer-browse.el
+++ b/temp-buffer-browse.el
@@ -131,7 +131,11 @@ scroll down and close the temp buffer window, 
respectively."
                     (unless (zerop (or (frame-parameter nil 'left-fringe) 0))
                       `(left-fringe ,temp-buffer-browse-fringe-bitmap warning))
                     'face 'warning))
-      (overlay-put o 'wrap-prefix (overlay-get o 'line-prefix))
+      ;; NOTE: breaks `adaptive-wrap-prefix-mode' because overlay's
+      ;; wrap-prefix overrides text property's. Overlay's cannot have
+      ;; negative priority.
+      (unless (bound-and-true-p adaptive-wrap-prefix-mode)
+        (overlay-put o 'wrap-prefix (overlay-get o 'line-prefix)))
       (set-temporary-overlay-map
        temp-buffer-browse-map
        (lambda ()

commit c6134f968d738afd21f938396eb961c0053be033
Author: Leo Liu <address@hidden>
Date:   Tue Oct 15 15:13:58 2013 +0800

    Rename temp-buffer-browse-setup to temp-buffer-browse-activate
    
    and autoload since it may be useful in places other than
    temp-buffer-show-hook.

diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index 22970fc..6b62c8b 100644
--- a/temp-buffer-browse.el
+++ b/temp-buffer-browse.el
@@ -99,10 +99,11 @@ non-nil then MAP stays active."
     (define-key map [backspace] down)
     map))
 
-(defun temp-buffer-browse-setup ()
-  "Browse temp buffers easily.
-Set up `SPC', `DEL' and `RET' to scroll up, scroll down and close
-the temp buffer window, respectively."
+;;;###autoload
+(defun temp-buffer-browse-activate ()
+  "Activate temporary key bindings for current window.
+Specifically set up keys `SPC', `DEL' and `RET' to scroll up,
+scroll down and close the temp buffer window, respectively."
   (unless (derived-mode-p 'completion-list-mode)
     (setq temp-buffer-browse--window (selected-window))
     ;; When re-using existing window don't call
@@ -148,8 +149,8 @@ the temp buffer window, respectively."
   :lighter ""
   :global t
   (if temp-buffer-browse-mode
-      (add-hook 'temp-buffer-show-hook 'temp-buffer-browse-setup t)
-    (remove-hook 'temp-buffer-show-hook 'temp-buffer-browse-setup)))
+      (add-hook 'temp-buffer-show-hook 'temp-buffer-browse-activate t)
+    (remove-hook 'temp-buffer-show-hook 'temp-buffer-browse-activate)))
 
 (provide 'temp-buffer-browse)
 ;;; temp-buffer-browse.el ends here

commit b77a4262aad1b61378a3e7615d1b59de7b90d82c
Author: Leo Liu <address@hidden>
Date:   Mon Oct 14 20:38:32 2013 +0800

    Also set the overlay's wrap-prefix property

diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index 2e8f40b..22970fc 100644
--- a/temp-buffer-browse.el
+++ b/temp-buffer-browse.el
@@ -130,6 +130,7 @@ the temp buffer window, respectively."
                     (unless (zerop (or (frame-parameter nil 'left-fringe) 0))
                       `(left-fringe ,temp-buffer-browse-fringe-bitmap warning))
                     'face 'warning))
+      (overlay-put o 'wrap-prefix (overlay-get o 'line-prefix))
       (set-temporary-overlay-map
        temp-buffer-browse-map
        (lambda ()
@@ -139,7 +140,8 @@ the temp buffer window, respectively."
                     (not (member (this-command-keys) '("\C-m" [return])))
                     (eq this-command (lookup-key temp-buffer-browse-map
                                                  (this-command-keys))))
-               (ignore (overlay-put o 'line-prefix nil)))))))))
+               (ignore (overlay-put o 'line-prefix nil)
+                       (overlay-put o 'wrap-prefix nil)))))))))
 
 ;;;###autoload
 (define-minor-mode temp-buffer-browse-mode nil

commit efea1b385e5b9d9160e3ddaaaa7fa073990cd526
Author: Leo Liu <address@hidden>
Date:   Tue Oct 1 07:47:06 2013 +0800

    New fringe bitmap centered-vertical-bar
    
    and new variable temp-buffer-browse-fringe-bitmap.

diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index 57b345d..2e8f40b 100644
--- a/temp-buffer-browse.el
+++ b/temp-buffer-browse.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013  Free Software Foundation, Inc.
 
 ;; Author: Leo Liu <address@hidden>
-;; Version: 1.0
+;; Version: 1.1
 ;; Keywords: convenience
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -28,7 +28,7 @@
 ;;; Code:
 
 (eval-and-compile
-  (or (fboundp 'set-temporary-overlay-map) ; new in 24.4.
+  (or (fboundp 'set-temporary-overlay-map) ; new in 24.3
       (defun set-temporary-overlay-map (map &optional keep-pred)
         "Set MAP as a temporary keymap taking precedence over most other 
keymaps.
 Note that this does NOT take precedence over the \"overriding\" maps
@@ -60,8 +60,19 @@ non-nil then MAP stays active."
           (add-hook 'pre-command-hook clearfunsym)
           (push alist emulation-mode-map-alists)))))
 
+(defcustom temp-buffer-browse-fringe-bitmap 'centered-vertical-bar
+  "Fringe bitmap to use in the temp buffer window."
+  :type '(restricted-sexp :match-alternatives
+                          ((lambda (s)
+                             (and (symbolp s) (fringe-bitmap-p s)))))
+  :group 'help)
+
 (defvar temp-buffer-browse--window nil)
 
+;; See http://debbugs.gnu.org/15497
+(unless (fringe-bitmap-p 'centered-vertical-bar)
+  (define-fringe-bitmap 'centered-vertical-bar [24] nil nil '(top t)))
+
 (defvar temp-buffer-browse-map
   (let ((map (make-sparse-keymap))
         (quit (lambda ()
@@ -117,7 +128,7 @@ the temp buffer window, respectively."
                    (propertize
                     "|" 'display
                     (unless (zerop (or (frame-parameter nil 'left-fringe) 0))
-                      '(left-fringe centered-vertical-bar warning))
+                      `(left-fringe ,temp-buffer-browse-fringe-bitmap warning))
                     'face 'warning))
       (set-temporary-overlay-map
        temp-buffer-browse-map

commit b15f2f357fa74d1fc74b74faea3b975c0ee548d6
Author: Leo Liu <address@hidden>
Date:   Mon Sep 23 20:26:26 2013 +0800

    * temp-buffer-browse.el (temp-buffer-browse-setup): Fix slowdown.

diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index d58e9d9..57b345d 100644
--- a/temp-buffer-browse.el
+++ b/temp-buffer-browse.el
@@ -104,8 +104,11 @@ the temp buffer window, respectively."
       ;; In case buffer contents are inserted asynchronously such as
       ;; in `slime-inspector-mode'.
       (add-hook 'after-change-functions
-                (lambda (&rest _)
-                  (fit-window-to-buffer nil (floor (frame-height) 2)))
+                (let ((time (float-time)))
+                  (lambda (&rest _)
+                    (when (> (float-time) (+ 0.05 time))
+                      (fit-window-to-buffer nil (floor (frame-height) 2))
+                      (setq time (float-time)))))
                 nil 'local))
     (let ((o (make-overlay (point-min) (point-max))))
       (overlay-put o 'evaporate t)
@@ -125,7 +128,7 @@ the temp buffer window, respectively."
                     (not (member (this-command-keys) '("\C-m" [return])))
                     (eq this-command (lookup-key temp-buffer-browse-map
                                                  (this-command-keys))))
-               (overlay-put o 'line-prefix nil))))))))
+               (ignore (overlay-put o 'line-prefix nil)))))))))
 
 ;;;###autoload
 (define-minor-mode temp-buffer-browse-mode nil

-----------------------------------------------------------------------

Summary of changes:
 packages/temp-buffer-browse/temp-buffer-browse.el |   45 +++++++++++++++------
 1 files changed, 33 insertions(+), 12 deletions(-)


hooks/post-receive
-- 
ELPA