Merge branch 'next' into ledger-mode-automatic-transactions

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)))
 

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

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)
 

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))))