procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(he-concat-directory-file-name): Directory part may be nil.

Browse source 
(he-file-name-nondirectory): Referenced external variable.
This commit is contained in:
Richard M. Stallman 1996-06-18 16:28:22 +00:00
parent f0d2137931
commit a0341d132b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/hippie-exp.el
View file

@ -483,11 +483,12 @@ otherwise."
(if (memq system-type '(vax-vms axp-vms))
(or (file-directory-p file)
(file-directory-p (concat file "[000000]")))
(file-directory-p dir-part)))
(file-directory-p file)))
(defun he-concat-directory-file-name (dir-part name-part)
"Try to slam together two parts of a file specification, system dependently."
(cond ((memq system-type '(axp-vms vax-vms))
(cond ((null dir-part) name-part)
((memq system-type '(axp-vms vax-vms))
(if (and (string= (substring dir-part -1) "]")
(string= (substring name-part 0 2) "[."))
(concat (substring dir-part 0 -1) (substring name-part 1))