diff options
| author | Richard M. Stallman | 2004-08-16 22:45:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-08-16 22:45:52 +0000 |
| commit | 8a0d0722d825f1ca08ac04a5aa2f59e43d60d31b (patch) | |
| tree | 2e8f8dc77b4771a614734705a6891ea92ad2b90a | |
| parent | 8ff2ed527d8c7164a110f1cae9cd3f0140751f8b (diff) | |
| download | emacs-8a0d0722d825f1ca08ac04a5aa2f59e43d60d31b.tar.gz emacs-8a0d0722d825f1ca08ac04a5aa2f59e43d60d31b.zip | |
(sh-set-shell): Use sh-mode-abbrev-table.
(sh-mode-abbrev-table): New variable.
| -rw-r--r-- | lisp/progmodes/sh-script.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index f47ca3a73d4..cef86f8f90e 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -353,6 +353,11 @@ the car and cdr are the same symbol.") | |||
| 353 | (defvar sh-shell (sh-canonicalize-shell (file-name-nondirectory sh-shell-file)) | 353 | (defvar sh-shell (sh-canonicalize-shell (file-name-nondirectory sh-shell-file)) |
| 354 | "The shell being programmed. This is set by \\[sh-set-shell].") | 354 | "The shell being programmed. This is set by \\[sh-set-shell].") |
| 355 | 355 | ||
| 356 | (defvar sh-mode-abbrev-table nil) | ||
| 357 | |||
| 358 | (define-abbrev-table 'sh-mode-abbrev-table ()) | ||
| 359 | |||
| 360 | |||
| 356 | ;; I turned off this feature because it doesn't permit typing commands | 361 | ;; I turned off this feature because it doesn't permit typing commands |
| 357 | ;; in the usual way without help. | 362 | ;; in the usual way without help. |
| 358 | ;;(defvar sh-abbrevs | 363 | ;;(defvar sh-abbrevs |
| @@ -1483,7 +1488,7 @@ Calls the value of `sh-set-shell-hook' if set." | |||
| 1483 | (setq require-final-newline tem))) | 1488 | (setq require-final-newline tem))) |
| 1484 | (setq | 1489 | (setq |
| 1485 | comment-start-skip "#+[\t ]*" | 1490 | comment-start-skip "#+[\t ]*" |
| 1486 | ;;; local-abbrev-table (sh-feature sh-abbrevs) | 1491 | local-abbrev-table sh-mode-abbrev-table |
| 1487 | mode-line-process (format "[%s]" sh-shell) | 1492 | mode-line-process (format "[%s]" sh-shell) |
| 1488 | sh-shell-variables nil | 1493 | sh-shell-variables nil |
| 1489 | sh-shell-variables-initialized nil | 1494 | sh-shell-variables-initialized nil |