1347 |
;; including `.' and `..', so remove any trailing / !!! |
;; including `.' and `..', so remove any trailing / !!! |
1348 |
(if (string= (substring dir -1) "/") |
(if (string= (substring dir -1) "/") |
1349 |
(setq dir (substring dir 0 -1))) |
(setq dir (substring dir 0 -1))) |
1350 |
(if (memq system-type '(windows-nt ms-dos)) ; what else? |
(if (memq system-type '(windows-nt ms-dos cygwin)) ; what else? |
1351 |
;; Match capitalization used by `file-name-directory': |
;; Match capitalization used by `file-name-directory': |
1352 |
(setq dir (concat (file-name-directory dir) |
(setq dir (concat (file-name-directory dir) |
1353 |
(file-name-nondirectory dir)))) |
(file-name-nondirectory dir)))) |