diff options
Diffstat (limited to 'ledger-mode.el')
-rw-r--r-- | ledger-mode.el | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/ledger-mode.el b/ledger-mode.el index dc92f73..bdd1b5e 100644 --- a/ledger-mode.el +++ b/ledger-mode.el @@ -149,17 +149,6 @@ And calculate the target-delta of the account being reconciled." (when balance (message balance)))) -(defun ledger-magic-tab (&optional interactively) - "Decide what to with with <TAB>, INTERACTIVELY. -Can indent, complete or align depending on context." - (interactive "p") - (if (= (point) (line-beginning-position)) - (indent-to ledger-post-account-alignment-column) - (if (and (> (point) 1) - (looking-back "\\([^ \t]\\)" 1)) - (ledger-pcomplete interactively) - (ledger-post-align-postings (line-beginning-position) (line-end-position))))) - (defvar ledger-mode-abbrev-table) (defvar ledger-date-string-today (ledger-format-date)) @@ -264,9 +253,7 @@ With a prefix argument, remove the effective date." (define-key map [(control ?c) (control ?l)] #'ledger-display-ledger-stats) (define-key map [(control ?c) (control ?q)] #'ledger-post-align-xact) - (define-key map [tab] #'ledger-magic-tab) (define-key map [(control tab)] #'ledger-post-align-xact) - (define-key map [(control ?i)] #'ledger-magic-tab) (define-key map [(control ?c) tab] #'ledger-fully-complete-xact) (define-key map [(control ?c) (control ?i)] #'ledger-fully-complete-xact) @@ -330,17 +317,14 @@ With a prefix argument, remove the effective date." (setq font-lock-defaults '(ledger-font-lock-keywords t nil nil nil)) (add-hook 'font-lock-extend-region-functions 'ledger-fontify-extend-region) - - (setq-local pcomplete-parse-arguments-function 'ledger-parse-arguments) - (setq-local pcomplete-command-completion-function 'ledger-complete-at-point) - (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) + (add-hook 'completion-at-point-functions #'ledger-complete-at-point nil t) (add-hook 'after-save-hook 'ledger-report-redo nil t) (add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t) (ledger-init-load-init-file) (setq-local comment-start ";") - + (setq-local indent-line-function #'ledger-indent-line) (setq-local indent-region-function 'ledger-post-align-postings)) ;;;###autoload |