diff options
| author | 4ourbit <4ourbit@gmail.com> | 2013-12-23 14:06:20 +0100 |
|---|---|---|
| committer | 4ourbit <4ourbit@gmail.com> | 2013-12-23 14:06:20 +0100 |
| commit | f18833c78bc05e4ee16aa8e835cc5d9760098912 (patch) | |
| tree | 1b830059caf514abf20b3428bec8b4d2c8762117 /lisp | |
| parent | 4e997836c3437f6fe80deb0d2313614cfab7005d (diff) | |
| download | fork-ledger-f18833c78bc05e4ee16aa8e835cc5d9760098912.tar.gz fork-ledger-f18833c78bc05e4ee16aa8e835cc5d9760098912.tar.bz2 fork-ledger-f18833c78bc05e4ee16aa8e835cc5d9760098912.zip | |
fix for unexpected point movement
bug fixed: point moves to previous char when called at whitespace-only line
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-context.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ledger-context.el b/lisp/ledger-context.el index aafcc5d8..eb3d4353 100644 --- a/lisp/ledger-context.el +++ b/lisp/ledger-context.el @@ -113,7 +113,7 @@ Leave point at the beginning of the thing under point" (cond ((looking-at "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.+?)\\)?\\s-+") (goto-char (match-end 0)) 'transaction) - ((looking-at "^\\s-+\\([*!]\\s-+\\)?[[(]?\\(.\\)") + ((looking-at "^\\s-+\\([*!]\\s-+\\)?[[(]?\\([^\\s-]\\)") (goto-char (match-beginning 2)) 'posting) ((looking-at "^\\(sun\\|mon\\|tue\\|wed\\|thu\\|fri\\|sat\\)\\s-+") |