From cc5034d2b58239d890702ff7424b6aa9cae63934 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 Aug 1999 19:37:29 +0000 Subject: [PATCH] (speedbar-directory-buttons): Recognize device names when checking for file names. --- lisp/speedbar.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 ;; 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))))) -- 2.39.5