diff options
| author | Simon Marshall <simon@gnu.org> | 1994-10-12 09:15:14 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1994-10-12 09:15:14 +0000 |
| commit | 0ffb818c8fb6b5d4b65ff4c0f58e61ff08fe8dc6 (patch) | |
| tree | d16904da140d68a648cd77e5518aea9e52fa580f /lisp/progmodes/sh-script.el | |
| parent | 2667df428475d93669c3af8d23969c1836bfca09 (diff) | |
| download | emacs-0ffb818c8fb6b5d4b65ff4c0f58e61ff08fe8dc6.tar.gz | |
* sh-script.el: (sh-set-shell): Set font-lock-defaults.
Diffstat (limited to 'lisp/progmodes/sh-script.el')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index a010f293459..260c31186e2 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -392,8 +392,7 @@ The following commands are available, based on the current shell's syntax: (make-local-variable 'sh-shell-is-csh) (make-local-variable 'pair-alist) (make-local-variable 'pair-filter) - (make-local-variable 'font-lock-keywords) - (make-local-variable 'font-lock-keywords-case-fold-search) + (make-local-variable 'font-lock-defaults) (make-local-variable 'sh-variables) (setq major-mode 'sh-mode mode-name "Shell-script" @@ -405,7 +404,6 @@ The following commands are available, based on the current shell's syntax: tab-width sh-tab-width ;; C shells do require-final-newline t - font-lock-keywords-case-fold-search nil pair-alist '((?` _ ?`)) pair-filter 'sh-quoted-p) ;; parse or insert magic number for exec @@ -828,8 +826,8 @@ Calls the value of `sh-set-shell-hook' if set." (error "Cannot find %s." shell))) sh-shell (intern (file-name-nondirectory sh-shell-path)) sh-shell-is-csh (memq sh-shell '(csh tcsh)) - font-lock-keywords - (intern-soft (format "sh-%s-font-lock-keywords" sh-shell)) + font-lock-defaults + (list (intern-soft (format "sh-%s-font-lock-keywords" sh-shell))) font-lock-keywords (if (and font-lock-keywords (boundp font-lock-keywords)) (symbol-value font-lock-keywords) |