Mercurial > emacs
comparison lisp/progmodes/idlw-shell.el @ 43350:154133a72642
(idlwave-shell-mode): Do not use make-local-hook.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 16 Feb 2002 12:50:25 +0000 |
| parents | 49e8031d8893 |
| children | b80d723ad7cc |
comparison
equal
deleted
inserted
replaced
| 43349:53fdd9b8a568 | 43350:154133a72642 |
|---|---|
| 2 ;; Copyright (c) 1999, 2000 Free Software Foundation | 2 ;; Copyright (c) 1999, 2000 Free Software Foundation |
| 3 | 3 |
| 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. |
| 11 | 11 |
| 12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 721 (setq idlwave-shell-bp-alist nil) | 721 (setq idlwave-shell-bp-alist nil) |
| 722 (idlwave-shell-update-bp-overlays) ; Throw away old overlays | 722 (idlwave-shell-update-bp-overlays) ; Throw away old overlays |
| 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) |
| 730 (add-hook 'kill-emacs-hook 'idlwave-shell-delete-temp-files) | 729 (add-hook 'kill-emacs-hook 'idlwave-shell-delete-temp-files) |
| 731 (use-local-map idlwave-shell-mode-map) | 730 (use-local-map idlwave-shell-mode-map) |
| 737 ;; IDLWAVE syntax, and turn on abbreviations | 736 ;; IDLWAVE syntax, and turn on abbreviations |
| 738 (setq local-abbrev-table idlwave-mode-abbrev-table) | 737 (setq local-abbrev-table idlwave-mode-abbrev-table) |
| 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. |
| 746 (run-hooks 'idlwave-shell-mode-hook) | 744 (run-hooks 'idlwave-shell-mode-hook) |
| 747 (idlwave-shell-send-command idlwave-shell-initial-commands nil 'hide) | 745 (idlwave-shell-send-command idlwave-shell-initial-commands nil 'hide) |