update packages
This commit is contained in:
@@ -109,8 +109,9 @@ where the \"users\" point was."
|
||||
(list line-type field fields)))
|
||||
|
||||
(defun ledger-thing-at-point ()
|
||||
"Describe thing at points. Return \='transaction, \='posting, or nil.
|
||||
Leave point at the beginning of the thing under point"
|
||||
"Describe thing at point. Return \\='transaction, \\='posting, \\='day, or nil.
|
||||
|
||||
Leave point at the beginning of the thing at point, otherwise do not move point."
|
||||
(let ((here (point)))
|
||||
(goto-char (line-beginning-position))
|
||||
(cond ((looking-at "^\\(?:[~=][ \t]\\|[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.+?)\\)?\\s-+\\)")
|
||||
|
||||
Reference in New Issue
Block a user