From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 29 Aug 1999 19:37:29 +0000 (+0000)
Subject: (speedbar-directory-buttons): Recognize
X-Git-Tag: emacs-pretest-21.0.90~7009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc5034d2b58239d890702ff7424b6aa9cae63934;p=emacs.git

(speedbar-directory-buttons): Recognize
device names when checking for file names.
---

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index e4615017864..3c1a3292404 100644
--- 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)))))