branch: elpa/visual-fill-column
commit afaad5ac6b15cdf9f362662538e35d48578e218a
Author: Joost Kremers <joostkrem...@fastmail.fm>
Commit: Joost Kremers <joostkrem...@fastmail.fm>
Test against `emacs-major-version`.
---
visual-fill-column.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/visual-fill-column.el b/visual-fill-column.el
index e3bf5d7d03..08b547e357 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -8,7 +8,7 @@
;; Maintainer: Joost Kremers <joostkrem...@fastmail.fm>
;; URL: https://codeberg.org/joostkremers/visual-fill-column
;; Created: 2015
-;; Version: 2.4
+;; Version: 2.5
;; Package-Requires: ((emacs "25.1"))
;; This file is NOT part of GNU Emacs.
@@ -175,13 +175,13 @@ that actually visit a file."
(setq-default split-window-preferred-function
#'visual-fill-column-split-window-sensibly))
(cond
- ((version< emacs-version "27.1")
+ ((< emacs-major-version 27)
(add-hook 'window-size-change-functions
#'visual-fill-column--adjust-frame))
- ((version= emacs-version "27.1")
+ ((= emacs-major-version 27)
(add-hook 'window-size-change-functions
#'visual-fill-column--adjust-window 'append 'local)
(setq visual-fill-column--use-split-window-parameter t))
- ((version< "27.1" emacs-version)
+ ((< 27 emacs-major-version)
(add-hook 'window-state-change-functions
#'visual-fill-column--adjust-window 'append 'local)
(setq visual-fill-column--use-min-margins t)))
@@ -193,12 +193,12 @@ that actually visit a file."
(let ((window (get-buffer-window (current-buffer))))
(cond
- ((version< emacs-version "27.1")
+ ((< emacs-major-version 27)
(remove-hook 'window-size-change-functions
#'visual-fill-column--adjust-frame))
- ((version= emacs-version "27.1")
+ ((= emacs-major-version 27)
(remove-hook 'window-size-change-functions
#'visual-fill-column--adjust-window 'local))
- ((version< "27.1" emacs-version)
+ ((< 27 emacs-majon-version)
(remove-hook 'window-state-change-functions
#'visual-fill-column--adjust-window 'local)
(set-window-margins window 0 0)
(set-window-parameter window 'min-margins nil)))
