sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[emacs] Add syntax table so that ";" comments are handled

Browse source 
This allows things like goto-address-prog-mode to correctly
highlight URLs inside comments.
This commit is contained in:
Steve Purcell 2014-12-13 17:09:11 +00:00
parent ad7c5ea764
commit b0ab334ddf
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ledger-mode.el
View file

@ -244,6 +244,13 @@ With a prefix argument, remove the effective date."
(goto-char start) (goto-char start)
(search-forward target)))) (search-forward target))))
(defvar ledger-mode-syntax-table
(let ((table (make-syntax-table text-mode-syntax-table)))
(modify-syntax-entry ?\; "<" table)
(modify-syntax-entry ?\n ">" table)
table)
"Syntax table in use in `ledger-mode' buffers.")
(defvar ledger-mode-map (defvar ledger-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map [(control ?c) (control ?a)] 'ledger-add-transaction) (define-key map [(control ?c) (control ?a)] 'ledger-add-transaction)
@ -322,10 +329,10 @@ With a prefix argument, remove the effective date."
["Kill Report" ledger-report-kill ledger-works])) ["Kill Report" ledger-report-kill ledger-works]))
;;;###autoload ;;;###autoload
(define-derived-mode ledger-mode text-mode "Ledger" (define-derived-mode ledger-mode text-mode "Ledger"
"A mode for editing ledger data files." "A mode for editing ledger data files."
(ledger-check-version) (ledger-check-version)
(set-syntax-table ledger-mode-syntax-table)
(when (boundp 'font-lock-defaults) (when (boundp 'font-lock-defaults)
(setq font-lock-defaults (setq font-lock-defaults
'(ledger-font-lock-keywords t t nil nil '(ledger-font-lock-keywords t t nil nil