Mercurial > emacs
diff lisp/hippie-exp.el @ 104552:10c38084881d
Remove code for defunct system-types emx, macos, mswindows,
unisoft-unix, vax-vms, win32, w32.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 22 Aug 2009 21:59:40 +0000 |
| parents | a9dc0e7c3f2b |
| children | a0f778f4a995 |
line wrap: on
line diff
--- a/lisp/hippie-exp.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/hippie-exp.el Sat Aug 22 21:59:40 2009 +0000 @@ -1,7 +1,7 @@ ;;; hippie-exp.el --- expand text trying various ways to find its expansion -;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Author: Anders Holst <aho@sans.kth.se> ;; Last change: 3 March 1998 @@ -519,7 +519,7 @@ (defun he-concat-directory-file-name (dir-part name-part) "Try to slam together two parts of a file specification, system dependently." (cond ((null dir-part) name-part) - ((memq system-type '(ms-dos w32)) + ((eq system-type 'ms-dos) (if (and (string-match "\\\\" dir-part) (not (string-match "/" dir-part)) (= (aref name-part (1- (length name-part))) ?/))