diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-09-08 20:36:11 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-09-08 20:36:11 -0700 |
| commit | ad87ab16e4c25caa4b52a2905778ae4a275d69f9 (patch) | |
| tree | 532172b0a47ad9a34703e71090915aa31a9fafbc /lisp/ledger-mode.el | |
| parent | 57e2ec55ebaf97a285d31391425db58a68a578fb (diff) | |
| download | fork-ledger-ad87ab16e4c25caa4b52a2905778ae4a275d69f9.tar.gz fork-ledger-ad87ab16e4c25caa4b52a2905778ae4a275d69f9.tar.bz2 fork-ledger-ad87ab16e4c25caa4b52a2905778ae4a275d69f9.zip | |
New fortification is working.
Code pruned.
Diffstat (limited to 'lisp/ledger-mode.el')
| -rw-r--r-- | lisp/ledger-mode.el | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index 94b1f591..08cbb950 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -307,56 +307,17 @@ With a prefix argument, remove the effective date. " ["Kill Report" ledger-report-kill ledger-works])) ;;;###autoload -;; (define-derived-mode ledger-mode text-mode "Ledger" -;; "A mode for editing ledger data files." -;; (ledger-check-version) -;; (ledger-schedule-check-available) -;; ;;(ledger-post-setup) - -;; (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 'after-save-hook 'ledger-report-redo) - -;; (add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t) -;; (add-hook 'before-revert-hook 'ledger-occur-remove-all-overlays nil t) - -;; (ledger-init-load-init-file) - -;; ;; (setq font-lock-defaults -;; ;; `(,ledger-font-lock-keywords t nil nil nil -;; ;; (font-lock-fontify-buffer-function . ledger-fontify-whole-buffer) -;; ;; (font-lock-fontify-region-function . ledger-fontify-buffer-part))) - -;; ;; (setq-local font-lock-defaults `(,ledger-font-lock-keywords nil t nil nil -;; ;; (font-lock-fontify-buffer-function . ledger-fontify-whole-buffer))) - -;; (setq-local indent-region-function 'ledger-post-align-postings)) (define-derived-mode ledger-mode text-mode "Ledger" "A mode for editing ledger data files." (ledger-check-version) (ledger-schedule-check-available) - ;;(ledger-post-setup) - - ;; (set-syntax-table ledger-mode-syntax-table) - ;; (set (make-local-variable 'comment-start) "; ") - ;; (set (make-local-variable 'comment-end) "") - ;; (set (make-local-variable 'indent-tabs-mode) nil) (if (boundp 'font-lock-defaults) (setq-local font-lock-defaults '(ledger-font-lock-keywords t t nil nil (font-lock-fontify-region-function . ledger-fontify-buffer-part)))) - ;; (setq font-lock-extend-region-functions - ;; (list #'font-lock-extend-region-wholelines)) - ;; (setq font-lock-multiline nil) - - ;(jit-lock-register 'ledger-fontify-buffer-part) - ;(jit-lock-unregister 'font-lock-fontify-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) |