From f0a83b35f0286fa986044d4362d76399080ab864 Mon Sep 17 00:00:00 2001 From: Chris Gray Date: Wed, 17 Jun 2009 14:07:38 +0200 Subject: Change reconcile-mode to look for either or /dev/stdin --- lisp/ledger.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/ledger.el') diff --git a/lisp/ledger.el b/lisp/ledger.el index b09ddc34..be730fd9 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -493,7 +493,7 @@ dropped." (account ledger-acct) (inhibit-read-only t) cleared) - (when (equal (car where) "") + (when (or (equal (car where) "") (equal (car where) "/dev/stdin")) (with-current-buffer ledger-buf (goto-char (cdr where)) (setq cleared (ledger-toggle-current 'pending))) @@ -532,7 +532,7 @@ dropped." (defun ledger-reconcile-delete () (interactive) (let ((where (get-text-property (point) 'where))) - (when (equal (car where) "") + (when (or (equal (car where) "") (equal (car where) "/dev/stdin")) (with-current-buffer ledger-buf (goto-char (cdr where)) (ledger-delete-current-entry)) @@ -544,7 +544,7 @@ dropped." (defun ledger-reconcile-visit () (interactive) (let ((where (get-text-property (point) 'where))) - (when (equal (car where) "") + (when (or (equal (car where) "") (equal (car where) "/dev/stdin")) (switch-to-buffer-other-window ledger-buf) (goto-char (cdr where))))) @@ -567,7 +567,7 @@ dropped." (let ((where (get-text-property (point) 'where)) (face (get-text-property (point) 'face))) (if (and (eq face 'bold) - (equal (car where) "")) + (or (equal (car where) "") (equal (car where) "/dev/stdin"))) (with-current-buffer ledger-buf (goto-char (cdr where)) (ledger-toggle-current 'cleared)))) -- cgit v1.2.3