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

Fix change I accidentally committed when trying to fix reconcile in frames.

Browse source
This commit is contained in:
Craig Earls 2014-12-02 18:45:04 -07:00
parent f981ec7884
commit f238d993fb
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ledger-fonts.el
View file

@ -30,6 +30,11 @@
(defgroup ledger-faces nil "Ledger mode highlighting" :group 'ledger) (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 (defface ledger-font-auto-xact-face
`((t :foreground "orange" :weight normal)) `((t :foreground "orange" :weight normal))
"Default face for automatic transactions" "Default face for automatic transactions"

6
lisp/ledger-reconcile.el
View file

@ -236,8 +236,7 @@ Return the number of uncleared xacts found."
(target-buffer (if where (target-buffer (if where
(ledger-reconcile-get-buffer where) (ledger-reconcile-get-buffer where)
nil)) nil))
(cur-win (get-buffer-window (get-buffer ledger-recon-buffer-name))) (cur-win (get-buffer-window (get-buffer ledger-recon-buffer-name))))
(cur-frame (selected-frame)))
(when target-buffer (when target-buffer
(switch-to-buffer-other-window target-buffer) (switch-to-buffer-other-window target-buffer)
(ledger-navigate-to-line (cdr where)) (ledger-navigate-to-line (cdr where))
@ -246,9 +245,8 @@ Return the number of uncleared xacts found."
(ledger-highlight-xact-under-point) (ledger-highlight-xact-under-point)
(forward-char -1) (forward-char -1)
(when (and come-back cur-win) (when (and come-back cur-win)
(select-frame-set-input-focus cur-frame)
(select-window cur-win) (select-window cur-win)
(get-buffer))))) (get-buffer ledger-recon-buffer-name)))))
(defun ledger-reconcile-save () (defun ledger-reconcile-save ()