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

(sh-font-lock-keywords): Don't crash for an unrecognized shell.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-10-21 03:47:41 +00:00
parent bbdf24fae2
commit b946fbad39
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -794,11 +794,12 @@ with your script for an edit-interpret-debug cycle."
"Function to get simple fontification based on `sh-font-lock-keywords'.
This adds rules for comments and assignments."
(sh-feature sh-font-lock-keywords
(lambda (list)
`((,(sh-feature sh-assignment-regexp)
1 font-lock-variable-name-face)
,@keywords
,@list))))
(when (stringp (sh-feature sh-assignment-regexp))
(lambda (list)
`((,(sh-feature sh-assignment-regexp)
1 font-lock-variable-name-face)
,@keywords
,@list)))))
(defun sh-font-lock-keywords-1 (&optional builtins)
"Function to get better fontification including keywords."