[elpa] 01/02: * temp-buffer-browse: Fix load error when fringe not preloaded

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 9b58521edb1ba1814573c11fd3e6b45010ffe24f
Author: Leo Liu <address@hidden>
Date:   Thu Oct 16 15:17:28 2014 +0800

    * temp-buffer-browse: Fix load error when fringe not preloaded
---
 temp-buffer-browse.el |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index 4506be2..ff35290 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.2
+;; Version: 1.3
 ;; Keywords: convenience
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -27,6 +27,9 @@
 
 ;;; Code:
 
+;; fringe not preloaded for tty emacs
+(eval-when-compile (require 'fringe))
+
 (eval-and-compile
   (cond
    ((fboundp 'set-transient-map) nil)
@@ -56,9 +59,8 @@
 
 (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)))))
+  :type `(restricted-sexp :match-alternatives
+                          (,(lambda (s) (and (symbolp s) (fringe-bitmap-p 
s)))))
   :group 'help)
 
 (defvar temp-buffer-browse--window nil)