Browse files

Let arrows work correctly if no process in *idl*

  • Loading branch information...
1 parent 0ec629a commit 8b462f73d9ed45dd3427e863d485a86f668fc9cc @jdtsmith committed Feb 24, 2010
Showing with 5 additions and 3 deletions.
  1. +5 −3 idlw-shell.el
@@ -1472,12 +1472,14 @@ when the IDL prompt gets displayed again after the current IDL command."
"When in last line of process buffer, do `comint-previous-input'.
Otherwise just move the line. Move down unless UP is non-nil.
Move normally inside of blocks, unless NOBLOCK-MOVE is non-nil."
- (let* ((proc-pos (marker-position
- (process-mark (get-buffer-process (current-buffer)))))
+ (let* ((proc (get-buffer-process (current-buffer)))
+ (proc-pos (if proc (marker-position (process-mark proc))))
(arg (or arg 1))
(arg (if up arg (- arg))))
(if (eq t idlwave-shell-arrows-do-history) (goto-char proc-pos))
- (if (and idlwave-shell-arrows-do-history
+ (if (and proc
+ idlwave-shell-arrows-do-history
(or noblock-move
(if up
(= (line-number-at-pos) (line-number-at-pos proc-pos))

0 comments on commit 8b462f7

Please sign in to comment.