lisp/progmodes/idlw-shell.el

77 ;; Under XEmacs the Debug menu in the shell does not display the
80 ;; The Debug menu in source buffers *does* display the bindings correctly.
210 Setting it in the mode-hook is too late."
264 (defcustom idlwave-shell-mode-hook '()
267   :type 'hook)
449 (defcustom idlwave-shell-breakpoint-popup-menu t
450   "*If non-nil, provide a menu on mouse-3 on breakpoint lines, and
745 (defvar idlwave-shell-post-command-hook nil
750 (defvar idlwave-shell-sentinel-hook nil
765 (defvar idlwave-shell-cleanup-hook nil
772 `idlwave-shell-post-command-hook'. If HIDE is non-nil, hide the output
865   C-?        Show this help menu.")
870 (defvar idlwave-shell-menu-def)
871 (defvar idlwave-shell-mode-menu)
882 (defvar tool-bar-map)
911    To update IDLWAVE's knowledge about compiled or edited modules, use
912    \\[idlwave-update-routine-info].
922    is available from the menu.  Also keybindings starting with a
925    keybindings is again the menu.
951    Turning on `idlwave-shell-mode' runs `comint-mode-hook' and
952    `idlwave-shell-mode-hook' (in that order).
1029   (idlwave-shell-update-bp-overlays) ; Throw away old overlays
1030   (setq idlwave-shell-post-command-hook nil ;clean up any old stuff
1035   ;; NB: `make-local-hook' needed for older/alternative Emacs compatibility
1036   ;; (make-local-hook 'kill-buffer-hook)
1037   (add-hook 'kill-buffer-hook 'idlwave-shell-kill-shell-buffer-confirm
1039   (add-hook 'kill-buffer-hook 'idlwave-shell-delete-temp-files nil 'local)
1040   (add-hook 'kill-emacs-hook 'idlwave-shell-delete-temp-files)
1042   (easy-menu-add idlwave-shell-mode-menu idlwave-shell-mode-map)
1054     (add-hook 'comint-output-filter-functions
1065     (add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m nil 'local))
1068   ;; adds this function to the global default hook.  It interferes
1070   (remove-hook 'comint-output-filter-functions 'py-pdbtrack-track-stack-file)
1079   ;; NB: `make-local-hook' needed for older/alternative Emacs compatibility
1080   ;; make-local-hook 'post-command-hook)
1081   (add-hook 'post-command-hook 'idlwave-command-hook nil t)
1092   (set (make-local-variable 'tool-bar-map) nil)
1095   (run-mode-hooks 'idlwave-shell-mode-hook)
1216 	(add-hook 'idlwave-shell-sentinel-hook
1252   (add-hook 'idlwave-shell-sentinel-hook
1294 `idlwave-shell-post-command-hook' when CMD is executed.
1367 	      (setq idlwave-shell-post-command-hook pcmd)
1523 When the IDL prompt is received executes `idlwave-shell-post-command-hook'
1611 		  ;; Call the post-command hook
1612 		  (if (listp idlwave-shell-post-command-hook)
1615 			;;(prin1 idlwave-shell-post-command-hook)
1616 			(eval idlwave-shell-post-command-hook))
1618 		    (funcall idlwave-shell-post-command-hook))
1624 			idlwave-shell-post-command-hook nil
1656     ;; Run the hook, if possible in the shell buffer.
1660 	  (run-hooks 'idlwave-shell-sentinel-hook))
1661       (run-hooks 'idlwave-shell-sentinel-hook))))
1795 	  ;; set by the user...  Let's update our list.
1895   (idlwave-shell-update-bp-overlays) ; kill old overlays
1902   (run-hooks 'idlwave-shell-cleanup-hook))
2140       ;; If we don't know anything about the class, update shell routines
2144 	  (idlwave-shell-maybe-update-routine-info))
2513 This is run on `idlwave-shell-post-command-hook'.
2550 Call this from a function attached to `idlwave-shell-post-command-hook'
2641 							 no-update)
2644 toggling.  If NO-UPDATE is non-nil, don't update the breakpoint
2658       (unless no-update (idlwave-shell-bp-query)))))
2660 (defun idlwave-shell-enable-all-bp (&optional enable no-update bpl)
2668 	 (car bpl) (if (eq enable 'enable) 'enable 'disable) no-update)
2671     (unless no-update (idlwave-shell-bp-query))
2678   (let ((disabled (idlwave-shell-enable-all-bp 'disable 'no-update)))
2681     (idlwave-shell-enable-all-bp 'enable 'no-update disabled))
2965 	(add-hook 'pre-command-hook
2967       (add-hook 'pre-command-hook
3260     (remove-hook 'pre-command-hook 'idlwave-shell-delete-output-overlay)))
3269     (remove-hook 'pre-command-hook 'idlwave-shell-delete-expression-overlay)))
3423 from previous breakpoint list.  If NO-SHOW is set, don't update the
3481 	  (mapcar 'idlwave-shell-update-bp old-bp-alist)
3482 	(mapcar 'idlwave-shell-update-bp-command-only old-bp-alist))))
3484   (unless no-show (idlwave-shell-update-bp-overlays))
3488 (defun idlwave-shell-update-bp-command-only (bp)
3489   (idlwave-shell-update-bp bp t))
3491 (defun idlwave-shell-update-bp (bp &optional command-only)
3587 	(idlwave-shell-update-bp-overlays)))
3611   "Find the new breakpoint in IDL's list and update with DATA.
3645 (defun idlwave-shell-update-bp-overlays ()
3713 	    (if idlwave-shell-breakpoint-popup-menu
3759 	  (when idlwave-shell-breakpoint-popup-menu
3783       (when idlwave-shell-breakpoint-popup-menu
3943 	 `(idlwave-shell-maybe-update-routine-info nil
3952 (defun idlwave-shell-maybe-update-routine-info (&optional wait file)
3959       (idlwave-shell-update-routine-info t nil wait file)))
3981   "Get module source, and update idlwave-shell-sources-alist."
4131 (defun idlwave-shell-define-key-both (key hook)
4133   (define-key idlwave-mode-map key hook)
4134   (define-key idlwave-shell-mode-map key hook))
4148 (define-key idlwave-shell-mode-map "\C-c\C-i" 'idlwave-update-routine-info)
4331 (add-hook
4332  'idlwave-shell-electric-debug-mode-on-hook
4345 (add-hook
4346  'idlwave-shell-electric-debug-mode-off-hook
4365   (force-mode-line-update))
4397 (defvar idlwave-shell-menu-def
4534       (easy-menu-define
4535        idlwave-mode-debug-menu idlwave-mode-map "IDL debugging menus"
4536        idlwave-shell-menu-def)
4537       (easy-menu-define
4538        idlwave-shell-mode-menu idlwave-shell-mode-map "IDL shell menus"
4539        idlwave-shell-menu-def)
4545 			(easy-menu-remove idlwave-mode-debug-menu)
4546 			(easy-menu-add idlwave-mode-debug-menu))))
4720     (add-hook 'idlwave-shell-mode-hook 'idlwave-toolbar-add-everywhere))