/[emacs]/emacs/lisp/woman.el
ViewVC logotype

Diff of /emacs/lisp/woman.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by lektu, Wed Oct 23 09:08:04 2002 UTC revision 1.15 by lektu, Fri Jan 31 15:18:38 2003 UTC
# Line 1347  Any UN*X-style environment variables are Line 1347  Any UN*X-style environment variables are
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))))

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26