Mercurial > emacs

changeset 9484:255efa3fb8d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* sh-script.el: (sh-set-shell): Set font-lock-defaults.
author Simon Marshall <simon@gnu.org>
date Wed, 12 Oct 1994 09:15:14 +0000
parents a8f745eaee5c
children 2685c7803c18
files lisp/progmodes/sh-script.el
diffstat 1 files changed, 3 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el	Wed Oct 12 09:10:05 1994 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Oct 12 09:15:14 1994 +0000
@@ -392,8 +392,7 @@
   (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 @@
 	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 @@
 					(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)