Mercurial > emacs

comparison lisp/gud.el @ 48299:21b6ba166466

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix feature name in `provide'.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 14 Nov 2002 08:56:31 +0000
parents 3a409a9620a7
children 0513d8116258
comparison
equal deleted inserted replaced
48298:15718dea6555 48299:21b6ba166466
1847 ((setq user-error (string-match "-sourcepath$" (car args)))) 1847 ((setq user-error (string-match "-sourcepath$" (car args))))
1848 ((string-match "-classpath\\(.+\\)" (car args)) 1848 ((string-match "-classpath\\(.+\\)" (car args))
1849 (setq massaged-args 1849 (setq massaged-args
1850 (append massaged-args 1850 (append massaged-args
1851 (list "-classpath") 1851 (list "-classpath")
1852 (list 1852 (list
1853 (setq gud-jdb-classpath-string 1853 (setq gud-jdb-classpath-string
1854 (substring 1854 (substring
1855 (car args) 1855 (car args)
1856 (match-beginning 1) (match-end 1))))))) 1856 (match-beginning 1) (match-end 1)))))))
1857 ((string-match "-sourcepath\\(.+\\)" (car args)) 1857 ((string-match "-sourcepath\\(.+\\)" (car args))
1858 (setq massaged-args 1858 (setq massaged-args
1859 (append massaged-args 1859 (append massaged-args
1860 (list "-sourcepath") 1860 (list "-sourcepath")
1861 (list 1861 (list
1862 (setq gud-jdb-sourcepath 1862 (setq gud-jdb-sourcepath
1863 (substring 1863 (substring
1864 (car args) 1864 (car args)
1865 (match-beginning 1) (match-end 1))))))) 1865 (match-beginning 1) (match-end 1)))))))
1866 (t (setq massaged-args (append massaged-args (list (car args)))))) 1866 (t (setq massaged-args (append massaged-args (list (car args))))))
2748 (tool-bar-add-item-from-menu 'gud-finish "gud-finish" gud-minor-mode-map) 2748 (tool-bar-add-item-from-menu 'gud-finish "gud-finish" gud-minor-mode-map)
2749 (tool-bar-add-item-from-menu 'gud-up "gud-up" gud-minor-mode-map) 2749 (tool-bar-add-item-from-menu 'gud-up "gud-up" gud-minor-mode-map)
2750 (tool-bar-add-item-from-menu 'gud-down "gud-down" gud-minor-mode-map) 2750 (tool-bar-add-item-from-menu 'gud-down "gud-down" gud-minor-mode-map)
2751 tool-bar-map))) 2751 tool-bar-map)))
2752 2752
2753 (provide 'mygud) 2753 (provide 'gud)
2754 2754
2755 ;;; gud.el ends here 2755 ;;; gud.el ends here