From efed5eb4bfd35a75e013c70f76c34452542eee5e Mon Sep 17 00:00:00 2001 From: Rémi Vanicat Date: Sat, 30 Mar 2013 13:19:54 +0100 Subject: Removing some warning when compiling ledger. * ldg-commodities.el: use #' instead of ' for function quoting * ldg-exec.el: remove the fit-frame function that don't exists and do not use toggle-read-only to make the buffer read-only * ldg-report.el: use forward-line instead of next-line --- lisp/ldg-commodities.el | 2 +- lisp/ldg-exec.el | 3 +-- lisp/ldg-report.el | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp') 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..51443ff4 100644 --- a/lisp/ldg-exec.el +++ b/lisp/ldg-exec.el @@ -45,9 +45,8 @@ (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-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)))) -- cgit v1.2.3 From e3c6ebf97f2f9f7d08f845184c19fccbcf515ce8 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sun, 31 Mar 2013 09:19:10 -0700 Subject: Correct a solarize face --- lisp/ldg-fonts.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/ldg-fonts.el b/lisp/ldg-fonts.el index 76bfc03d..5874b81f 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) -- cgit v1.2.3 From 7bad6186938c7b0d02d9c01050fdcdb3b4cd47f0 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sun, 31 Mar 2013 09:54:28 -0700 Subject: Oops, forgot a # --- lisp/ldg-fonts.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/ldg-fonts.el b/lisp/ldg-fonts.el index 5874b81f..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 "eee8d5")) + `((t :background "#eee8d5")) "Default face for transaction under point" :group 'ledger-faces) -- cgit v1.2.3 From c9f91992031967e9f378da1a14b92bc6f9276c90 Mon Sep 17 00:00:00 2001 From: Rémi Vanicat Date: Sun, 31 Mar 2013 21:16:39 +0200 Subject: Use (fit-window-to-buffer) for error reporting. --- lisp/ldg-exec.el | 1 + 1 file changed, 1 insertion(+) (limited to 'lisp') diff --git a/lisp/ldg-exec.el b/lisp/ldg-exec.el index 51443ff4..c09b364d 100644 --- a/lisp/ldg-exec.el +++ b/lisp/ldg-exec.el @@ -45,6 +45,7 @@ (with-current-buffer (get-buffer-create "*Ledger Error*") (insert-buffer-substring ledger-output) (make-frame) + (fit-window-to-buffer) (view-mode) (setq buffer-read-only t))) -- cgit v1.2.3 From f015d00fa5b7cb54781569a8ed3835fa5163fae1 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sun, 31 Mar 2013 19:15:10 -0700 Subject: corrected error output --- lisp/ldg-exec.el | 2 -- 1 file changed, 2 deletions(-) (limited to 'lisp') diff --git a/lisp/ldg-exec.el b/lisp/ldg-exec.el index 4a485072..c9bf92ba 100644 --- a/lisp/ldg-exec.el +++ b/lisp/ldg-exec.el @@ -44,8 +44,6 @@ "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))) -- cgit v1.2.3