From efed5eb4bfd35a75e013c70f76c34452542eee5e Mon Sep 17 00:00:00 2001
From: Rémi Vanicat <vanicat@debian.org>
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 c9f91992031967e9f378da1a14b92bc6f9276c90 Mon Sep 17 00:00:00 2001
From: Rémi Vanicat <vanicat@debian.org>
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