diff options
| author | John Wiegley <johnw@newartisans.com> | 2005-11-09 07:11:22 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-04-13 02:41:21 -0400 |
| commit | f691735c6ce89a19356769084449d3f5691ab030 (patch) | |
| tree | df7a5de60353d3558b00d21ee83cf01e8da56331 /ledger.el | |
| parent | 3a689c568a715e7c6604825eab537d66333ce291 (diff) | |
| download | fork-ledger-f691735c6ce89a19356769084449d3f5691ab030.tar.gz fork-ledger-f691735c6ce89a19356769084449d3f5691ab030.tar.bz2 fork-ledger-f691735c6ce89a19356769084449d3f5691ab030.zip | |
Restructed the code that it can build and be used as a shared library.
The command-line version is still statically bound in the build
process by default (for the sake of speed).
Diffstat (limited to 'ledger.el')
| -rw-r--r-- | ledger.el | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -487,7 +487,7 @@ dropped." (dolist (item items) (let ((index 1)) (dolist (xact (nthcdr 5 item)) - (let ((beg (point)) + (let ((beg (point)) (where (with-current-buffer buf (cons @@ -502,14 +502,14 @@ dropped." account (cdr (ledger-current-entry-bounds))) (setq i (1+ i)))) (point-marker))))))) - (insert (format "%s %-30s %-25s %15s\n" + (insert (format "%s %-30s %-25s %15s\n" (format-time-string "%m/%d" (nth 2 item)) (nth 4 item) (nth 0 xact) (nth 1 xact))) (if (nth 2 xact) + (set-text-properties beg (1- (point)) + (list 'face 'bold + 'where where)) (set-text-properties beg (1- (point)) - (list 'face 'bold - 'where where)) - (set-text-properties beg (1- (point)) (list 'where where)))) (setq index (1+ index))))) (goto-char (point-min)) |