Function: idlwave-shell-electric-debug-mode

idlwave-shell-electric-debug-mode is an interactive and byte-compiled function defined in idlw-shell.el.gz.

Signature

(idlwave-shell-electric-debug-mode &optional ARG)

Documentation

Toggle Idlwave Shell Electric Debug mode.

When Idlwave Shell Electric Debug mode is enabled, the Idlwave Shell debugging commands are available as single key sequences.

This is a minor mode. If called interactively, toggle the Idlwave-Shell-Electric-Debug mode mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is toggle. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer, evaluate the variable idlwave-shell-electric-debug-mode(var)/idlwave-shell-electric-debug-mode(fun).

The mode's hook is called both when the mode is enabled and when it is disabled.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlw-shell.el.gz
(define-minor-mode idlwave-shell-electric-debug-mode
  "Toggle Idlwave Shell Electric Debug mode.

When Idlwave Shell Electric Debug mode is enabled, the Idlwave
Shell debugging commands are available as single key sequences."
  :lighter " *Debugging*"
  (cond
   (idlwave-shell-electric-debug-mode
    (set (make-local-variable 'idlwave-shell-electric-debug-read-only)
	 buffer-read-only)
    (setq buffer-read-only t)
    (add-to-list 'idlwave-shell-electric-debug-buffers (current-buffer))
    (if idlwave-shell-stop-line-overlay
        (overlay-put idlwave-shell-stop-line-overlay 'face
		     idlwave-shell-electric-stop-line-face))
    (if (facep 'fringe)
        (set-face-foreground 'fringe idlwave-shell-electric-stop-color
			     (selected-frame)))
    (message
     "Electric Debugging mode entered.  Press [C-?] for help, [q] to quit"))
   (t
    ;; Return to previous read-only state
    (setq buffer-read-only (if (boundp 'idlwave-shell-electric-debug-read-only)
			       idlwave-shell-electric-debug-read-only))
    (setq idlwave-shell-electric-debug-buffers
	  (delq (current-buffer) idlwave-shell-electric-debug-buffers))
    (if idlwave-shell-stop-line-overlay
        (overlay-put idlwave-shell-stop-line-overlay 'face
		     idlwave-shell-stop-line-face)
      (if (facep 'fringe)
	  (set-face-foreground 'fringe (face-foreground 'default)))))))