Mercurial > emacs

comparison lisp/progmodes/idlw-shell.el @ 83561:dc002877ce12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-674 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-675 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-676 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-677 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-678 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-679 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-680 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-681 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-682 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-683 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-684 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-685 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-686 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-687 Release ERC 5.2. * emacs@sv.gnu.org/emacs--devo--0--patch-688 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-689 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-690 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-691 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-692 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-693 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-694 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-695 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-696 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-697 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-698 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-699 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-700 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-701 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-209 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-210 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-211 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-212 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-213 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-214 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-215 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-601
author Karoly Lorentey <karoly@lorentey.hu>
date Sun, 22 Apr 2007 12:42:47 +0000
parents 07774e5c3ff5 1064d1d79d3e
children 41aaac7180d5
comparison
equal deleted inserted replaced
83560:738ce3540ffb 83561:dc002877ce12
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)))))