sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated ledger-mode-dump-variables

Browse source
This commit is contained in:
Craig Earls 2013-03-18 11:13:54 -07:00
parent ea72ac29ea
commit 8d73979abf
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ldg-new.el
View file

@ -92,7 +92,8 @@
(forward-line 1)))))) (forward-line 1))))))
(defun ledger-dump-variable (var) (defun ledger-dump-variable (var)
(insert (format "%s: %S\n" (symbol-name var) (eval var)))) (if var
(insert (format "%s: %S\n" (symbol-name var) (eval var)))))
(defun ledger-mode-dump-variables () (defun ledger-mode-dump-variables ()
(interactive) (interactive)
@ -103,7 +104,6 @@
(insert "Emacs: " (version) "\n") (insert "Emacs: " (version) "\n")
(insert "System Configuration: "system-configuration "\n") (insert "System Configuration: "system-configuration "\n")
(insert "ldg-commodities:\n") (insert "ldg-commodities:\n")
(ledger-dump-variable 'ledger-use-decimal-comma)
(ledger-dump-variable 'ledger-reconcile-default-commodity) (ledger-dump-variable 'ledger-reconcile-default-commodity)
(insert "ldg-exec:\n") (insert "ldg-exec:\n")
(ledger-dump-variable 'ledger-works) (ledger-dump-variable 'ledger-works)
@ -114,10 +114,10 @@
(ledger-dump-variable 'ledger-occur-history) (ledger-dump-variable 'ledger-occur-history)
(ledger-dump-variable 'ledger-occur-last-match) (ledger-dump-variable 'ledger-occur-last-match)
(insert "ldg-post:\n") (insert "ldg-post:\n")
(ledger-dump-variable 'ledger-post-auto-adjust-amounts) (ledger-dump-variable 'ledger-post-auto-adjust-postings)
(ledger-dump-variable 'ledger-post-account-alignment-column)
(ledger-dump-variable 'ledger-post-amount-alignment-column) (ledger-dump-variable 'ledger-post-amount-alignment-column)
(ledger-dump-variable 'ledger-post-use-iswitchb) (ledger-dump-variable 'ledger-post-use-completion-engine)
(ledger-dump-variable 'ledger-post-use-ido)
(insert "ldg-reconcile:\n") (insert "ldg-reconcile:\n")
(ledger-dump-variable 'ledger-recon-buffer-name) (ledger-dump-variable 'ledger-recon-buffer-name)
(ledger-dump-variable 'ledger-fold-on-reconcile) (ledger-dump-variable 'ledger-fold-on-reconcile)