From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 16 Feb 2002 12:50:25 +0000 (+0000)
Subject: (idlwave-shell-mode): Do not use make-local-hook.
X-Git-Tag: ttn-vms-21-2-B4~16630
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1affb21658d505b135f57ffc59bfcc4eb21f835d;p=emacs.git

(idlwave-shell-mode): Do not use make-local-hook.
---

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 @@
 ;; Author: Chris Chase <chase@att.com>
 ;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu>
 ;; Version: 4.7
-;; Date: $Date: 2001/11/27 15:52:51 $
+;; Date: $Date: 2001/12/01 12:54:29 $
 ;; Keywords: processes
 
 ;; This file is part of GNU Emacs.
@@ -723,7 +723,6 @@ IDL has currently stepped.")
   (setq idlwave-shell-sources-alist nil)
   (setq idlwave-shell-default-directory default-directory)
   (setq idlwave-shell-hide-output nil)
-  (make-local-hook 'kill-buffer-hook)
   (add-hook 'kill-buffer-hook 'idlwave-shell-kill-shell-buffer-confirm
 	    nil 'local)
   (add-hook 'kill-buffer-hook 'idlwave-shell-delete-temp-files nil 'local)
@@ -739,7 +738,6 @@ IDL has currently stepped.")
   (set-syntax-table idlwave-mode-syntax-table)
   (set (make-local-variable 'comment-start) ";")
   (setq abbrev-mode t)
-  (make-local-hook 'post-command-hook)
   (add-hook 'post-command-hook 'idlwave-command-hook nil t)
 
   ;; Run the hooks.