Function: idlwave-shell-move-to-bp

idlwave-shell-move-to-bp is a byte-compiled function defined in idlw-shell.el.gz.

Signature

(idlwave-shell-move-to-bp DIR)

Documentation

Move to the next or previous breakpoint, depending on direction DIR.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlw-shell.el.gz
(defun idlwave-shell-move-to-bp (dir)
  "Move to the next or previous breakpoint, depending on direction DIR."
  (let* ((frame (idlwave-shell-current-frame))
	 (file (car frame))
	 (orig-bp-line (nth 1 frame))
	 (bp-alist idlwave-shell-bp-alist)
	 (orig-func (if (> dir 0) '> '<))
	 (closer-func (if (> dir 0) '< '>))
	 bp bp-line cur-line)
    (while (setq bp (pop bp-alist))
      (when (string= file (car (car bp)))
	(setq cur-line (nth 1 (car bp)))
	(if (and
	     (funcall orig-func cur-line orig-bp-line)
	     (or (not bp-line) (funcall closer-func cur-line bp-line)))
	    (setq bp-line cur-line))))
    (unless bp-line (error "No further breakpoints"))
    (goto-char (point-min))
    (forward-line (1- bp-line))))