# HG changeset patch # User Luc Teirlinck # Date 1141608534 0 # Node ID 928466fb196695e366cd44b1f0742c9553e7870a # Parent 1248c4b55c0c235f63334f4a7e3dadc0ccca1ae3 (gud-jdb-marker-filter): Double quote `[' in regexp for Lisp syntax. diff -r 1248c4b55c0c -r 928466fb1966 lisp/progmodes/gud.el --- a/lisp/progmodes/gud.el Mon Mar 06 01:23:32 2006 +0000 +++ b/lisp/progmodes/gud.el Mon Mar 06 01:28:54 2006 +0000 @@ -399,7 +399,7 @@ gud-speedbar-key-map gud-expansion-speedbar-buttons)) - (add-to-list + (add-to-list 'speedbar-mode-functions-list '("GUD" (speedbar-item-info . gud-speedbar-item-info) (speedbar-line-directory . ignore)))) @@ -684,7 +684,7 @@ (buffer-name gud-comint-buffer) (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))) (error "Multiple debugging is only supported with \"gdb --fullname\"")) - + (gud-common-init command-line nil 'gud-gdb-marker-filter) (set (make-local-variable 'gud-minor-mode) 'gdb) @@ -2152,7 +2152,7 @@ ;; print line numbers using LOCALE, inserting a comma or a ;; period at the thousands positions (how ingenious!). - "\\(\[[0-9]+\] \\)*\\([a-zA-Z0-9.$_]+\\)\\.[a-zA-Z0-9$_<>(),]+ \ + "\\(\\[[0-9]+] \\)*\\([a-zA-Z0-9.$_]+\\)\\.[a-zA-Z0-9$_<>(),]+ \ \\(([a-zA-Z0-9.$_]+:\\|line=\\)\\([0-9.,]+\\)" gud-marker-acc)