[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/orgalist 34d6322 4/7: orgalist: Replace `orgalist--inde
From: |
Nicolas Goaziou |
Subject: |
[elpa] externals/orgalist 34d6322 4/7: orgalist: Replace `orgalist--indentation' with `current-indentation' |
Date: |
Tue, 1 May 2018 09:31:00 -0400 (EDT) |
branch: externals/orgalist
commit 34d632214b0515b7802d99214d25995641b71485
Author: Nicolas Goaziou <address@hidden>
Commit: Nicolas Goaziou <address@hidden>
orgalist: Replace `orgalist--indentation' with `current-indentation'
* orgalist.el (orgalist--indentation): Remove function.
(orgalist--in-item-p):
(orgalist--struct): Use `current-indentation'.
---
orgalist.el | 17 +++++------------
1 file changed, 5 insertions(+), 12 deletions(-)
diff --git a/orgalist.el b/orgalist.el
index 7177ce9..ac05480 100644
--- a/orgalist.el
+++ b/orgalist.el
@@ -213,13 +213,6 @@ Return nil if Orgalist mode is not active."
(or (and (functionp f) (funcall f))
(cons (point-min) (point-max))))))
-(defun orgalist--indentation ()
- "Return current line's indentation."
- (save-excursion
- (beginning-of-line)
- (skip-chars-forward "[ \t]")
- (current-column)))
-
(defun orgalist--at-item-p ()
"Non-nil if point is at an item."
(and (orgalist--boundaries) ;check context
@@ -238,7 +231,7 @@ Return nil if Orgalist mode is not active."
;; Indentation isn't meaningful when point starts at an
;; empty line .
(ind-ref (if (looking-at-p "^[ \t]*$") 10000
- (orgalist--indentation))))
+ (current-indentation))))
(if (looking-at orgalist--item-re) (point)
;; Detect if cursor in the middle of blank lines after a list.
(let ((end-bounds nil))
@@ -250,7 +243,7 @@ Return nil if Orgalist mode is not active."
;; Look for an item, less indented that reference line.
(catch 'exit
(while t
- (let ((ind (orgalist--indentation)))
+ (let ((ind (current-indentation)))
(cond
;; This is exactly what we want.
((and (looking-at orgalist--item-re) (< ind ind-ref))
@@ -306,7 +299,7 @@ Assume point is at an item."
(beginning-of-line)
(pcase-let* ((`(,lim-up . ,lim-down) (orgalist--boundaries))
(text-min-ind 10000)
- (beg-cell (cons (point) (orgalist--indentation)))
+ (beg-cell (cons (point) (current-indentation)))
(itm-lst nil)
(itm-lst-2 nil)
(end-lst nil)
@@ -336,7 +329,7 @@ Assume point is at an item."
(save-excursion
(catch 'exit
(while t
- (let ((ind (orgalist--indentation)))
+ (let ((ind (current-indentation)))
(cond
((<= (point) lim-up)
;; At upward limit: if we ended at an item, store it,
@@ -388,7 +381,7 @@ Assume point is at an item."
;; position of items in END-LST-2.
(catch 'exit
(while t
- (let ((ind (orgalist--indentation)))
+ (let ((ind (current-indentation)))
(cond
((>= (point) lim-down)
;; At downward limit: this is de facto the end of the
- [elpa] externals/orgalist updated (17653db -> 857d3d5), Nicolas Goaziou, 2018/05/01
- [elpa] externals/orgalist 857d3d5 7/7: orgalist: Bump to version 1.2, Nicolas Goaziou, 2018/05/01
- [elpa] externals/orgalist 93609f9 2/7: orgalist: Simplify auto fill, Nicolas Goaziou, 2018/05/01
- [elpa] externals/orgalist 34d6322 4/7: orgalist: Replace `orgalist--indentation' with `current-indentation',
Nicolas Goaziou <=
- [elpa] externals/orgalist 8ac38b2 6/7: orgalist: Add non-nil `sentence-end-double-space' file local variable, Nicolas Goaziou, 2018/05/01
- [elpa] externals/orgalist 63e90b5 1/7: orgalist: Fix filling items, Nicolas Goaziou, 2018/05/01
- [elpa] externals/orgalist 470ab82 3/7: orgalist: Improve indentation cycling, Nicolas Goaziou, 2018/05/01
- [elpa] externals/orgalist 5659da7 5/7: orgalist: Improve documentation, Nicolas Goaziou, 2018/05/01