mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 00:32:12 -07:00
Code Issues Projects Releases Wiki Activity

(idlwave-shell-examine-map): Move up before first use.

Browse source 
(idlwave-shell-temp-pro-file): Likewise.
(idlwave-shell-temp-rinfo-save-file): Likewise.
(idlwave-shell-temp-file): Minor doc fix.
This commit is contained in:
Richard M. Stallman 2004-11-07 03:56:09 +00:00
parent f8cb5ed621
commit af866d845e
1 changed files with 14 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/progmodes/idlw-shell.el
View file

@ -508,11 +508,19 @@ the expression output by IDL."
(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)."
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,17 +558,6 @@ idlwave-shell-temp-rinfo-save-file is set (respectively)."
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.")
@ -2523,6 +2520,10 @@ idlw-shell-examine-alist from which to select the help command text."
(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,10 +2604,6 @@ idlw-shell-examine-alist from which to select the help command text."
(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)))