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

[emacs] Don't use setq-local, which only appeared in Emacs 24.4

Browse source 
/cc @enderw88
This commit is contained in:
Steve Purcell 2014-12-09 21:13:03 +00:00
parent 0fb064443d
commit 68574f8f59
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ledger-mode.el
View file

@ -326,13 +326,13 @@ With a prefix argument, remove the effective date."
(define-derived-mode ledger-mode text-mode "Ledger"
"A mode for editing ledger data files."
(ledger-check-version)
(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))))
(when (boundp 'font-lock-defaults)
(setq font-lock-defaults
'(ledger-font-lock-keywords t t nil nil
(font-lock-fontify-region-function . ledger-fontify-buffer-part))))
(setq-local pcomplete-parse-arguments-function 'ledger-parse-arguments)
(setq-local pcomplete-command-completion-function 'ledger-complete-at-point)
(set (make-local-variable 'pcomplete-parse-arguments-function) 'ledger-parse-arguments)
(set (make-local-variable '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)
@ -341,7 +341,7 @@ With a prefix argument, remove the effective date."
(ledger-init-load-init-file)
(setq comment-start ";")
(setq-local indent-region-function 'ledger-post-align-postings))
(set (make-local-variable 'indent-region-function) 'ledger-post-align-postings))