Mercurial > emacs
changeset 76864:1064d1d79d3e
(idlwave-shell-break-in): Simplify module calc.
(idlwave-shell-set-bp-in-module): Compute module.
| author | J.D. Smith <jdsmith@as.arizona.edu> |
|---|---|
| date | Sun, 01 Apr 2007 16:06:34 +0000 |
| parents | a5052885b6cb |
| children | 4c45a29f96de |
| files | lisp/progmodes/idlw-shell.el |
| diffstat | 1 files changed, 10 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/idlw-shell.el Sun Apr 01 16:02:08 2007 +0000 +++ b/lisp/progmodes/idlw-shell.el Sun Apr 01 16:06:34 2007 +0000 @@ -2698,7 +2698,7 @@ (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 @@ (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