diff options
| -rw-r--r-- | doc/ledger-mode.texi | 2 | ||||
| -rw-r--r-- | lisp/ledger-navigate.el | 4 | ||||
| -rw-r--r-- | lisp/ledger-occur.el | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/doc/ledger-mode.texi b/doc/ledger-mode.texi index 17ec0e78..c8c4d1f6 100644 --- a/doc/ledger-mode.texi +++ b/doc/ledger-mode.texi @@ -119,9 +119,9 @@ initialization file (@file{~/.emacs}, @file{~/.emacs.d/init.el}, or @file{~/.Aquamacs/Preferences.el}). @lisp +(autoload 'ledger-mode "ledger-mode" "A major mode for Ledger" t) (add-to-list 'load-path (expand-file-name "/path/to/ledger/source/lisp/")) -(load "ledger-mode") (add-to-list 'auto-mode-alist '("\\.ledger$" . ledger-mode)) @end lisp diff --git a/lisp/ledger-navigate.el b/lisp/ledger-navigate.el index d4e70984..5da5cf8d 100644 --- a/lisp/ledger-navigate.el +++ b/lisp/ledger-navigate.el @@ -65,7 +65,7 @@ beginning with whitespace" (interactive) ;; need to start at the beginning of a line incase we are in the first line of an xact already. (beginning-of-line) - (let ((sreg (concat "^\\(~\\|" ledger-iso-date-regexp "\\)"))) + (let ((sreg (concat "^\\(=\\|~\\|" ledger-iso-date-regexp "\\)"))) (unless (looking-at sreg) (re-search-backward sreg nil t) (beginning-of-line))) @@ -152,7 +152,7 @@ Requires empty line separating xacts." (save-excursion (goto-char pos) (beginning-of-line) - (if (looking-at "[ ~0-9]") + (if (looking-at "[ =~0-9]") (ledger-navigate-find-xact-extents pos) (ledger-navigate-find-directive-extents pos)))) ;;; ledger-navigate.el ends here diff --git a/lisp/ledger-occur.el b/lisp/ledger-occur.el index cd7a2674..400967fe 100644 --- a/lisp/ledger-occur.el +++ b/lisp/ledger-occur.el @@ -160,7 +160,7 @@ Used for coordinating `ledger-occur' with other buffers, like reconcile." (while (not (eobp)) ;; if something found (when (setq endpoint (re-search-forward regex nil 'end)) - (setq bounds (ledger-navigate-find-xact-extents endpoint)) + (setq bounds (ledger-navigate-find-element-extents endpoint)) (push bounds lines) ;; move to the end of the xact, no need to search inside it more (goto-char (cadr bounds)))) |