From b133e16fb33bec8cc19e7649efe40671d50c2e38 Mon Sep 17 00:00:00 2001 From: Paul Lathrop Date: Mon, 5 Mar 2012 14:13:24 -0800 Subject: Fix ledger-reconcile-visit. Removes a (apparently) un-necessary check on the car of the 'where' text property, and instead checks that the cdr is a valid marker object. May not be the correct fix for this problem, but *does* work. --- lisp/ledger.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/ledger.el') diff --git a/lisp/ledger.el b/lisp/ledger.el index 1c8aade3..30677f1c 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -545,7 +545,7 @@ dropped." (defun ledger-reconcile-visit () (interactive) (let ((where (get-text-property (point) 'where))) - (when (or (equal (car where) "") (equal (car where) "/dev/stdin")) + (when (markerp (cdr where)) (switch-to-buffer-other-window ledger-buf) (goto-char (cdr where))))) -- cgit v1.2.3 From ecd2ece1957b96845ebc7e863fc9ff8be3c5361d Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 16 Mar 2012 03:00:39 -0500 Subject: Restored tabs that had been converted to spaces --- lisp/ledger.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/ledger.el') diff --git a/lisp/ledger.el b/lisp/ledger.el index 30677f1c..4fc21d6a 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -128,12 +128,12 @@ text that should replace the format specifier." (defvar bold 'bold) (defvar ledger-font-lock-keywords - '(("\\( \\| \\|^\\)\\(;.*\\)" 2 font-lock-comment-face) + '(("\\( \\| \\|^\\)\\(;.*\\)" 2 font-lock-comment-face) ("^[0-9]+[-/.=][-/.=0-9]+\\s-+\\(([^)]+)\\s-+\\)?\\([^*].+?\\)\\(\\( ;\\| ;\\|$\\)\\)" 2 bold) ;;("^[0-9]+[-/.=][-/.=0-9]+\\s-+\\(([^)]+)\\s-+\\)?\\([*].+?\\)\\(\\( ;\\| ;\\|$\\)\\)" ;; 2 font-lock-type-face) ("^\\s-+\\([*]\\s-*\\)?\\(\\([[(]\\)?\\([^*;]\\)+?\\(:\\|\\s-\\)[^]); - ]+?\\([])]\\)?\\)\\( \\| \\|$\\)" + ]+?\\([])]\\)?\\)\\( \\| \\|$\\)" 2 font-lock-keyword-face) ("^\\([~=].+\\)" 1 font-lock-function-name-face) ("^\\([A-Za-z]+ .+\\)" 1 font-lock-function-name-face)) -- cgit v1.2.3