[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/buffer-expose 0d6b5e6 2/6: Make it work in non-graphica
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/buffer-expose 0d6b5e6 2/6: Make it work in non-graphical environment |
Date: |
Tue, 23 Apr 2019 08:52:50 -0400 (EDT) |
branch: externals/buffer-expose
commit 0d6b5e6423ed03d7cc5aa898a52e179e9678cf29
Author: 10sr <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Make it work in non-graphical environment
---
buffer-expose.el | 29 +++++++++++++++++------------
1 file changed, 17 insertions(+), 12 deletions(-)
diff --git a/buffer-expose.el b/buffer-expose.el
index dbc2d7f..444b35c 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -592,16 +592,18 @@ which should be included."
(push (cons var (symbol-value var))
buffer-expose--reset-variables))
- (let ((p (frame-parameters)))
- (setq buffer-expose-fringe (list fringe-mode
- (assq 'left-fringe p)
- (assq 'right-fringe p))))
+ (when (boundp 'fringe-mode)
+ (let ((p (frame-parameters)))
+ (setq buffer-expose-fringe (list fringe-mode
+ (assq 'left-fringe p)
+ (assq 'right-fringe p)))))
;; minor modes
(dolist (mode '(scroll-bar-mode window-divider-mode))
- (if (symbol-value mode)
- (push mode buffer-expose--reactivate-modes)
- (push mode buffer-expose--redisable-modes)))
+ (when (boundp mode)
+ (if (symbol-value mode)
+ (push mode buffer-expose--reactivate-modes)
+ (push mode buffer-expose--redisable-modes))))
(setq mouse-autoselect-window nil
mouse-1-click-follows-link nil)
@@ -609,8 +611,10 @@ which should be included."
(when buffer-expose-hide-cursor-in-other-windows
(setq cursor-in-non-selected-windows nil))
- (fringe-mode -1)
- (scroll-bar-mode -1)
+ (when (fboundp 'fringe-mode)
+ (fringe-mode -1))
+ (when (fboundp 'scroll-bar-mode)
+ (scroll-bar-mode -1))
(let ((window-divider-default-places t))
(window-divider-mode 1)))
@@ -680,9 +684,10 @@ MAX is the maximum of windows to display per page."
(defun buffer-expose--reset-modes ()
"Reset modes."
- (setq fringe-mode (pop buffer-expose-fringe))
- (modify-frame-parameters
- nil buffer-expose-fringe)
+ (when (boundp 'fringe-mode)
+ (setq fringe-mode (pop buffer-expose-fringe))
+ (modify-frame-parameters
+ nil buffer-expose-fringe))
(dolist (mode buffer-expose--reactivate-modes)
(funcall mode 1))
- [elpa] externals/buffer-expose updated (9ed95a4 -> 9869be1), Clemens Radermacher, 2019/04/23
- [elpa] externals/buffer-expose 4f83d85 1/6: Add Projectile support, Clemens Radermacher, 2019/04/23
- [elpa] externals/buffer-expose 9869be1 6/6: Version bump, Clemens Radermacher, 2019/04/23
- [elpa] externals/buffer-expose 3077932 4/6: Merge branch 'master' of https://github.com/d125q/buffer-expose into d125q-master, Clemens Radermacher, 2019/04/23
- [elpa] externals/buffer-expose 1e1f1d0 3/6: Merge branch '10sr-nongraphical', Clemens Radermacher, 2019/04/23
- [elpa] externals/buffer-expose 0d6b5e6 2/6: Make it work in non-graphical environment,
Clemens Radermacher <=
- [elpa] externals/buffer-expose 476331e 5/6: Don't set initial values of optional deps, Clemens Radermacher, 2019/04/23