diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-18 16:28:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-18 16:28:22 +0000 |
| commit | a0341d132be82cf82c74258655c0d81c86a88b4c (patch) | |
| tree | dcb7234355ab50f1e271bfbbb37108c45c288796 /lisp/hippie-exp.el | |
| parent | f0d21379316bba09f4dfdf520f57c14762042b6a (diff) | |
| download | emacs-a0341d132be82cf82c74258655c0d81c86a88b4c.tar.gz | |
(he-concat-directory-file-name): Directory part may be nil.
(he-file-name-nondirectory): Referenced external variable.
Diffstat (limited to 'lisp/hippie-exp.el')
| -rw-r--r-- | lisp/hippie-exp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index bb59ac68382..ddb896befdb 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -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)) |