diff options
| -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) |