[elpa] externals/idlwave f0a5d18574 186/360: Better current module name

[ELPA Syncer]

branch: externals/idlwave
commit f0a5d1857443a909fef5afca58ca228a785cde3d
Author: JD Smith <jdtsmith@gmail.com>
Commit: JD Smith <jdtsmith@gmail.com>

    Better current module name
---
 idlw-shell.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/idlw-shell.el b/idlw-shell.el
index a72bad5644..d293808d8d 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -2677,7 +2677,10 @@ Returns nil if unable to obtain a module name."
       (widen)
       (save-excursion
         (if (idlwave-prev-index-position)
-            (upcase (idlwave-unit-name)))))))
+           (let* ((module (idlwave-what-module))
+                  (name (idlwave-make-full-name (nth 2 module) (car module)))
+                  (type (nth 1 module)))
+             (list (upcase name) type)))))))
 
 (defun idlwave-shell-clear-current-bp ()
   "Remove breakpoint at current line.