Commit 5d18b953 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(sh-shell-arg, sh-require-final-newline, sh-assignment-regexp, sh-builtins)

(sh-leading-keywords, sh-other-keywords): Fix custom type.
parent 11a365f9
2004-02-27 Markus Rost <rost@mathematik.uni-bielefeld.de>
* progmodes/sh-script.el (sh-shell-arg)
(sh-require-final-newline, sh-assignment-regexp, sh-builtins)
(sh-leading-keywords, sh-other-keywords): Fix custom type.
2004-02-27 Dan Nicolaescu <dann@ics.uci.edu> 2004-02-27 Dan Nicolaescu <dann@ics.uci.edu>
* faces.el (face-spec-set-match-display): Add a new attribute, * faces.el (face-spec-set-match-display): Add a new attribute,
......
...@@ -315,9 +315,7 @@ shell it really is." ...@@ -315,9 +315,7 @@ shell it really is."
:type '(repeat (cons (symbol :tag "Shell") :type '(repeat (cons (symbol :tag "Shell")
(choice (const :tag "No Arguments" nil) (choice (const :tag "No Arguments" nil)
(string :tag "Arguments") (string :tag "Arguments")
(cons :format "Evaluate: %v" (sexp :format "Evaluate: %v"))))
(const :format "" eval)
sexp))))
:group 'sh-script) :group 'sh-script)
(defcustom sh-imenu-generic-expression (defcustom sh-imenu-generic-expression
...@@ -498,9 +496,7 @@ This is buffer-local in every such buffer.") ...@@ -498,9 +496,7 @@ This is buffer-local in every such buffer.")
See `sh-feature'." See `sh-feature'."
:type '(repeat (cons (symbol :tag "Shell") :type '(repeat (cons (symbol :tag "Shell")
(choice (const :tag "require" t) (choice (const :tag "require" t)
(cons :format "Evaluate: %v" (sexp :format "Evaluate: %v"))))
(const :format "" eval)
sexp))))
:group 'sh-script) :group 'sh-script)
...@@ -515,9 +511,7 @@ First grouping matches the variable name. This is upto and including the `=' ...@@ -515,9 +511,7 @@ First grouping matches the variable name. This is upto and including the `='
sign. See `sh-feature'." sign. See `sh-feature'."
:type '(repeat (cons (symbol :tag "Shell") :type '(repeat (cons (symbol :tag "Shell")
(choice regexp (choice regexp
(cons :format "Evaluate: %v" (sexp :format "Evaluate: %v"))))
(const :format "" eval)
sexp))))
:group 'sh-script) :group 'sh-script)
...@@ -639,9 +633,7 @@ Note that on some systems not all builtins are available or some are ...@@ -639,9 +633,7 @@ Note that on some systems not all builtins are available or some are
implemented as aliases. See `sh-feature'." implemented as aliases. See `sh-feature'."
:type '(repeat (cons (symbol :tag "Shell") :type '(repeat (cons (symbol :tag "Shell")
(choice (repeat string) (choice (repeat string)
(cons :format "Evaluate: %v" (sexp :format "Evaluate: %v"))))
(const :format "" eval)
sexp))))
:group 'sh-script) :group 'sh-script)
...@@ -663,9 +655,7 @@ system, the distinction here has been based on whether they influence the ...@@ -663,9 +655,7 @@ system, the distinction here has been based on whether they influence the
flow of control or syntax. See `sh-feature'." flow of control or syntax. See `sh-feature'."
:type '(repeat (cons (symbol :tag "Shell") :type '(repeat (cons (symbol :tag "Shell")
(choice (repeat string) (choice (repeat string)
(cons :format "Evaluate: %v" (sexp :format "Evaluate: %v"))))
(const :format "" eval)
sexp))))
:group 'sh-script) :group 'sh-script)
...@@ -702,9 +692,7 @@ flow of control or syntax. See `sh-feature'." ...@@ -702,9 +692,7 @@ flow of control or syntax. See `sh-feature'."
See `sh-feature'." See `sh-feature'."
:type '(repeat (cons (symbol :tag "Shell") :type '(repeat (cons (symbol :tag "Shell")
(choice (repeat string) (choice (repeat string)
(cons :format "Evaluate: %v" (sexp :format "Evaluate: %v"))))
(const :format "" eval)
sexp))))
:group 'sh-script) :group 'sh-script)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment