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

Merge commit 'chrismgray/master' into next

Browse source
This commit is contained in:
John Wiegley 2009-06-17 16:56:11 +01:00
commit de50277abe
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ledger.el
View file

@ -493,7 +493,7 @@ dropped."
(account ledger-acct) (account ledger-acct)
(inhibit-read-only t) (inhibit-read-only t)
cleared) cleared)
(when (equal (car where) "<stdin>") (when (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin"))
(with-current-buffer ledger-buf (with-current-buffer ledger-buf
(goto-char (cdr where)) (goto-char (cdr where))
(setq cleared (ledger-toggle-current 'pending))) (setq cleared (ledger-toggle-current 'pending)))
@ -532,7 +532,7 @@ dropped."
(defun ledger-reconcile-delete () (defun ledger-reconcile-delete ()
(interactive) (interactive)
(let ((where (get-text-property (point) 'where))) (let ((where (get-text-property (point) 'where)))
(when (equal (car where) "<stdin>") (when (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin"))
(with-current-buffer ledger-buf (with-current-buffer ledger-buf
(goto-char (cdr where)) (goto-char (cdr where))
(ledger-delete-current-entry)) (ledger-delete-current-entry))
@ -544,7 +544,7 @@ dropped."
(defun ledger-reconcile-visit () (defun ledger-reconcile-visit ()
(interactive) (interactive)
(let ((where (get-text-property (point) 'where))) (let ((where (get-text-property (point) 'where)))
(when (equal (car where) "<stdin>") (when (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin"))
(switch-to-buffer-other-window ledger-buf) (switch-to-buffer-other-window ledger-buf)
(goto-char (cdr where))))) (goto-char (cdr where)))))
@ -567,7 +567,7 @@ dropped."
(let ((where (get-text-property (point) 'where)) (let ((where (get-text-property (point) 'where))
(face (get-text-property (point) 'face))) (face (get-text-property (point) 'face)))
(if (and (eq face 'bold) (if (and (eq face 'bold)
(equal (car where) "<stdin>")) (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin")))
(with-current-buffer ledger-buf (with-current-buffer ledger-buf
(goto-char (cdr where)) (goto-char (cdr where))
(ledger-toggle-current 'cleared)))) (ledger-toggle-current 'cleared))))