Mercurial > emacs
diff lisp/speedbar.el @ 25432:07df7c764669
(speedbar-directory-buttons): Recognize
device names when checking for file names.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 29 Aug 1999 19:37:29 +0000 |
parents | 078e0b907e6e |
children | 7de24bd78e93 |
line wrap: on
line diff
--- a/lisp/speedbar.el Sun Aug 29 19:32:33 1999 +0000 +++ b/lisp/speedbar.el Sun Aug 29 19:37:29 1999 +0000 @@ -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 @@ '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)))))