diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-12-02 18:45:04 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-12-02 18:45:04 -0700 |
| commit | f238d993fb28cc328b86f0f3dde60f4eb3065980 (patch) | |
| tree | f99a2422910a466ac7a20ff67b0fb2e1157a0276 /lisp | |
| parent | f981ec7884dfd55d7e251e52ceb3937a9c26340e (diff) | |
| download | fork-ledger-f238d993fb28cc328b86f0f3dde60f4eb3065980.tar.gz fork-ledger-f238d993fb28cc328b86f0f3dde60f4eb3065980.tar.bz2 fork-ledger-f238d993fb28cc328b86f0f3dde60f4eb3065980.zip | |
Fix change I accidentally committed when trying to fix reconcile in frames.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-fonts.el | 5 | ||||
| -rw-r--r-- | lisp/ledger-reconcile.el | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ledger-fonts.el b/lisp/ledger-fonts.el index 3accff9b..d054a9b0 100644 --- a/lisp/ledger-fonts.el +++ b/lisp/ledger-fonts.el @@ -30,6 +30,11 @@ (defgroup ledger-faces nil "Ledger mode highlighting" :group 'ledger) +(defface ledger-font-default-face + `((t :foreground "black" :weight normal)) + "Default face for automatic transactions" + :group 'ledger-faces) + (defface ledger-font-auto-xact-face `((t :foreground "orange" :weight normal)) "Default face for automatic transactions" diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index cbfc2ccf..23d8742a 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -236,8 +236,7 @@ Return the number of uncleared xacts found." (target-buffer (if where (ledger-reconcile-get-buffer where) nil)) - (cur-win (get-buffer-window (get-buffer ledger-recon-buffer-name))) - (cur-frame (selected-frame))) + (cur-win (get-buffer-window (get-buffer ledger-recon-buffer-name)))) (when target-buffer (switch-to-buffer-other-window target-buffer) (ledger-navigate-to-line (cdr where)) @@ -246,9 +245,8 @@ Return the number of uncleared xacts found." (ledger-highlight-xact-under-point) (forward-char -1) (when (and come-back cur-win) - (select-frame-set-input-focus cur-frame) (select-window cur-win) - (get-buffer))))) + (get-buffer ledger-recon-buffer-name))))) (defun ledger-reconcile-save () |