--- ./ledger-schedule.el.~1~	2014-12-02 15:38:54.000000000 +0100
+++ ../ledger-schedule.el	2014-12-02 18:34:28.000000000 +0100
@@ -280,6 +280,11 @@
 								(setq items (append items (list (list test-date (cadr candidate))))))))
 		items))

+(defun ledger-schedule-already-entered (candidate buffer)
+  (let ((target-date (format-time-string date-format (car candidate)))
+        (target-payee (cadr candidate)))
+    nil))
+
 (defun ledger-schedule-create-auto-buffer (candidate-items early horizon ledger-buf)
   "Format CANDIDATE-ITEMS for display."
   (let ((candidates (ledger-schedule-list-upcoming-xacts candidate-items early horizon))