From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 27 Feb 2004 17:22:27 +0000 (+0000)
Subject: (sh-shell-arg, sh-require-final-newline, sh-assignment-regexp, sh-builtins)
X-Git-Tag: ttn-vms-21-2-B4~7454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d18b953551b66697a238e584afa9c35a65795c5;p=emacs.git

(sh-shell-arg, sh-require-final-newline, sh-assignment-regexp, sh-builtins)
(sh-leading-keywords, sh-other-keywords): Fix custom type.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 080167bad25..b264bf30609 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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>
 
 	* faces.el (face-spec-set-match-display): Add a new  attribute,
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index a23dc0a307e..f765b37c76a 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -315,9 +315,7 @@ shell it really is."
   :type '(repeat (cons (symbol :tag "Shell")
 		       (choice (const :tag "No Arguments" nil)
 			       (string :tag "Arguments")
-			       (cons :format "Evaluate: %v"
-				     (const :format "" eval)
-				     sexp))))
+			       (sexp :format "Evaluate: %v"))))
   :group 'sh-script)
 
 (defcustom sh-imenu-generic-expression
@@ -498,9 +496,7 @@ This is buffer-local in every such buffer.")
 See `sh-feature'."
   :type '(repeat (cons (symbol :tag "Shell")
 		       (choice (const :tag "require" t)
-			       (cons :format "Evaluate: %v"
-				     (const :format "" eval)
-				     sexp))))
+			       (sexp :format "Evaluate: %v"))))
   :group 'sh-script)
 
 
@@ -515,9 +511,7 @@ First grouping matches the variable name.  This is upto and including the `='
 sign.  See `sh-feature'."
   :type '(repeat (cons (symbol :tag "Shell")
 		       (choice regexp
-			       (cons :format "Evaluate: %v"
-				     (const :format "" eval)
-				     sexp))))
+			       (sexp :format "Evaluate: %v"))))
   :group 'sh-script)
 
 
@@ -639,9 +633,7 @@ Note that on some systems not all builtins are available or some are
 implemented as aliases.  See `sh-feature'."
   :type '(repeat (cons (symbol :tag "Shell")
 		       (choice (repeat string)
-			       (cons :format "Evaluate: %v"
-				     (const :format "" eval)
-				     sexp))))
+			       (sexp :format "Evaluate: %v"))))
   :group 'sh-script)
 
 
@@ -663,9 +655,7 @@ system, the distinction here has been based on whether they influence the
 flow of control or syntax.  See `sh-feature'."
   :type '(repeat (cons (symbol :tag "Shell")
 		       (choice (repeat string)
-			       (cons :format "Evaluate: %v"
-				     (const :format "" eval)
-				     sexp))))
+			       (sexp :format "Evaluate: %v"))))
   :group 'sh-script)
 
 
@@ -702,9 +692,7 @@ flow of control or syntax.  See `sh-feature'."
 See `sh-feature'."
   :type '(repeat (cons (symbol :tag "Shell")
 		       (choice (repeat string)
-			       (cons :format "Evaluate: %v"
-				     (const :format "" eval)
-				     sexp))))
+			       (sexp :format "Evaluate: %v"))))
   :group 'sh-script)