Mercurial > emacs
comparison lisp/progmodes/idlw-shell.el @ 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 | 9c80ddcdba82 |
| children | 70d58d56b53b dc002877ce12 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 76863:a5052885b6cb | 76864:1064d1d79d3e |
|---|---|
| 2696 (type (nth 1 module)) | 2696 (type (nth 1 module)) |
| 2697 (name (car module)) | 2697 (name (car module)) |
| 2698 (class (nth 2 module))) | 2698 (class (nth 2 module))) |
| 2699 (if module | 2699 (if module |
| 2700 (progn | 2700 (progn |
| 2701 (setq module (idlwave-make-full-name (nth 2 module) (car module))) | 2701 (setq module (idlwave-make-full-name class name)) |
| 2702 (idlwave-shell-module-source-query module type) | 2702 (idlwave-shell-module-source-query module type) |
| 2703 (idlwave-shell-set-bp-in-module name type class)) | 2703 (idlwave-shell-set-bp-in-module name type class)) |
| 2704 (error "No identifier at point")))) | 2704 (error "No identifier at point")))) |
| 2705 | 2705 |
| 2706 | 2706 |
| 2707 (defun idlwave-shell-set-bp-in-module (name type class) | 2707 (defun idlwave-shell-set-bp-in-module (name type class) |
| 2708 "Set breakpoint in module. Assumes that `idlwave-shell-sources-alist' | 2708 "Set breakpoint in module. Assumes that `idlwave-shell-sources-alist' |
| 2709 contains an entry for that module." | 2709 contains an entry for that module." |
| 2710 (let ((source-file | 2710 (let* ((module (idlwave-make-full-name class name)) |
| 2711 (car-safe (cdr-safe | 2711 (source-file |
| 2712 (or | 2712 (car-safe (cdr-safe |
| 2713 (assoc (upcase (idlwave-make-full-name class name)) | 2713 (or |
| 2714 idlwave-shell-sources-alist) | 2714 (assoc (upcase module) |
| 2715 (nth 3 (idlwave-best-rinfo-assoc name type class | 2715 idlwave-shell-sources-alist) |
| 2716 (idlwave-routines))))))) | 2716 (nth 3 (idlwave-best-rinfo-assoc name type class |
| 2717 buf) | 2717 (idlwave-routines))))))) |
| 2718 buf) | |
| 2718 (if (or (not source-file) | 2719 (if (or (not source-file) |
| 2719 (not (file-regular-p source-file)) | 2720 (not (file-regular-p source-file)) |
| 2720 (not (setq buf | 2721 (not (setq buf |
| 2721 (or (idlwave-get-buffer-visiting source-file) | 2722 (or (idlwave-get-buffer-visiting source-file) |
| 2722 (find-file-noselect source-file))))) | 2723 (find-file-noselect source-file))))) |