diff options
| author | Richard M. Stallman | 1999-01-31 04:39:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-01-31 04:39:37 +0000 |
| commit | 8e49673d5e62a9ab5aa89945babf7e25796198b6 (patch) | |
| tree | 73604f25dbafd259f5689aef12605e764b62d5b2 | |
| parent | bda2515e229281a69a0185a0ee8ad6b59b8cf4f6 (diff) | |
| download | emacs-8e49673d5e62a9ab5aa89945babf7e25796198b6.tar.gz emacs-8e49673d5e62a9ab5aa89945babf7e25796198b6.zip | |
(speedbar-line-token): Match {...} instead of [...].
(speedbar-line-token): Likewise.
| -rw-r--r-- | lisp/speedbar.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 59de7d6dbc3..4bf9a9fcc0c 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> |
| 6 | ;; Version: 0.8.1 | 6 | ;; Version: 0.8.1 |
| 7 | ;; Keywords: file, tags, tools | 7 | ;; Keywords: file, tags, tools |
| 8 | ;; X-RCS: $Id: speedbar.el,v 1.18 1998/12/19 14:01:53 zappo Exp $ | 8 | ;; X-RCS: $Id: speedbar.el,v 1.19 1999/01/23 13:23:26 zappo Exp rms $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -3143,7 +3143,7 @@ Optional argument P is where to start the search from." | |||
| 3143 | (if p (goto-char p)) | 3143 | (if p (goto-char p)) |
| 3144 | (beginning-of-line) | 3144 | (beginning-of-line) |
| 3145 | (if (looking-at (concat | 3145 | (if (looking-at (concat |
| 3146 | "\\([0-9]+\\): *[[<][-+?][]>] \\([^ \n]+\\)\\(" | 3146 | "\\([0-9]+\\): *[[<{][-+?][]>}] \\([^ \n]+\\)\\(" |
| 3147 | speedbar-indicator-regex "\\)?")) | 3147 | speedbar-indicator-regex "\\)?")) |
| 3148 | (match-string 2) | 3148 | (match-string 2) |
| 3149 | nil))) | 3149 | nil))) |
| @@ -3155,7 +3155,7 @@ Optional argument P is where to start the search from." | |||
| 3155 | (if p (goto-char p)) | 3155 | (if p (goto-char p)) |
| 3156 | (beginning-of-line) | 3156 | (beginning-of-line) |
| 3157 | (if (looking-at (concat | 3157 | (if (looking-at (concat |
| 3158 | "\\([0-9]+\\): *[[<][-+?][]>] \\([^ \n]+\\)\\(" | 3158 | "\\([0-9]+\\): *[[<{][-+?][]>}] \\([^ \n]+\\)\\(" |
| 3159 | speedbar-indicator-regex "\\)?")) | 3159 | speedbar-indicator-regex "\\)?")) |
| 3160 | (progn | 3160 | (progn |
| 3161 | (goto-char (match-beginning 2)) | 3161 | (goto-char (match-beginning 2)) |