aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPavel Janík2002-02-16 12:50:25 +0000
committerPavel Janík2002-02-16 12:50:25 +0000
commit1affb21658d505b135f57ffc59bfcc4eb21f835d (patch)
treeace9ae788442e32c81d3a148f8f57aa38996928e
parent4924ca44cb1c1da11d9cf625f7a393fd60110901 (diff)
downloademacs-1affb21658d505b135f57ffc59bfcc4eb21f835d.tar.gz
emacs-1affb21658d505b135f57ffc59bfcc4eb21f835d.zip
(idlwave-shell-mode): Do not use make-local-hook.
-rw-r--r--lisp/progmodes/idlw-shell.el4
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.