[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-modeline 2b41b3e52e 1/5: Alignment to right-margin
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/nano-modeline 2b41b3e52e 1/5: Alignment to right-margin instead of right |
|
Date: |
Wed, 10 Jan 2024 10:43:50 -0500 (EST) |
branch: externals/nano-modeline
commit 2b41b3e52ef4b11361d05f4494d5856e5e22a86a
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Alignment to right-margin instead of right
---
nano-modeline.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index 9b7476da88..1a51d99fa1 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -61,6 +61,9 @@
;;; NEWS:
;;
;;
+;; Version
+;; - Minor bugfix with org-capture
+;;
;; Version 1.0.1
;; - Minor bugfix
;;
@@ -273,10 +276,10 @@ using the given FACE-PREFIX as the default."
(propertize "…" 'face `(:inherit
,nano-modeline-base-face)))
left)))
(concat (propertize " "
- 'display `(space :align-to (+ left
+ 'display `(space :align-to (+ left-margin
(,fringe . left-fringe)
( 0.0 . left-margin))))
- left
+ left
(propertize " "
'face `(:inherit ,nano-modeline-base-face)
'display `(space :align-to (- right
@@ -286,7 +289,6 @@ using the given FACE-PREFIX as the default."
right))))
-
(defun nano-modeline--stroke-color (face)
"Extract the line color of the box for the given FACE."