mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Pavel Janík 2002-02-16 12:50:25 +00:00
parent 4924ca44cb
commit 1affb21658
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/progmodes/idlw-shell.el
View File

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