Mercurial > emacs
changeset 70295:da2f6762c09a
(gud-def): Add %c case.
(gud-speedbar-buttons): Don'bind case-fold-search unnecessarily.
(gud-format-command): Make match case sensitive. Match on %F.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 30 Apr 2006 23:10:48 +0000 |
| parents | e96921005878 |
| children | 69cfa5d95784 |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 13 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Sun Apr 30 22:15:21 2006 +0000 +++ b/lisp/progmodes/gud.el Sun Apr 30 23:10:48 2006 +0000 @@ -303,13 +303,15 @@ optional doc string DOC. Certain %-escapes in the string arguments are interpreted specially if present. These are: - %f name (without directory) of current source file. - %F name (without directory or extension) of current source file. - %d directory of current source file. - %l number of current source line - %e text of the C lvalue or function-call expression surrounding point. - %a text of the hexadecimal address surrounding point - %p prefix argument to the command (if any) as a number + %f -- Name (without directory) of current source file. + %F -- Name (without directory or extension) of current source file. + %d -- Directory of current source file. + %l -- Number of current source line. + %e -- Text of the C lvalue or function-call expression surrounding point. + %a -- Text of the hexadecimal address surrounding point. + %p -- Prefix argument to the command (if any) as a number. + %c -- Fully qualified class name derived from the expression + surrounding point (jdb only). The `current' source file is the file of the current buffer (if we're in a C file) or the source file current at the last break or @@ -446,8 +448,7 @@ (when (or gdb-force-update (not (save-excursion (goto-char (point-min)) - (let ((case-fold-search t)) - (looking-at "Watch Expressions:"))))) + (looking-at "Watch Expressions:")))) (erase-buffer) (insert "Watch Expressions:\n") (if gdb-speedbar-auto-raise @@ -2804,7 +2805,9 @@ (let ((insource (not (eq (current-buffer) gud-comint-buffer))) (frame (or gud-last-frame gud-last-last-frame)) result) - (while (and str (string-match "\\([^%]*\\)%\\([adeflpc]\\)" str)) + (while (and str + (let ((case-fold-search nil)) + (string-match "\\([^%]*\\)%\\([adefFlpc]\\)" str))) (let ((key (string-to-char (match-string 2 str))) subst) (cond