[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-shell.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-shell.el |
Date: |
Sat, 06 Nov 2004 23:02:34 -0500 |
Index: emacs/lisp/progmodes/idlw-shell.el
diff -c emacs/lisp/progmodes/idlw-shell.el:3.26
emacs/lisp/progmodes/idlw-shell.el:3.27
*** emacs/lisp/progmodes/idlw-shell.el:3.26 Mon Nov 1 07:41:08 2004
--- emacs/lisp/progmodes/idlw-shell.el Sun Nov 7 03:56:09 2004
***************
*** 508,518 ****
(defvar comint-last-input-start)
(defvar comint-last-input-end)
(defun idlwave-shell-temp-file (type)
"Return a temp file, creating it if necessary.
! TYPE is either 'pro or 'rinfo, and idlwave-shell-temp-pro-file or
! idlwave-shell-temp-rinfo-save-file is set (respectively)."
(cond
((eq type 'rinfo)
(or idlwave-shell-temp-rinfo-save-file
--- 508,526 ----
(defvar comint-last-input-start)
(defvar comint-last-input-end)
+ (defvar idlwave-shell-temp-pro-file nil
+ "Absolute pathname for temporary IDL file for compiling regions")
+
+ (defvar idlwave-shell-temp-rinfo-save-file nil
+ "Absolute pathname for temporary IDL file save file for routine_info.
+ This is used to speed up the reloading of the routine info procedure
+ before use by the shell.")
+
(defun idlwave-shell-temp-file (type)
"Return a temp file, creating it if necessary.
! TYPE is either `pro' or `rinfo', and `idlwave-shell-temp-pro-file' or
! `idlwave-shell-temp-rinfo-save-file' is set (respectively)."
(cond
((eq type 'rinfo)
(or idlwave-shell-temp-rinfo-save-file
***************
*** 550,566 ****
nil)
file)))
- ;; Other variables
- (defvar idlwave-shell-temp-pro-file
- nil
- "Absolute pathname for temporary IDL file for compiling regions")
-
- (defvar idlwave-shell-temp-rinfo-save-file
- nil
- "Absolute pathname for temporary IDL file save file for routine_info.
- This is used to speed up the reloading of the routine info procedure
- before use by the shell.")
-
(defvar idlwave-shell-dirstack-query "cd,current=___cur & print,___cur"
"Command used by `idlwave-shell-resync-dirs' to query IDL for
the directory stack.")
--- 558,563 ----
***************
*** 2523,2528 ****
--- 2520,2529 ----
(defvar idlwave-shell-examine-window-alist nil
"Variable to hold the win/height pairs for all *Examine* windows.")
+ (defvar idlwave-shell-examine-map (make-sparse-keymap))
+ (define-key idlwave-shell-examine-map "q" 'idlwave-shell-examine-display-quit)
+ (define-key idlwave-shell-examine-map "c"
'idlwave-shell-examine-display-clear)
+
(defun idlwave-shell-examine-display ()
"View the examine command output in a separate buffer."
(let (win cur-beg cur-end)
***************
*** 2603,2612 ****
(skip-chars-backward "\n")
(recenter -1)))))
- (defvar idlwave-shell-examine-map (make-sparse-keymap))
- (define-key idlwave-shell-examine-map "q" 'idlwave-shell-examine-display-quit)
- (define-key idlwave-shell-examine-map "c"
'idlwave-shell-examine-display-clear)
-
(defun idlwave-shell-examine-display-quit ()
(interactive)
(let ((win (selected-window)))
--- 2604,2609 ----