Function: he-concat-directory-file-name

he-concat-directory-file-name is a byte-compiled function defined in hippie-exp.el.gz.

Signature

(he-concat-directory-file-name DIR-PART NAME-PART)

Documentation

Try to slam together two parts of a file specification, system dependently.

Source Code

;; Defined in /usr/src/emacs/lisp/hippie-exp.el.gz
;; Thanks go to David Hughes <ukchugd@ukpmr.cs.philips.nl> who
;; helped to make it work on PC.
(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)
	((eq system-type 'ms-dos)
	 (if (and (string-search "\\" dir-part)
		  (not (string-search "/" dir-part))
		  (= (aref name-part (1- (length name-part))) ?/))
	     (aset name-part (1- (length name-part)) ?\\))
	 (concat dir-part name-part))
	(t
	 (concat dir-part name-part))))