diff options
| author | J.D. Smith <jdsmith@as.arizona.edu> | 2007-04-01 16:06:51 +0000 |
|---|---|---|
| committer | J.D. Smith <jdsmith@as.arizona.edu> | 2007-04-01 16:06:51 +0000 |
| commit | 569abf8677056cf678c74fddb43223db293b80a3 (patch) | |
| tree | 535b870d25322ed73f33aa85a6ed6ddacc173ad3 /lisp/progmodes/idlw-shell.el | |
| parent | 59ea4d8a67b57e38b6ed0cfd45ef47a9ab076934 (diff) | |
| download | emacs-569abf8677056cf678c74fddb43223db293b80a3.tar.gz | |
(idlwave-shell-break-in): Simplify module calc.
(idlwave-shell-set-bp-in-module): Compute module.
Diffstat (limited to 'lisp/progmodes/idlw-shell.el')
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index aa2d1b32d10..bcecdeafa0f 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -2698,7 +2698,7 @@ in the current routine." (class (nth 2 module))) (if module (progn - (setq module (idlwave-make-full-name (nth 2 module) (car module))) + (setq module (idlwave-make-full-name class name)) (idlwave-shell-module-source-query module type) (idlwave-shell-set-bp-in-module name type class)) (error "No identifier at point")))) @@ -2707,14 +2707,15 @@ in the current routine." (defun idlwave-shell-set-bp-in-module (name type class) "Set breakpoint in module. Assumes that `idlwave-shell-sources-alist' contains an entry for that module." - (let ((source-file - (car-safe (cdr-safe - (or - (assoc (upcase (idlwave-make-full-name class name)) - idlwave-shell-sources-alist) - (nth 3 (idlwave-best-rinfo-assoc name type class - (idlwave-routines))))))) - buf) + (let* ((module (idlwave-make-full-name class name)) + (source-file + (car-safe (cdr-safe + (or + (assoc (upcase module) + idlwave-shell-sources-alist) + (nth 3 (idlwave-best-rinfo-assoc name type class + (idlwave-routines))))))) + buf) (if (or (not source-file) (not (file-regular-p source-file)) (not (setq buf |