diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-05 12:33:42 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-05 12:33:42 -0700 |
| commit | 4d7c4929395421eb039f0d03afafaf55cffd686d (patch) | |
| tree | 733c8c25741bd3777ab2503423dcc86dd8537247 /lisp/ldg-sort.el | |
| parent | d67c42207fa75b0b4715705b577a228eec05729a (diff) | |
| download | ledger-4d7c4929395421eb039f0d03afafaf55cffd686d.tar.gz ledger-4d7c4929395421eb039f0d03afafaf55cffd686d.tar.bz2 ledger-4d7c4929395421eb039f0d03afafaf55cffd686d.zip | |
Lisp code cleanup
Most of the files have been touched several times and the indentation structure
was wrong. I ran all the files through the emacs indent region function to get back to
a baseline
Diffstat (limited to 'lisp/ldg-sort.el')
| -rw-r--r-- | lisp/ldg-sort.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/ldg-sort.el b/lisp/ldg-sort.el index 9cecefa4..86e3fa0a 100644 --- a/lisp/ldg-sort.el +++ b/lisp/ldg-sort.el @@ -23,11 +23,11 @@ ;; the form YYYY/mm/dd. (defun ledger-next-record-function () - (if (re-search-forward - (concat "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.*?)\\)?\\s-+" - "\\(.+?\\)\\(\t\\|\n\\| [ \t]\\)") nil t) - (goto-char (match-beginning 0)) - (goto-char (point-max)))) + (if (re-search-forward + (concat "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.*?)\\)?\\s-+" + "\\(.+?\\)\\(\t\\|\n\\| [ \t]\\)") nil t) + (goto-char (match-beginning 0)) + (goto-char (point-max)))) (defun ledger-end-record-function () (forward-paragraph)) @@ -42,7 +42,7 @@ (setq new-beg (point)) (goto-char end) (ledger-next-record-function) ;make sure end of region is at the beginning of - ;next record after the region + ;next record after the region (setq new-end (point)) (narrow-to-region beg end) (goto-char (point-min)) @@ -55,7 +55,7 @@ (defun ledger-sort-buffer () (interactive) - (ledger-sort-region (point-min) (point-max))) + (ledger-sort-region (point-min) (point-max))) (provide 'ldg-sort)
\ No newline at end of file |