[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-shell.el,v

[John-David T. Smith]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     John-David T. Smith <jdsmith>   07/04/01 16:06:35

Index: idlw-shell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/idlw-shell.el,v
retrieving revision 3.54
retrieving revision 3.55
diff -u -b -r3.54 -r3.55
--- idlw-shell.el       22 Feb 2007 20:18:17 -0000      3.54
+++ idlw-shell.el       1 Apr 2007 16:06:34 -0000       3.55
@@ -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,10 +2707,11 @@
 (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 
+  (let* ((module (idlwave-make-full-name class name))
+        (source-file 
         (car-safe (cdr-safe
                    (or
-                    (assoc (upcase (idlwave-make-full-name class name))
+                     (assoc (upcase module)
                            idlwave-shell-sources-alist)
                     (nth 3 (idlwave-best-rinfo-assoc name type class 
                                                      (idlwave-routines)))))))