mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

* sh-script.el: (sh-set-shell): Set font-lock-defaults.

Browse Source
This commit is contained in:
Simon Marshall 1994-10-12 09:15:14 +00:00
parent 2667df4284
commit 0ffb818c8f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/progmodes/sh-script.el
View File

@ -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)