diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-31 19:19:54 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-31 19:19:54 -0700 |
| commit | b15d4bc09e40c71bd9a59f33457839daaec659a8 (patch) | |
| tree | 106e5784369ed8bbb584ca2766819f279c5d55ab /lisp | |
| parent | 9f25571accaa2a31afb28c7daa2dc4832e226383 (diff) | |
| parent | 9fc1f512b52e36402a3e913b495b1adc283f6073 (diff) | |
| download | fork-ledger-b15d4bc09e40c71bd9a59f33457839daaec659a8.tar.gz fork-ledger-b15d4bc09e40c71bd9a59f33457839daaec659a8.tar.bz2 fork-ledger-b15d4bc09e40c71bd9a59f33457839daaec659a8.zip | |
Merge branch 'next' into ledger-mode-automatic-transactions
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ldg-commodities.el | 2 | ||||
| -rw-r--r-- | lisp/ldg-exec.el | 4 | ||||
| -rw-r--r-- | lisp/ldg-fonts.el | 2 | ||||
| -rw-r--r-- | lisp/ldg-report.el | 2 |
4 files changed, 4 insertions, 6 deletions
diff --git a/lisp/ldg-commodities.el b/lisp/ldg-commodities.el index 831d770b..842613c6 100644 --- a/lisp/ldg-commodities.el +++ b/lisp/ldg-commodities.el @@ -75,7 +75,7 @@ Returns a list with (value commodity)." (let ((fields (split-string str "[\n\r]"))) ; break any balances ; with multi commodities ; into a list - (mapcar '(lambda (str) + (mapcar #'(lambda (str) (ledger-split-commodity-string str)) fields))) diff --git a/lisp/ldg-exec.el b/lisp/ldg-exec.el index 4a485072..f6c3bb54 100644 --- a/lisp/ldg-exec.el +++ b/lisp/ldg-exec.el @@ -44,10 +44,8 @@ "Deal with ledger errors contained in LEDGER-OUTPUT." (with-current-buffer (get-buffer-create "*Ledger Error*") (insert-buffer-substring ledger-output) - (make-frame) - (fit-frame) (view-mode) - (toggle-read-only))) + (setq buffer-read-only t))) (defun ledger-exec-success-p (ledger-output-buffer) (with-current-buffer ledger-output-buffer diff --git a/lisp/ldg-fonts.el b/lisp/ldg-fonts.el index 76bfc03d..3a7d1e0a 100644 --- a/lisp/ldg-fonts.el +++ b/lisp/ldg-fonts.el @@ -38,7 +38,7 @@ :group 'ledger-faces) (defface ledger-font-highlight-face - `((t :background "white")) + `((t :background "#eee8d5")) "Default face for transaction under point" :group 'ledger-faces) diff --git a/lisp/ldg-report.el b/lisp/ldg-report.el index 4f14fdcb..04c182dd 100644 --- a/lisp/ldg-report.el +++ b/lisp/ldg-report.el @@ -79,7 +79,7 @@ text that should replace the format specifier." (interactive) (goto-char (point-min)) (forward-paragraph) - (next-line) + (forward-line) (save-excursion (setq inhibit-read-only t) (reverse-region (point) (point-max)))) |