(speedbar-directory-buttons): Recognize

device names when checking for file names.

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index e461501786479ee12a5f67d0f56076386a8f34c7..3c1a3292404215b22015467f6e064cc39f34dca7 100644 (file)
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -5,7 +5,7 @@
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Version: 0.8.1
 ;; Keywords: file, tags, tools
-;; X-RCS: $Id: speedbar.el,v 1.22 1999/03/13 04:52:25 kwzh Exp kwzh $
+;; X-RCS: $Id: speedbar.el,v 1.23 1999/06/04 18:22:55 kwzh Exp rms $
 
 ;; This file is part of GNU Emacs.
 
@@ -2165,7 +2165,8 @@ INDEX is not used, but is required by the caller."
                              'speedbar-directory-face
                              'speedbar-highlight-face
                              'speedbar-directory-buttons-follow
-                             (if (= (match-beginning 1) p)
+                             (if (and (= (match-beginning 1) p)
+                                       (not (char-equal (char-after (+ p 1)) ?:)))
                                  (expand-file-name "~/")  ;the tilde
                                (buffer-substring-no-properties
                                 p (match-end 0)))))