diff options
author | Craig Earls <enderw88@gmail.com> | 2013-02-05 12:33:42 -0700 |
---|---|---|
committer | Craig Earls <enderw88@gmail.com> | 2013-02-05 12:33:42 -0700 |
commit | 4d7c4929395421eb039f0d03afafaf55cffd686d (patch) | |
tree | 733c8c25741bd3777ab2503423dcc86dd8537247 /lisp/ldg-texi.el | |
parent | d67c42207fa75b0b4715705b577a228eec05729a (diff) | |
download | fork-ledger-4d7c4929395421eb039f0d03afafaf55cffd686d.tar.gz fork-ledger-4d7c4929395421eb039f0d03afafaf55cffd686d.tar.bz2 fork-ledger-4d7c4929395421eb039f0d03afafaf55cffd686d.zip |
Lisp code cleanup
Most of the files have been touched several times and the indentation structure
was wrong. I ran all the files through the emacs indent region function to get back to
a baseline
Diffstat (limited to 'lisp/ldg-texi.el')
-rw-r--r-- | lisp/ldg-texi.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/ldg-texi.el b/lisp/ldg-texi.el index fefa7d2b..53e050ce 100644 --- a/lisp/ldg-texi.el +++ b/lisp/ldg-texi.el @@ -94,17 +94,17 @@ (if (string-match "\\$LEDGER" command) (replace-match (format "%s -f \"%s\" %s" ledger-path data-file ledger-normalization-args) t t command) - (concat (format "%s -f \"%s\" %s " ledger-path - data-file ledger-normalization-args) command))) + (concat (format "%s -f \"%s\" %s " ledger-path + data-file ledger-normalization-args) command))) (defun ledger-texi-invoke-command (command) (with-temp-buffer (shell-command command t (current-buffer)) - (if (= (point-min) (point-max)) - (progn - (push-mark nil t) - (message "Command '%s' yielded no result at %d" command (point)) - (ding)) - (buffer-string)))) + (if (= (point-min) (point-max)) + (progn + (push-mark nil t) + (message "Command '%s' yielded no result at %d" command (point)) + (ding)) + (buffer-string)))) (defun ledger-texi-write-test-data (name input) (let ((path (expand-file-name name temporary-file-directory))) @@ -149,7 +149,7 @@ (let ((section-name (if (string= section "smex") "smallexample" - "example")) + "example")) (output (ledger-texi-invoke-command (ledger-texi-expand-command command data-file)))) (insert "@" section-name ?\n output |