diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/speedbar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 4bf9a9fcc0c..608c11dfbb3 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.19 1999/01/23 13:23:26 zappo Exp rms $ | 8 | ;; X-RCS: $Id: speedbar.el,v 1.20 1999/01/31 04:39:37 rms Exp rms $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -1698,6 +1698,7 @@ it from the speedbar buffer." | |||
| 1698 | "Display info about a tag that is on the current line. | 1698 | "Display info about a tag that is on the current line. |
| 1699 | nil if not applicable." | 1699 | nil if not applicable." |
| 1700 | (save-excursion | 1700 | (save-excursion |
| 1701 | (beginning-of-line) | ||
| 1701 | (if (re-search-forward " > \\([^ ]+\\)$" | 1702 | (if (re-search-forward " > \\([^ ]+\\)$" |
| 1702 | (save-excursion(end-of-line)(point)) t) | 1703 | (save-excursion(end-of-line)(point)) t) |
| 1703 | (let ((tag (match-string 1)) | 1704 | (let ((tag (match-string 1)) |