# HG changeset patch
# User J.D. Smith <jdsmith@as.arizona.edu>
# Date 1175443594 0
# Node ID 1064d1d79d3ed55c89e1cbe27526bfc6eb4b01d6
# Parent  a5052885b6cbbfbe66577aba6ec0a43ea03c7787
(idlwave-shell-break-in): Simplify module calc.
(idlwave-shell-set-bp-in-module): Compute module.

diff -r a5052885b6cb -r 1064d1d79d3e lisp/progmodes/idlw-shell.el
--- 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