mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(abbreviate-file-name): Handle drive letters on windows-nt as on ms-dos.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-11-01 05:48:21 +00:00
parent 4a091f2a34
commit c32d49e850
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/files.el
View File

@ -597,7 +597,8 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
;; If the home dir is just /, don't change it.
(not (and (= (match-end 0) 1)
(= (aref filename 0) ?/)))
(not (and (eq system-type 'ms-dos)
(not (and (or (eq system-type 'ms-dos)
(eq system-type 'windows-nt))
(save-match-data
(string-match "^[a-zA-Z]:/$" filename)))))
(setq filename