emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/olivetti ee8f064 077/134: Removed 25.1 patch for split-


From: Stefan Monnier
Subject: [elpa] externals/olivetti ee8f064 077/134: Removed 25.1 patch for split-window-right
Date: Thu, 25 Apr 2019 09:57:32 -0400 (EDT)

branch: externals/olivetti
commit ee8f064d3f12441af1487905bb31480f306fb638
Author: Paul Rankin <address@hidden>
Commit: Paul Rankin <address@hidden>

    Removed 25.1 patch for split-window-right
---
 olivetti.el | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/olivetti.el b/olivetti.el
index 1c4231a..1a00d39 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -300,28 +300,6 @@ If prefixed with ARG, incrementally increase."
     (olivetti-expand p)))
 
 
-;;; 25.1 Workaround
-
-(defun split-window-right-force (&optional size)
-  "Filter arguments to `split-window-right' to force splitting window.
-
-If optional argument SIZE is ommitted or nil, both windows get
-the same width."
-  (if (car size) size (list (/ (window-total-width) 2))))
-
-(defun olivetti-patch-split-window (&optional remove)
-  "Adds advice to `split-window-right' to workaround `window-min-size'.
-
-If REMOVE is non-nil, remove this advice."
-  (if remove
-      (advice-remove 'split-window-right 'split-window-right-force)
-    (unless (or (advice-member-p 'split-window-right-force 'split-window-right)
-                (version< emacs-version "25"))
-      (advice-add 'split-window-right :filter-args
-                  'split-window-right-force)
-      (message "olivetti: Function `split-window-right' has been patched"))))
-
-
 ;;; Mode Definition
 
 ;;;###autoload



reply via email to

[Prev in Thread] Current Thread [Next in Thread]