# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1092696352 0
# Node ID 6eee795cb9eb0c3fdce1750f51dfbf47fcd187e4
# Parent  fb266772e0e7232686660c920202a76fa637d7a6
(sh-set-shell): Use sh-mode-abbrev-table.
(sh-mode-abbrev-table): New variable.

diff -r fb266772e0e7 -r 6eee795cb9eb lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Mon Aug 16 22:44:56 2004 +0000
+++ b/lisp/progmodes/sh-script.el	Mon Aug 16 22:45:52 2004 +0000
@@ -353,6 +353,11 @@
 (defvar sh-shell (sh-canonicalize-shell (file-name-nondirectory sh-shell-file))
   "The shell being programmed.  This is set by \\[sh-set-shell].")
 
+(defvar sh-mode-abbrev-table nil)
+
+(define-abbrev-table 'sh-mode-abbrev-table ())
+
+
 ;; I turned off this feature because it doesn't permit typing commands
 ;; in the usual way without help.
 ;;(defvar sh-abbrevs
@@ -1483,7 +1488,7 @@
       (setq require-final-newline tem)))
   (setq
 	comment-start-skip "#+[\t ]*"
-;;;	local-abbrev-table (sh-feature sh-abbrevs)
+	local-abbrev-table sh-mode-abbrev-table
 	mode-line-process (format "[%s]" sh-shell)
 	sh-shell-variables nil
 	sh-shell-variables-initialized nil