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 <sdl....@gmail.com> 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 <sdl....@gmail.com> 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 <sdl....@gmail.com> 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 <sdl....@gmail.com> 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 <sdl....@gmail.com> 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 <sdl....@gmail.com> -;; 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 <sdl....@gmail.com> 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