diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-08-29 19:37:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-08-29 19:37:29 +0000 |
| commit | cc5034d2b58239d890702ff7424b6aa9cae63934 (patch) | |
| tree | 2c6219985d81c0811da65c767043667ef3c5ba6c /lisp/speedbar.el | |
| parent | 599c6c17638b4d1a677caf8328927705e7919139 (diff) | |
| download | emacs-cc5034d2b58239d890702ff7424b6aa9cae63934.tar.gz | |
(speedbar-directory-buttons): Recognize
device names when checking for file names.
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 5 |
1 files 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 <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))))) |