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)))))