Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1c64011b
Commit
1c64011b
authored
Jul 01, 1999
by
Richard M. Stallman
Browse files
(sh-feature): If nothing is known about the given shell, use the
values for `sh'.
parent
ac1f48a4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
0 deletions
+4
-0
lisp/progmodes/sh-script.el
lisp/progmodes/sh-script.el
+4
-0
No files found.
lisp/progmodes/sh-script.el
View file @
1c64011b
...
...
@@ -883,6 +883,7 @@ Else indexing follows an inheritance logic which works in two ways:
- 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 @@ in ALIST."
(
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment