Mercurial > emacs

changeset 24906:01882044b37a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-feature): If nothing is known about the given shell, use the values for `sh'.
author Richard M. Stallman <rms@gnu.org>
date Thu, 01 Jul 1999 01:00:42 +0000
parents 2c79eecad64d
children 3a8dabda4664
files lisp/progmodes/sh-script.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el	Thu Jul 01 00:24:55 1999 +0000
+++ b/lisp/progmodes/sh-script.el	Thu Jul 01 01:00:42 1999 +0000
@@ -883,6 +883,7 @@
 
   - Fall back on successive ancestors (see `sh-ancestor-alist') as long as
     the alist contains no value for the current shell.
+    The ultimate default is always `sh'.
 
   - If the value thus looked up is a list starting with `eval' its `cdr' is
     first evaluated.  If that is also a list and the first argument is a
@@ -906,6 +907,9 @@
 	(while (and sh-shell
 		    (not (setq elt (assq sh-shell list))))
 	  (setq sh-shell (cdr (assq sh-shell sh-ancestor-alist))))
+	;; If the shell is not known, treat it as sh.
+	(unless elt
+	  (setq elt (assq 'sh list)))
 	(if (and (consp (setq val (cdr elt)))
 		 (eq (car val) 'eval))
 	    (setcdr elt