diff options
| author | Pavel Janík | 2002-02-16 12:50:25 +0000 |
|---|---|---|
| committer | Pavel Janík | 2002-02-16 12:50:25 +0000 |
| commit | 1affb21658d505b135f57ffc59bfcc4eb21f835d (patch) | |
| tree | ace9ae788442e32c81d3a148f8f57aa38996928e | |
| parent | 4924ca44cb1c1da11d9cf625f7a393fd60110901 (diff) | |
| download | emacs-1affb21658d505b135f57ffc59bfcc4eb21f835d.tar.gz emacs-1affb21658d505b135f57ffc59bfcc4eb21f835d.zip | |
(idlwave-shell-mode): Do not use make-local-hook.
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index bc42a0d2880..fb0be6eac99 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | ;; Author: Chris Chase <chase@att.com> | 4 | ;; Author: Chris Chase <chase@att.com> |
| 5 | ;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu> | 5 | ;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu> |
| 6 | ;; Version: 4.7 | 6 | ;; Version: 4.7 |
| 7 | ;; Date: $Date: 2001/11/27 15:52:51 $ | 7 | ;; Date: $Date: 2001/12/01 12:54:29 $ |
| 8 | ;; Keywords: processes | 8 | ;; Keywords: processes |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -723,7 +723,6 @@ IDL has currently stepped.") | |||
| 723 | (setq idlwave-shell-sources-alist nil) | 723 | (setq idlwave-shell-sources-alist nil) |
| 724 | (setq idlwave-shell-default-directory default-directory) | 724 | (setq idlwave-shell-default-directory default-directory) |
| 725 | (setq idlwave-shell-hide-output nil) | 725 | (setq idlwave-shell-hide-output nil) |
| 726 | (make-local-hook 'kill-buffer-hook) | ||
| 727 | (add-hook 'kill-buffer-hook 'idlwave-shell-kill-shell-buffer-confirm | 726 | (add-hook 'kill-buffer-hook 'idlwave-shell-kill-shell-buffer-confirm |
| 728 | nil 'local) | 727 | nil 'local) |
| 729 | (add-hook 'kill-buffer-hook 'idlwave-shell-delete-temp-files nil 'local) | 728 | (add-hook 'kill-buffer-hook 'idlwave-shell-delete-temp-files nil 'local) |
| @@ -739,7 +738,6 @@ IDL has currently stepped.") | |||
| 739 | (set-syntax-table idlwave-mode-syntax-table) | 738 | (set-syntax-table idlwave-mode-syntax-table) |
| 740 | (set (make-local-variable 'comment-start) ";") | 739 | (set (make-local-variable 'comment-start) ";") |
| 741 | (setq abbrev-mode t) | 740 | (setq abbrev-mode t) |
| 742 | (make-local-hook 'post-command-hook) | ||
| 743 | (add-hook 'post-command-hook 'idlwave-command-hook nil t) | 741 | (add-hook 'post-command-hook 'idlwave-command-hook nil t) |
| 744 | 742 | ||
| 745 | ;; Run the hooks. | 743 | ;; Run the hooks. |