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
This commit is contained in:
Rémi Vanicat 2013-03-30 13:19:54 +01:00
parent 69c0927772
commit efed5eb4bf
3 changed files with 3 additions and 4 deletions

View file

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

View file

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

View file

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